;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (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 ""] "Characters that `word-wrap-whitespace-mode' should add to `word-wrap'." :version "29.1" :type (repeat character) :group display] 10)#@119 Non-nil if Word-Wrap-Whitespace mode is enabled. Use the command `word-wrap-whitespace-mode' to change this variable. (defvar word-wrap-whitespace-mode nil (#$ . 463)) (make-variable-buffer-local 'word-wrap-whitespace-mode)#@718 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 `word-wrap-whitespace-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (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\203h\315\304!\210\316 \317\320!\315\302!\210\312\315\303!\210\312B\321\322 !\210 \211\203d\211@\323\324\"\210A\266\202\202R\210\202r\321\f@!\210\325\fA!\210\326\327\203|\330\202}\331\"\210\332\333!\203\240\306 \203\221\211\306 \232\203\240\334\335\336\203\234\337\202\235\340\341$\210\210\342 \210\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] 7 (#$ . 693) (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 nil) (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 ""] "Non-nil if Global Word-Wrap-Whitespace mode is enabled.\nSee the `global-word-wrap-whitespace-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `global-word-wrap-whitespace-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group display] 12)#@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) (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 \203N\314\315\316\"\210\314\317\320\"\210\314\321\322\"\210\202]\323\315\316\"\210\323\317\320\"\210\323\321\322\"\210\324 \211\203\203\211@r\211q\210 \203s\302 \210\202{\n\203{\302\325!\210)A\266\202\202_\210\326\327\306\301!\203\220\330\202\221\331\"\210\332\333!\203\272\334\301!\210\303 \203\251\211\303 \232\203\272\335\336\337\306\301!\203\266\340\202\267\341\342$\210\210\343 \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-buffers find-file-hook global-word-wrap-whitespace-mode-check-buffers change-major-mode-hook global-word-wrap-whitespace-mode-cmhh 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 (#$ . 3978) (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 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-buffers #[0 "\305\211\211\2059\211@\306!\2032r\211q\210 \204/\n =\204/\f\203,\304\307!\210\304 \210\202/\304 \210 )A\266\202\202\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 nil buffer-live-p -1] 5]) (put 'global-word-wrap-whitespace-mode-enable-in-buffers 'definition-name 'global-word-wrap-whitespace-mode) (defalias 'global-word-wrap-whitespace-mode-check-buffers #[0 "\300 \210\301\302\303\"\207" [global-word-wrap-whitespace-mode-enable-in-buffers remove-hook post-command-hook global-word-wrap-whitespace-mode-check-buffers] 3]) (put 'global-word-wrap-whitespace-mode-check-buffers 'definition-name 'global-word-wrap-whitespace-mode) (defalias 'global-word-wrap-whitespace-mode-cmhh #[0 "p\211\235\203 \266\202\211B\210\301\302\303\"\207" [global-word-wrap-whitespace-mode-buffers add-hook post-command-hook global-word-wrap-whitespace-mode-check-buffers] 3]) (byte-code "\300\301\302\303#\210\304\305!\207" [put global-word-wrap-whitespace-mode-cmhh definition-name global-word-wrap-whitespace-mode provide word-wrap-mode] 4)