;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (custom-declare-group 'display-fill-column-indicator nil "Display a fill column indicator in the buffer." :group 'convenience :group 'display :link '(info-link "(emacs)Displaying Boundaries"))#@137 Non-nil if Display-Fill-Column-Indicator mode is enabled. Use the command `display-fill-column-indicator-mode' to change this variable. (defvar display-fill-column-indicator-mode nil (#$ . 277)) (make-variable-buffer-local 'display-fill-column-indicator-mode)#@1185 Toggle display of `fill-column' indicator. This uses `display-fill-column-indicator' internally. To change the position of the column displayed by default customize `display-fill-column-indicator-column'. You can change the character for the indicator setting `display-fill-column-indicator-character'. The globalized version is `global-display-fill-column-indicator-mode', which see. This minor mode assumes the buffer uses a fixed-pitch font; if you use variable-pitch fonts, the indicators on different lines might not appear aligned. See Info node `Displaying Boundaries' for details. This is a minor mode. If called interactively, toggle the `Display-Fill-Column-Indicator 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 `display-fill-column-indicator-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'display-fill-column-indicator-mode #[256 "\304 \305=\203 ?\202\247\203\306W\203\307\202\310\311\301!\2031\312\300 \"\2031\300 B\203_\310 \204a\313\314!\203Z\315 \203V\316\317\307\314\"@!\320H\321\322!=\203Z\314\202[\323\202a\307\324\325\203k\326\202l\327\"\210\330\331!\203\217\304 \203\200\211\304 \232\203\217\332\333\334\203\213\335\202\214\336\337$\210\210\340 \210\207" [display-fill-column-indicator-mode local-minor-modes display-fill-column-indicator display-fill-column-indicator-character current-message toggle 1 nil t boundp delq char-displayable-p 9474 display-graphic-p query-font internal-char-font 0 face-font default 124 run-hooks display-fill-column-indicator-mode-hook display-fill-column-indicator-mode-on-hook display-fill-column-indicator-mode-off-hook called-interactively-p any message "%s %sabled%s" "Display-Fill-Column-Indicator mode" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 544) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar display-fill-column-indicator-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" [display-fill-column-indicator-mode-map display-fill-column-indicator-mode-hook variable-documentation put "Hook run after entering or leaving `display-fill-column-indicator-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 display-fill-column-indicator-mode boundp] 6)#@47 Turn on `display-fill-column-indicator-mode'. (defalias 'display-fill-column-indicator--turn-on #[0 "\300 \206\301 \205\302\303\304\"??\205\305 \207" [minibufferp daemonp frame-parameter nil client display-fill-column-indicator-mode] 3 (#$ . 3406)]) (put 'global-display-fill-column-indicator-mode 'globalized-minor-mode t) (defvar display-fill-column-indicator-mode-major-mode nil nil) (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315& \207" [make-variable-buffer-local display-fill-column-indicator-mode-major-mode custom-declare-variable global-display-fill-column-indicator-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Global Display-Fill-Column-Indicator mode is enabled.\nSee the `global-display-fill-column-indicator-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-display-fill-column-indicator-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean] 10)#@686 Toggle Display-Fill-Column-Indicator mode in all buffers. With prefix ARG, enable Global Display-Fill-Column-Indicator 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. Display-Fill-Column-Indicator mode is enabled in all buffers where `display-fill-column-indicator--turn-on' would do it. See `display-fill-column-indicator-mode' for more information on Display-Fill-Column-Indicator mode. `global-display-fill-column-indicator-modes' is used to control which modes this minor mode is used in. (fn &optional ARG) (defalias 'global-display-fill-column-indicator-mode #[256 "\304 \305\301\306=\203\307\301!?\202!\247\203 \310W\203 \311\202!\312\"\210\313\300!\2038\314\301\"\307\301!\2038\301B \203N\315\316\317\"\210\315\320\321\"\210\315\322\323\"\210\202]\324\316\317\"\210\324\320\321\"\210\324\322\323\"\210\325 \211\203\215\211@r\211q\210 \203}\326\327!\210\330\n!\203\205\331 \210\202\205 \203\205\303\332!\210)A\266\202\202_\210\333\334\307\301!\203\232\335\202\233\336\"\210\337\340!\203\304\341\301!\210\304 \203\263\211\304 \232\203\304\342\343\344\307\301!\203\300\345\202\301\346\347$\210\210\350 \210\307\301!\207" [global-minor-modes global-display-fill-column-indicator-mode global-display-fill-column-indicator-modes display-fill-column-indicator-mode current-message set-default toggle default-value 1 nil t boundp delq add-hook after-change-major-mode-hook global-display-fill-column-indicator-mode-enable-in-buffers find-file-hook global-display-fill-column-indicator-mode-check-buffers change-major-mode-hook global-display-fill-column-indicator-mode-cmhh remove-hook buffer-list require easy-mmode easy-mmode--globalized-predicate-p display-fill-column-indicator--turn-on -1 run-hooks global-display-fill-column-indicator-mode-hook global-display-fill-column-indicator-mode-on-hook global-display-fill-column-indicator-mode-off-hook called-interactively-p any customize-mark-as-set message "%s %sabled%s" "Global Display-Fill-Column-Indicator mode" "en" "dis" "" force-mode-line-update] 7 (#$ . 4506) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar global-display-fill-column-indicator-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\314\315\316\317\320DD\321\322\323%\207" [global-display-fill-column-indicator-mode-map global-display-fill-column-indicator-mode-hook variable-documentation put "Hook run after entering or leaving `global-display-fill-column-indicator-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-display-fill-column-indicator-mode boundp custom-declare-variable global-display-fill-column-indicator-modes funcall function #[0 "\300\207" [((not special-mode) t)] 1 ""] "Which major modes `display-fill-column-indicator-mode' is switched on in.\nThis variable can be either t (all major modes), nil (no major modes),\nor a list of modes and (not modes) to switch use this minor mode or\nnot. For instance\n\n (c-mode (not message-mode mail-mode) text-mode)\n\nmeans \"use this mode in all modes derived from `c-mode', don't use in\nmodes derived from `message-mode' or `mail-mode', but do use in other\nmodes derived from `text-mode'\". An element with value t means \"use\"\nand nil means \"don't use\". There's an implicit nil at the end of the\nlist." :type (repeat sexp)] 6) (defvar display-fill-column-indicator-mode-set-explicitly nil nil) (make-variable-buffer-local 'display-fill-column-indicator-mode-set-explicitly) (defalias 'display-fill-column-indicator-mode-set-explicitly #[0 "\301\211\207" [display-fill-column-indicator-mode-set-explicitly t] 2]) (byte-code "\300\301\302\303#\210\304\305\301\"\207" [put display-fill-column-indicator-mode-set-explicitly definition-name global-display-fill-column-indicator-mode add-hook display-fill-column-indicator-mode-hook] 4) (defvar global-display-fill-column-indicator-mode-buffers nil) (defalias 'global-display-fill-column-indicator-mode-enable-in-buffers #[0 "\306\211\211\205M\211@\307!\203Fr\211q\210 \204C\n =\204C\f\2036\304\310!\210\311\312!\210\313 !\203C\314 \210\202C\311\312!\210\313 !\203C\314 \210 )A\266\202\202\207" [global-display-fill-column-indicator-mode-buffers display-fill-column-indicator-mode-set-explicitly display-fill-column-indicator-mode-major-mode major-mode display-fill-column-indicator-mode global-display-fill-column-indicator-modes nil buffer-live-p -1 require easy-mmode easy-mmode--globalized-predicate-p display-fill-column-indicator--turn-on] 5]) (put 'global-display-fill-column-indicator-mode-enable-in-buffers 'definition-name 'global-display-fill-column-indicator-mode) (defalias 'global-display-fill-column-indicator-mode-check-buffers #[0 "\300 \210\301\302\303\"\207" [global-display-fill-column-indicator-mode-enable-in-buffers remove-hook post-command-hook global-display-fill-column-indicator-mode-check-buffers] 3]) (put 'global-display-fill-column-indicator-mode-check-buffers 'definition-name 'global-display-fill-column-indicator-mode) (defalias 'global-display-fill-column-indicator-mode-cmhh #[0 "p\211\235\203 \266\202\211B\210\301\302\303\"\207" [global-display-fill-column-indicator-mode-buffers add-hook post-command-hook global-display-fill-column-indicator-mode-check-buffers] 3]) (byte-code "\300\301\302\303#\210\304\305!\207" [put global-display-fill-column-indicator-mode-cmhh definition-name global-display-fill-column-indicator-mode provide display-fill-column-indicator] 4)