Current File : //usr/local/share/emacs/27.2/lisp/display-fill-column-indicator.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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 (#$ . 602))
(make-variable-buffer-local 'display-fill-column-indicator-mode)
#@719 Toggle display of fill-column indicator.
This uses `display-fill-column-indicator' internally.
If called interactively, enable Display-Fill-Column-Indicator mode if
ARG is positive, and disable it if ARG is zero or negative. If called
from Lisp, also enable the mode if ARG is omitted or nil, and toggle
it if ARG is `toggle'; disable the mode otherwise.
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.
See Info node `Displaying Boundaries' for details.
(fn &optional ARG)
(defalias 'display-fill-column-indicator-mode #[256 "\303 \304=\203
?\202 \305!\306V\211\203B \307\n\204D \310\311!\203= \312 \2038 \313\314\315\311\"@!\306H\316\317!=\203= \311\202D \320\202D \315\321\322\203N \323\202O \324\"\210\325\326!\203s \303 \203c \211\303 \232\203s \327\330\331\203n \332\202o \333#\266\210\334 \210\207" [display-fill-column-indicator-mode display-fill-column-indicator display-fill-column-indicator-character current-message toggle prefix-numeric-value 0 t char-displayable-p 9474 display-graphic-p query-font internal-char-font nil 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 " in current buffer" message "Display-Fill-Column-Indicator mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 869) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar display-fill-column-indicator-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\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.)" add-minor-mode display-fill-column-indicator-mode nil 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 (#$ . 3062)])
(put 'global-display-fill-column-indicator-mode 'globalized-minor-mode t)
(defvar display-fill-column-indicator-mode-major-mode 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 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 :group display-fill-column-indicator :type boolean] 12)
#@475 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, enable the mode if
ARG is omitted or nil.
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.
(fn &optional ARG)
(defalias 'global-display-fill-column-indicator-mode #[256 "\302 \303\300\304=\203 \305\300!?\202 \306!\307V\"\210\203. \310\311\312\"\210\310\313\314\"\210\310\315\316\"\210\202= \317\311\312\"\210\317\313\314\"\210\317\315\316\"\210\320 \211\203c \211@r\211q\210\203S \321 \210\202[ \203[ \301\322!\210)A\266\202\202? \210\323\324\305\300!\203p \325\202q \326\"\210\327\330!\203\233 \331\300!\210\302 \203\211 \211\302 \232\203\233 \332\333\334\305\300!\203\226 \335\202\227 \336#\266\210\337 \210\305\300!\207" [global-display-fill-column-indicator-mode display-fill-column-indicator-mode current-message set-default toggle default-value prefix-numeric-value 0 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 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 "Global Display-Fill-Column-Indicator mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 4201) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar global-display-fill-column-indicator-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\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.)" add-minor-mode global-display-fill-column-indicator-mode nil boundp] 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 "\305\211\211\2059 \211@\306!\2032 r\211q\210 \204/ \n =\204/ \f\203, \304\307!\210\310 \210\202/ \310 \210 )A\266\202\202 \262\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 nil buffer-live-p -1 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\f \210\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)
Mini Shell