Current File : //usr/local/share/emacs/27.2/lisp/linum.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defconst linum-version "0.9x")
#@31 Overlays used in this buffer.
(defvar linum-overlays nil (#$ . 440))
#@31 Overlays available for reuse.
(defvar linum-available nil (#$ . 515))
#@60 Functions run in each buffer before line numbering starts.
(defvar linum-before-numbering-hook nil (#$ . 591))
(byte-code "\300\301\302\"\210\303\304\305\306\307\310%\210\311\312\313\314\315DD\316\307\304\317\320&\210\321\304\322\323\307\304%\210\311\324\313\314\325DD\326\307\304\317\327&\210\311\330\313\314\331DD\332\307\304\317\327&\207" [mapc make-variable-buffer-local (linum-overlays linum-available) custom-declare-group linum nil "Show line numbers in the left margin." :group convenience custom-declare-variable linum-format funcall function #[0 "\300\207" [dynamic] 1] "Format used to display line numbers.\nEither a format string like \"%7d\", `dynamic' to adapt the width\nas needed, or a function that is called with a line number as its\nargument and should evaluate to a string to be shown on that line.\nSee also `linum-before-numbering-hook'." :type (choice (string :tag "Format string") (const :tag "Dynamic width" dynamic) (function :tag "Function")) custom-declare-face ((t :inherit (shadow default))) "Face for displaying line numbers in the display margin." linum-eager #[0 "\300\207" [t] 1] "Whether line numbers should be updated after each command.\nThe conservative setting nil might miss some buffer changes,\nand you have to scroll or press \\[recenter-top-bottom] to update the numbers." boolean linum-delay #[0 "\300\207" [nil] 1] "Delay updates to give Emacs a chance for other changes."] 8)
#@89 Non-nil if Linum mode is enabled.
Use the command `linum-mode' to change this variable.
(defvar linum-mode nil (#$ . 2024))
(make-variable-buffer-local 'linum-mode)
#@365 Toggle display of line numbers in the left margin (Linum mode).
If called interactively, enable Linum 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.
Linum mode is a buffer-local minor mode.
(fn &optional ARG)
(defalias 'linum-mode #[256 "\303 \304=\203
?\202 \305!\306V\211\203O \203- \307\310\n\203% \311\202& \312\313\314$\210\2024 \307\315\316\313\314$\210\307\317\320\313\314$\210\307\321\322\313\314$\210\307\323\312\313\314$\210\312 \210\202v \324\310\312\314#\210\324\310\311\314#\210\324\317\320\314#\210\324\315\316\314#\210\324\323\312\314#\210\324\321\322\314#\210\322 \210\325\326\203\200 \327\202\201 \330\"\210\331\332!\203\245 \303 \203\225 \211\303 \232\203\245 \333\334\335\203\240 \336\202\241 \337#\266\210\340 \210\207" [linum-mode linum-eager linum-delay current-message toggle prefix-numeric-value 0 add-hook post-command-hook linum-schedule linum-update-current nil t after-change-functions linum-after-change window-scroll-functions linum-after-scroll change-major-mode-hook linum-delete-overlays window-configuration-change-hook remove-hook run-hooks linum-mode-hook linum-mode-on-hook linum-mode-off-hook called-interactively-p any " in current buffer" message "Linum mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 2196) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar linum-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \311\211%\210\303\312\313\314#\207" [linum-mode-map linum-mode-hook variable-documentation put "Hook run after entering or leaving `linum-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 linum-mode "" boundp nil global-linum-mode globalized-minor-mode t] 6)
(defvar linum-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 linum-mode-major-mode custom-declare-variable global-linum-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Global Linum mode is enabled.\nSee the `global-linum-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-linum-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group global-linum :type boolean] 12)
#@325 Toggle Linum mode in all buffers.
With prefix ARG, enable Global Linum mode if ARG is positive;
otherwise, disable it. If called from Lisp, enable the mode if
ARG is omitted or nil.
Linum mode is enabled in all buffers where
`linum-on' would do it.
See `linum-mode' for more information on Linum mode.
(fn &optional ARG)
(defalias 'global-linum-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-linum-mode linum-mode current-message set-default toggle default-value prefix-numeric-value 0 add-hook after-change-major-mode-hook global-linum-mode-enable-in-buffers find-file-hook global-linum-mode-check-buffers change-major-mode-hook global-linum-mode-cmhh remove-hook buffer-list linum-on -1 run-hooks global-linum-mode-hook global-linum-mode-on-hook global-linum-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Global Linum mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 4798) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar global-linum-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [global-linum-mode-map global-linum-mode-hook variable-documentation put "Hook run after entering or leaving `global-linum-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-linum-mode nil boundp] 6)
(defvar linum-mode-set-explicitly nil nil)
(make-variable-buffer-local 'linum-mode-set-explicitly)
(defalias 'linum-mode-set-explicitly #[0 "\301\211\207" [linum-mode-set-explicitly t] 2])
(byte-code "\300\301\302\303#\210\304\305\301\"\207" [put linum-mode-set-explicitly definition-name global-linum-mode add-hook linum-mode-hook] 4)
(defvar global-linum-mode-buffers nil)
(defalias 'global-linum-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-linum-mode-buffers linum-mode-set-explicitly linum-mode-major-mode major-mode linum-mode nil buffer-live-p -1 linum-on] 5])
(put 'global-linum-mode-enable-in-buffers 'definition-name 'global-linum-mode)
(defalias 'global-linum-mode-check-buffers #[0 "\300 \210\301\302\303\"\207" [global-linum-mode-enable-in-buffers remove-hook post-command-hook global-linum-mode-check-buffers] 3])
(put 'global-linum-mode-check-buffers 'definition-name 'global-linum-mode)
(defalias 'global-linum-mode-cmhh #[0 "p\211\235\203\f \210\202 \211B\210\301\302\303\"\207" [global-linum-mode-buffers add-hook post-command-hook global-linum-mode-check-buffers] 3])
(put 'global-linum-mode-cmhh 'definition-name 'global-linum-mode)
(defalias 'linum-on #[0 "\300 \206 \301 \205 \302\303\304\"??\205 \305\306!\207" [minibufferp daemonp frame-parameter nil client linum-mode 1] 3])
#@62 Delete all overlays displaying line numbers for this buffer.
(defalias 'linum-delete-overlays #[0 "\301\302\"\210\303\304p\303\305#\211\2059 \211@\306\307\"\310!\2030 \232\2030 \311\312A#\210\313\307\303#\210\266A\266\202\202\f \207" [linum-overlays mapc delete-overlay nil get-buffer-window-list t window-parameter linum--set-margins window-margins set-window-margins 0 set-window-parameter] 8 (#$ . 8094)])
#@45 Update line numbers for the current buffer.
(defalias 'linum-update-current #[0 "\300p!\207" [linum-update] 2 (#$ . 8521)])
#@69 Update line numbers for all windows displaying BUFFER.
(fn BUFFER)
(defalias 'linum-update #[257 "r\211q\210\205 \303\212\304\305\306\303\307#\"\210)\304\310\n\"\210\303\211)\207" [linum-mode linum-overlays linum-available nil mapc linum-update-window get-buffer-window-list visible delete-overlay] 7 (#$ . 8651)])
#@13
(fn FACE)
(defalias 'linum--face-width #[257 "\300\301!!\302\303H\262\211\304X\203 \305H\262\207" [font-info face-font nil 11 0 10] 5 (#$ . 8980)])
#@70 Update line numbers for the portion visible in window WIN.
(fn WIN)
(defalias 'linum-update-window #[257 "\304!b\210\305 \306\307\";\203 \202) \310=\205) \311\312ed\"!G\313\311!\314Q\262\315\316\317!\210m\204\306 `W\203\306 \203H \320\321\"\322\323#\202K !\3242\201 \325``\"\211\205~ \211@\326\327\330\"\"\203w \211 >\204m \211 B\331\n\"\332\324\307\"\210A\266\202\202S \2620G]\262\211\204\267 \n\204\226 \333``\"\202\237 \334\n\211A\242``#\211 B\335\336\320\337\340\341 D##\210\335\330#\266\266\307\342y\210)T\262\202. \343 \203\331 \344\345\346\347\323!#\350 \245!\262\351!@\206\343 \315V\205\370 \352A#\210\353\354\351 !#\262\207" [linum-format linum-overlays linum-available inhibit-point-motion-hooks window-start line-number-at-pos window-end t dynamic number-to-string count-lines "%" "d" 0 run-hooks linum-before-numbering-hook propertize format face linum visited overlays-in equal-including-properties overlay-get linum-str delq throw make-overlay move-overlay overlay-put before-string " " display (margin left-margin) nil display-graphic-p ceiling * 1.0 linum--face-width frame-char-width window-margins set-window-margins set-window-parameter linum--set-margins] 16 (#$ . 9142)])
#@20
(fn BEG END LEN)
(defalias 'linum-after-change #[771 "U\204 dU\204 \301\302\"\303\304\305#)\266\203\205! \306 \207" [inhibit-changing-match-data "\n" buffer-substring-no-properties nil t string-match linum-update-current] 10 (#$ . 10391)])
#@18
(fn WIN START)
(defalias 'linum-after-scroll #[514 "\300\301!!\207" [linum-update window-buffer] 5 (#$ . 10650)])
(defalias 'linum-schedule #[0 "\300\301\302\303#\207" [run-with-idle-timer 0 nil linum-update-current] 4])
#@27 Unload the Linum library.
(defalias 'linum-unload-function #[0 "\300\301!\210\302\207" [global-linum-mode -1 nil] 2 (#$ . 10880)])
(provide 'linum)
Mini Shell