;ELC ;;; Compiled ;;; in Emacs version 30.2 ;;; with all optimizations. #@800 Number of extra spaces to indent in `visual-wrap-prefix-mode'. `visual-wrap-prefix-mode' indents the visual lines to the level of the actual line plus `visual-wrap-extra-indent'. A negative value will do a relative de-indent. Examples: actual indent = 2 extra indent = -1 Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. actual indent = 2 extra indent = 2 Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat.#@2 #@13 (fn FACE) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable visual-wrap-extra-indent funcall function #[0 "\300\207" [0] 1 (#$ . 887)] (#$ . 84) :type integer :safe integerp :version "30.1" :group visual-line] 12) (defalias 'visual-wrap--face-extend-p #[257 "\211<\203\300\301\302!\203\303\202\304\"\207\2119\205*\301\302!\203%\302\305\306#\207\307\305\306#\207" [plist-get fboundp face-extend-p :extend :background nil t face-background] 5 (#$ . 893)])#@20 (fn FCP BEG END)#@10 (fn F) (defalias 'visual-wrap--prefix-face #[771 "\300\301\302#\2065\211\206 `Sf\303U\2055\300S\302\"\211:\203%\304@!\203,\305!\2053\207\306\307\310\311\"\"\262\207" [get-text-property 0 face 10 keywordp visual-wrap--face-extend-p delq nil mapcar #[257 "\300!\205\211\207" [visual-wrap--face-extend-p] 3 (#$ . 1442)]] 9 (#$ . 1418)])#@12 (fn FCP) (defalias 'visual-wrap--prefix #[257 "\301!\302U\203 \207\302V\203\303\304\"P\207\\\302V\203'\302\\O\207\305\207" [visual-wrap-extra-indent string-width 0 make-string 32 ""] 6 (#$ . 1798)])#@172 Compute visual wrap prefix from text between BEG and END. This is like `fill-context-prefix', but with prefix length adjusted by `visual-wrap-extra-indent'. (fn BEG END) (defalias 'visual-wrap-fill-context-prefix #[514 "\302\")\206 \303\304!\305#\211\203\306\307#\207\207" [regexp-unmatchable paragraph-start fill-context-prefix "" visual-wrap--prefix visual-wrap--prefix-face propertize face] 9 (#$ . 2020)])#@74 Indent the region between BEG and END with visual filling. (fn BEG END) (defalias 'visual-wrap-prefix-function #[514 "\211b\210n\204\n\300y\210\210`b\210\301y\210`\262`W\203U`\302`\303\304\305#\210`\306\307`\"\310\301G\311$\210\312\301\313#\211\203N\211\312S\313\"=\203N\310\301G\314$\210\210$\266\202\315BB\207" [1 0 put-text-property search-forward "\n" move wrap-prefix visual-wrap-fill-context-prefix remove-text-properties (wrap-prefix) get-text-property display (display) jit-lock-bounds] 14 (#$ . 2450)])#@115 Non-nil if Visual-Wrap-Prefix mode is enabled. Use the command `visual-wrap-prefix-mode' to change this variable. (defvar visual-wrap-prefix-mode nil (#$ . 2990))#@740 Display continuation lines with prefixes from surrounding context. To enable this minor mode across all buffers, enable `global-visual-wrap-prefix-mode'. This is a minor mode. If called interactively, toggle the `Visual-Wrap-Prefix 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 `visual-wrap-prefix-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 'visual-wrap-prefix-mode) (defalias 'visual-wrap-prefix-mode #[256 "\305 \306=\203 ?\202\247\203\307W\203\310\202\311\312\301!\2031\313\300 \"\2031\300 B\203C\314\315\316\317\311$\210\320\316!\210\202_\321\316!\210\322 \311\211\311\323\324\"\216\214~\210\325ed\326#-\266\327\330\203i\331\202j\332\"\210\333\334!\203\215\305 \203~\211\305 \232\203\215\335\336\337\203\211\340\202\212\341\342$\210\210\343 \207" [visual-wrap-prefix-mode local-minor-modes buffer-undo-list inhibit-read-only inhibit-modification-hooks current-message toggle 1 nil t boundp delq add-hook jit-lock-functions visual-wrap-prefix-function append jit-lock-register jit-lock-unregister buffer-modified-p make-closure #[0 "\300\301>\205 \302\300!\207" [V0 (nil autosaved) restore-buffer-modified-p] 2] remove-text-properties (wrap-prefix nil) run-hooks visual-wrap-prefix-mode-hook visual-wrap-prefix-mode-on-hook visual-wrap-prefix-mode-off-hook called-interactively-p any message "%s %sabled%s" "Visual-Wrap-Prefix mode" "en" "dis" " in current buffer" force-mode-line-update] 8 (#$ . 3159) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar visual-wrap-prefix-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\313\314\300!\205#\310\211%\210\303\315\316\317#\207" [visual-wrap-prefix-mode-map visual-wrap-prefix-mode-hook variable-documentation put "Hook run after entering or leaving `visual-wrap-prefix-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 visual-wrap-prefix-mode "" boundp global-visual-wrap-prefix-mode globalized-minor-mode t] 6) (defvar visual-wrap-prefix-mode-major-mode nil)#@311 Non-nil if Global Visual-Wrap-Prefix mode is enabled. See the `global-visual-wrap-prefix-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-visual-wrap-prefix-mode'.#@511 Toggle Visual-Wrap-Prefix mode in all buffers. With prefix ARG, enable Global Visual-Wrap-Prefix 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. Visual-Wrap-Prefix mode is enabled in all buffers where `visual-wrap-prefix-mode' would do it. See `visual-wrap-prefix-mode' for more information on Visual-Wrap-Prefix 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 visual-wrap-prefix-mode-major-mode custom-declare-variable global-visual-wrap-prefix-mode funcall function #[0 "\300\207" [nil] 1 (#$ . 887)] (#$ . 5798) :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group visual-line] 12) (defalias 'global-visual-wrap-prefix-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-visual-wrap-prefix-mode visual-wrap-prefix-mode current-message set-default toggle default-value 1 nil t boundp delq add-hook after-change-major-mode-hook global-visual-wrap-prefix-mode-enable-in-buffer remove-hook buffer-list -1 run-hooks global-visual-wrap-prefix-mode-hook global-visual-wrap-prefix-mode-on-hook global-visual-wrap-prefix-mode-off-hook called-interactively-p any customize-mark-as-set message "%s %sabled%s" "Global Visual-Wrap-Prefix mode" "en" "dis" "" force-mode-line-update] 7 (#$ . 6114) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar global-visual-wrap-prefix-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-visual-wrap-prefix-mode-map global-visual-wrap-prefix-mode-hook variable-documentation put "Hook run after entering or leaving `global-visual-wrap-prefix-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-visual-wrap-prefix-mode boundp] 6) (defvar visual-wrap-prefix-mode-set-explicitly nil) (make-variable-buffer-local 'visual-wrap-prefix-mode-set-explicitly) (defalias 'visual-wrap-prefix-mode-set-explicitly #[0 "\301\211\207" [visual-wrap-prefix-mode-set-explicitly t] 2]) (byte-code "\300\301\302\303#\210\304\305\301\"\207" [put visual-wrap-prefix-mode-set-explicitly definition-name global-visual-wrap-prefix-mode add-hook visual-wrap-prefix-mode-hook] 4) (defvar global-visual-wrap-prefix-mode-buffers nil) (defalias 'global-visual-wrap-prefix-mode-enable-in-buffer #[0 "\305p\" \204 \n =\204 \f\203\304\306!\210\304 \210\202 \304 \210 \211\207" [global-visual-wrap-prefix-mode-buffers visual-wrap-prefix-mode-set-explicitly visual-wrap-prefix-mode-major-mode major-mode visual-wrap-prefix-mode delq -1] 3]) (byte-code "\300\301\302\303#\210\304\305!\207" [put global-visual-wrap-prefix-mode-enable-in-buffer definition-name global-visual-wrap-prefix-mode provide visual-wrap] 4)