HOME


sh-3ll 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/
Upload File :
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/linum.elc
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; 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)
#@283 Toggle display of line numbers in the left margin (Linum mode).
With a prefix argument ARG, enable Linum mode if ARG is positive,
and disable it otherwise.  If called from Lisp, enable the mode
if ARG is omitted or nil.

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%\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] 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 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 (#$ . 4646) (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 "\211\2056\211@\305!\203/r\211q\210	\204,\n=\204,\f\203)\304\306!\210\307 \210\202,\307 \210)A\266\202\202\207" [global-linum-mode-buffers linum-mode-set-explicitly linum-mode-major-mode major-mode linum-mode buffer-live-p -1 linum-on] 4])
(put 'global-linum-mode-enable-in-buffers 'definition-name 'global-linum-mode)
(defalias 'global-linum-mode-check-buffers #[0 "\301 \210\302\303\304\305\"\207" [global-linum-mode-buffers global-linum-mode-enable-in-buffers nil 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 (#$ . 7959)])
#@45 Update line numbers for the current buffer.
(defalias 'linum-update-current #[0 "\300p!\207" [linum-update] 2 (#$ . 8386)])
#@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 (#$ . 8516)])
#@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 (#$ . 8845)])
#@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 (#$ . 9007)])
#@20 

(fn BEG END LEN)
(defalias 'linum-after-change #[771 "U\204dU\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 (#$ . 10256)])
#@18 

(fn WIN START)
(defalias 'linum-after-scroll #[514 "\300\301!!\207" [linum-update window-buffer] 5 (#$ . 10515)])
(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 (#$ . 10745)])
(provide 'linum)