;ELC ;;; Compiled ;;; in Emacs version 30.1 ;;; with all optimizations. #@72 Characters that `word-wrap-whitespace-mode' should add to `word-wrap'.#@2 #@119 Non-nil if Word-Wrap-Whitespace mode is enabled. Use the command `word-wrap-whitespace-mode' to change this variable. (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable word-wrap-whitespace-characters funcall function #[0 "\300\207" [(5760 8192 8193 8194 8195 8196 8197 8198 8199 8200 8201 8202 8287 12288 8203)] 1 (#$ . 158)] (#$ . 83) :version "29.1" :type (repeat character) :group display] 10) (defvar word-wrap-whitespace-mode nil (#$ . 165))#@732 Allow `word-wrap' to fold on all breaking whitespace characters. The characters to break on are defined by `word-wrap-whitespace-characters'. This is a minor mode. If called interactively, toggle the `Word-Wrap-Whitespace mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate the variable `word-wrap-whitespace-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (make-variable-buffer-local 'word-wrap-whitespace-mode) (defalias 'word-wrap-whitespace-mode #[256 "\306 \307=\203 ?\202\247\203\310W\203\311\202\312\313\301!\2031\314\300 \"\2031\300 B\203f\315\304!\210\316 \317\320!\315\302!\210\312\315\303!\210\312B\321\322 !\210 \211\203b\211@\323\324\"\266A\202R\210\202p\321\f@!\210\325\fA!\210\326\327\203z\330\202{\331\"\210\332\333!\203\236\306 \203\217\211\306 \232\203\236\334\335\336\203\232\337\202\233\340\341$\210\210\342 \207" [word-wrap-whitespace-mode local-minor-modes word-wrap-by-category word-wrap word-wrap-mode--previous-state word-wrap-whitespace-characters current-message toggle 1 nil t boundp delq make-local-variable category-table buffer-local-set-state--get (word-wrap-by-category t word-wrap t) set-category-table copy-category-table modify-category-entry 124 buffer-local-restore-state run-hooks word-wrap-whitespace-mode-hook word-wrap-whitespace-mode-on-hook word-wrap-whitespace-mode-off-hook called-interactively-p any message "%s %sabled%s" "Word-Wrap-Whitespace mode" "en" "dis" " in current buffer" force-mode-line-update] 8 (#$ . 663) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar word-wrap-whitespace-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\210\303\314\315\316#\207" [word-wrap-whitespace-mode-map word-wrap-whitespace-mode-hook variable-documentation put "Hook run after entering or leaving `word-wrap-whitespace-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode word-wrap-whitespace-mode boundp global-word-wrap-whitespace-mode globalized-minor-mode t] 6) (defvar word-wrap-whitespace-mode-major-mode nil)#@317 Non-nil if Global Word-Wrap-Whitespace mode is enabled. See the `global-word-wrap-whitespace-mode' command for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `global-word-wrap-whitespace-mode'.#@523 Toggle Word-Wrap-Whitespace mode in all buffers. With prefix ARG, enable Global Word-Wrap-Whitespace mode if ARG is positive; otherwise, disable it. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. Word-Wrap-Whitespace mode is enabled in all buffers where `word-wrap-whitespace-mode' would do it. See `word-wrap-whitespace-mode' for more information on Word-Wrap-Whitespace mode. (fn &optional ARG) (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315\316\317& \207" [make-variable-buffer-local word-wrap-whitespace-mode-major-mode custom-declare-variable global-word-wrap-whitespace-mode funcall function #[0 "\300\207" [nil] 1 (#$ . 158)] (#$ . 3323) :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group display] 12) (defalias 'global-word-wrap-whitespace-mode #[256 "\303 \304\301\305=\203\306\301!?\202!\247\203 \307W\203 \310\202!\311\"\210\312\300!\2038\313\301\"\306\301!\2038\301B \203D\314\315\316\"\210\202I\317\315\316\"\210\320 \211\203m\211@r\211q\210 \203_\302 \210\202g\n\203g\302\321!\210)\210A\202K\210\322\323\306\301!\203z\324\202{\325\"\210\326\327!\203\244\330\301!\210\303 \203\223\211\303 \232\203\244\331\332\333\306\301!\203\240\334\202\241\335\336$\210\210\337 \210\306\301!\207" [global-minor-modes global-word-wrap-whitespace-mode word-wrap-whitespace-mode current-message set-default toggle default-value 1 nil t boundp delq add-hook after-change-major-mode-hook global-word-wrap-whitespace-mode-enable-in-buffer remove-hook buffer-list -1 run-hooks global-word-wrap-whitespace-mode-hook global-word-wrap-whitespace-mode-on-hook global-word-wrap-whitespace-mode-off-hook called-interactively-p any customize-mark-as-set message "%s %sabled%s" "Global Word-Wrap-Whitespace mode" "en" "dis" "" force-mode-line-update] 7 (#$ . 3645) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar global-word-wrap-whitespace-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [global-word-wrap-whitespace-mode-map global-word-wrap-whitespace-mode-hook variable-documentation put "Hook run after entering or leaving `global-word-wrap-whitespace-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode global-word-wrap-whitespace-mode boundp] 6) (defvar word-wrap-whitespace-mode-set-explicitly nil) (make-variable-buffer-local 'word-wrap-whitespace-mode-set-explicitly) (defalias 'word-wrap-whitespace-mode-set-explicitly #[0 "\301\211\207" [word-wrap-whitespace-mode-set-explicitly t] 2]) (byte-code "\300\301\302\303#\210\304\305\301\"\207" [put word-wrap-whitespace-mode-set-explicitly definition-name global-word-wrap-whitespace-mode add-hook word-wrap-whitespace-mode-hook] 4) (defvar global-word-wrap-whitespace-mode-buffers nil) (defalias 'global-word-wrap-whitespace-mode-enable-in-buffer #[0 "\305p\" \204 \n =\204 \f\203\304\306!\210\304 \210\202 \304 \210 \211\207" [global-word-wrap-whitespace-mode-buffers word-wrap-whitespace-mode-set-explicitly word-wrap-whitespace-mode-major-mode major-mode word-wrap-whitespace-mode delq -1] 3]) (byte-code "\300\301\302\303#\210\304\305!\207" [put global-word-wrap-whitespace-mode-enable-in-buffer definition-name global-word-wrap-whitespace-mode provide word-wrap-mode] 4)