-
Notifications
You must be signed in to change notification settings - Fork 0
/
linum.elc
67 lines (61 loc) · 8.92 KB
/
linum.elc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
;ELC
;;; Compiled by shant@ultraio on Sat Sep 27 19:36:33 2014
;;; from file /home/shant/.emacs.d/linum.el
;;; in Emacs version 24.3.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.9wza")
#@31 Overlays used in this buffer.
(defvar linum-overlays nil (#$ . 533))
#@31 Overlays available for reuse.
(defvar linum-available nil (#$ . 608))
#@60 Functions run in each buffer before line numbering starts.
(defvar linum-before-numbering-hook nil (#$ . 684))
(byte-code "\300\301\302\"\210\303\304\305\306\307\310%\210\311\312\313\314\307\304\315\316&\210\317\304\320\321\307\304%\210\311\322\323\324\307\304\315\325&\210\311\326\305\327\307\304\315\325&\207" [mapc make-variable-buffer-local (linum-overlays linum-available) custom-declare-group linum nil "Show line numbers to the left of buffers" :group convenience custom-declare-variable linum-format 'dynamic "Format used to display line numbers. Either a format string\nlike \"%7d\", 'dynamic to adapt the width as needed, or a\nfunction that is called with a line number as its argument and\nshould evaluate to a string to be shown on that line. See also\n`linum-before-numbering-hook'." :type sexp custom-declare-face ((t :inherit (shadow default))) "Face for displaying line numbers in the display margin." linum-eager t "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 C-l to update the numbers." boolean linum-delay "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 (#$ . 1893))
(make-variable-buffer-local 'linum-mode)
#@59 Toggle display of line numbers in the left marginal area.
(defalias 'linum-mode #[(&optional arg) "\305 \306=\203 \n?\202 \307 !\310V\211\203U \203. \311\312\f\203& \313\202' \314\315\316$\210\2025 \311\317\320\315\316$\210\311\321\322\315\316$\210\311\323\324\"\210\311\325\326\315\316$\210\311\327\330\315\316$\210\314 \210\202\201 \331\312\314\316#\210\331\312\313\316#\210\331\323\324\"\210\331\321\322\316#\210\331\317\320\316#\210\331\327\330\316#\210\331\325\326\316#\210\326 \210\332\333\n\203\213 \334\202\214 \335\"\210\336\337!\203\255 \305 \203\240 \305 \232\203\255 \340\341\n\203\252 \342\202\253 \343\"\210)\344 \210\n\207" [#1=#:last-message arg 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 window-size-change-functions linum-after-size change-major-mode-hook linum-delete-overlays window-configuration-change-hook linum-after-config remove-hook run-hooks linum-mode-hook linum-mode-on-hook linum-mode-off-hook called-interactively-p any message "Linum mode %sabled" "en" "dis" force-mode-line-update] 6 (#$ . 2064) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n \305\211%\207" [linum-mode-map add-minor-mode linum-mode "" boundp nil] 6)
(defvar linum-mode-major-mode nil)
(byte-code "\300\301!\210\302\303\304\305\306\307\310\311\312\313\314\315& \207" [make-variable-buffer-local linum-mode-major-mode custom-declare-variable global-linum-mode nil "Non-nil if Global-Linum mode is enabled.\nSee the command `global-linum-mode' for 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)
#@305 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.
(defalias 'global-linum-mode #[(&optional arg) "\306 \307=\203 \n?\202 \310 !\311V\211\203/ \312\313\314\"\210\312\315\314\"\210\312\316\317\"\210\312\320\321\"\210\202C \322\313\314\"\210\322\315\314\"\210\322\316\317\"\210\322\320\321\"\210\323 \324\211 \203m \f@r q\210\n\203] \325 \210\202e \203e \305\326!\210)\fA\211\204L *\327\330\n\203x \331\202y \332\"\210\333\334!\203\236 \335\302!\210\306 \203\221 \306 \232\203\236 \336\337\n\203\233 \340\202\234 \341\"\210)\342 \210\n\207" [#1=#:last-message arg global-linum-mode buf --dolist-tail-- linum-mode current-message toggle prefix-numeric-value 0 add-hook after-change-major-mode-hook global-linum-mode-enable-in-buffers change-major-mode-after-body-hook find-file-hook global-linum-mode-check-buffers change-major-mode-hook global-linum-mode-cmhh remove-hook buffer-list nil 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" "en" "dis" force-mode-line-update] 4 (#$ . 4043) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n \303\211%\207" [global-linum-mode-map add-minor-mode global-linum-mode nil boundp] 6)
(defvar global-linum-mode-buffers nil)
(defalias 'global-linum-mode-enable-in-buffers #[nil "\306\211\2059 \n@\307 !\2031 r q\210 \f=\2040 \203+ \305\310!\210\311 \210\f\2020 \311 \210\f)\nA\211\204 \306*\207" [global-linum-mode-buffers buf --dolist-tail-- linum-mode-major-mode major-mode linum-mode nil buffer-live-p -1 linum-on] 3])
(put 'global-linum-mode-enable-in-buffers 'definition-name 'global-linum-mode)
(defalias 'global-linum-mode-check-buffers #[nil "\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 #[nil "\300\301p\"\210\302\303\304\"\207" [add-to-list 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 #[nil "\300 ?\205 \301\302!\207" [minibufferp linum-mode 1] 2])
#@62 Delete all overlays displaying line numbers for this buffer.
(defalias 'linum-delete-overlays #[nil "\303\304\"\210\305\306p\305\307#\305\211\205# \n@\310 \311\"\210\nA\211\204 \305*\207" [linum-overlays w --dolist-tail-- mapc delete-overlay nil get-buffer-window-list t set-window-margins 0] 5 (#$ . 6645)])
#@45 Update line numbers for the current buffer.
(defalias 'linum-update-current #[nil "\300p!\207" [linum-update] 2 (#$ . 6967)])
#@56 Update line numbers for all windows displaying BUFFER.
(defalias 'linum-update #[(buffer) "rq\210 \205 \n\304\212\305\306\307\304\310#\"\210)\305\311 \"\210\304\211)\207" [buffer linum-mode linum-overlays linum-available nil mapc linum-update-window get-buffer-window-list visible delete-overlay] 6 (#$ . 7099)])
#@60 Update line numbers for the portion visible in window WIN.
(defalias 'linum-update-window #[(win) "\306!b\210\307 \310\311\" ;\203 \202) \312=\205) \313\314ed\"!G\315\313\n!\316Q)\317 \"\320\321!\210m\204\245 `X\203\245 \f\203M \322\323\f\"\"\324\325#\202Q \"! #\326\327\215 #G]\204\231 $\204o \330``\"\202z \331$\211A$@``#\211 %&B&\332%\333\322\334\335\336#D##\210\332%\337##\210)*\340y\210\"T\"\2023 \341 \",\207" [win linum-format w width fmt limit 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 (byte-code "\305``\"\306\211\2053 @\307\310\"\n\230\203+ >\204! B\311\f\"\312\313\314\"\210 A\211\204 \306*\207" [o --dolist-tail-- str linum-overlays linum-available overlays-in nil overlay-get linum-str delete throw visited t] 4) make-overlay move-overlay overlay-put before-string " " display (margin left-margin) linum-str nil set-window-margins line str linum-available ov linum-overlays] 9 (#$ . 7424)])
(defalias 'linum-after-change #[(beg end len) " U\204 dU\204 \302\303\304 \"\"\205 \305 \207" [beg end string-match "\n" buffer-substring-no-properties linum-update-current] 5])
(defalias 'linum-after-scroll #[(win start) "\301\302!!\207" [win linum-update window-buffer] 3])
(defalias 'linum-after-size #[(frame) "\300 \207" [linum-after-config] 1])
(defalias 'linum-schedule #[nil "\300\301\302\303#\207" [run-with-idle-timer 0 nil linum-update-current] 4])
(defalias 'linum-after-config #[nil "\300\301\302\303#\207" [walk-windows #[(w) "\301\302!!\207" [w linum-update window-buffer] 3] nil visible] 4])
(provide 'linum)