;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; 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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\307\306\301\310\311& \210\312\313\314\315\316DD\317\320\321%\210\312\322\314\315\323DD\324\320\321%\210\325\326\327\330#\207" [require linum custom-declare-group nlinum nil "Show line numbers in the margin, (hopefully) more efficiently." :group convenience :prefix "nlinum" custom-declare-variable nlinum-highlight-current-line funcall function #[0 "\300\207" [nil] 1] "Whether the current line number should be highlighted.\nWhen non-nil, the current line number is highlighted in `nlinum-current-line'\nface." :type boolean nlinum-widen #[0 "\300\207" [nil] 1] "If nil, count lines within the current narrowing only." custom-declare-face nlinum-current-line ((t :inherit linum :weight bold)) "Face for displaying current line."] 10) (defvar nlinum--width 2) (make-variable-buffer-local 'nlinum--width) #@28 Store current line number. (defvar nlinum--current-line 0 (#$ . 1258)) (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311%\207" [make-variable-buffer-local nlinum--current-line custom-declare-variable nlinum-use-right-margin funcall function #[0 "\300\207" [nil] 1] "If non-nil, put line numbers in the right margin instead of the left one." :type boolean] 6) (defvar nlinum--using-right-margin nil) (make-variable-buffer-local 'nlinum--using-right-margin) #@91 Non-nil if Nlinum mode is enabled. Use the command `nlinum-mode' to change this variable. (defvar nlinum-mode nil (#$ . 1730)) (make-variable-buffer-local 'nlinum-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 'nlinum-mode #[256 "\304 \305=\203 ?\202\306!\307V\310\311!\210\312\313\314\315#\210\312\316\314\315#\210\312\317\320\315#\210\312\321\322\315#\210\312\323\324\315#\210\325\326!\210\325\327!\210\330ed\331\332$\210\325\333!\210\334\301!\203^ \n=\204^\335\336 \210)\325\301!\210\n\203\225\337\340\341\"\210\337\316\314\335\315$\210\337\313\314\335\332$\210\337\317\320\335\315$\210\337\323\324\335\315$\210 \203\220\337\321\322\335\315$\210\342\311\343\"\210\344 \210\345\346\203\242\347\202\243\350\"\210\351\352!\203\307\304 \203\267\211\304 \232\203\307\353\354\355\203\302\356\202\303\357#\266\210\360 \210\207" [nlinum-mode nlinum--using-right-margin nlinum-use-right-margin nlinum-highlight-current-line current-message toggle prefix-numeric-value 0 jit-lock-unregister nlinum--region remove-hook window-configuration-change-hook nlinum--setup-window :local text-scale-mode-hook after-change-functions nlinum--after-change post-command-hook nlinum--current-line-update pre-redisplay-functions nlinum--check-narrowing kill-local-variable nlinum--line-number-cache nlinum--last-point-min remove-overlays nlinum t nlinum--width local-variable-p nil nlinum--flush add-hook change-major-mode-hook #[0 "\300\301!\207" [nlinum-mode -1] 2] jit-lock-register :contextual nlinum--setup-windows run-hooks nlinum-mode-hook nlinum-mode-on-hook nlinum-mode-off-hook called-interactively-p any " in current buffer" message "Nlinum mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 1906) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)]) (defvar nlinum-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\207" [nlinum-mode-map nlinum-mode-hook variable-documentation put "Hook run after entering or leaving `nlinum-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 nlinum-mode nil boundp] 6) #@13 (fn FACE) (defalias 'nlinum--face-height #[257 "\300\301!!\302H\207" [font-info face-font 3] 4 (#$ . 4182)]) #@13 (fn FACE) (defalias 'nlinum--face-width #[257 "\300\301!!\211G\302V\205\211\302H\211\303X\203\304H\202\211\262\207" [font-info face-font 11 0 10] 5 (#$ . 4300)]) (defalias 'nlinum--setup-window #[0 "\303 \203(\304\305\306!\211\203\307\310#\311 \245\202\"\307\312\313\306!#\314 \245\262!\202)\315 \2034\211A\2026\211@\316\317\320\"\211\203L\211A=\204V\211\240\210\202V\321\317\320C\211\262#\210\211@\203e\203e@]\262\211\241\210\322\323\317\n\203u\202w@ \203\203@D\202\210\211AD\262#\207" [nlinum--width nlinum--using-right-margin nlinum-mode display-graphic-p ceiling nlinum--face-width linum * 1.0 frame-char-width 1.0 nlinum--face-height frame-char-height window-margins window-parameter nil linum--margin set-window-parameter apply set-window-margins] 10]) (defalias 'nlinum--setup-windows #[0 "\300\301\211\302#\211\205-\211@\303!r\304\305\306\307\310!\311\"\312$\216\313@\314\"\210\315 \210*\210A\266\202\202\207" [get-buffer-window-list nil t internal--before-with-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord nlinum--setup-window] 9]) (defalias 'nlinum--flush #[0 "\300 \210\212\214~\210\301ed\302\303$\210\304\305\306\307p$*\207" [nlinum--setup-windows remove-overlays nlinum t run-with-timer 0 nil #[257 "r\211q\210\303 \304\211\304\305\306\307\310\311!\312\"\313$\216\212\214~\210\314ed\315#.\262)\207" [buffer-undo-list inhibit-read-only inhibit-modification-hooks buffer-modified-p t make-byte-code 0 "\300?\205\301\302!\207" vconcat vector [restore-buffer-modified-p nil] 2 remove-text-properties (fontified)] 9 "\n\n(fn BUF)"]] 5]) #@29 Update current line number. (defalias 'nlinum--current-line-update #[0 "\212\304y\210\305 )\211Z\306\211\304U?\205Q\307!\203(\310 \262\311T!\262\2022\310T!\262\311 \262\312 \313\211\313\314\304\315\316\317!\320\"\321$\216\322dT^\323#,\262\266\203\207" [nlinum--current-line buffer-undo-list inhibit-read-only inhibit-modification-hooks 0 nlinum--line-number-at-pos nil natnump line-beginning-position line-end-position buffer-modified-p t make-byte-code "\300?\205\301\302!\207" vconcat vector [restore-buffer-modified-p nil] 2 remove-text-properties (fontified)] 12 (#$ . 6000)]) (defvar nlinum--line-number-cache nil) (make-variable-buffer-local 'nlinum--line-number-cache) #@19 (fn &rest ARGS) (defalias 'nlinum--after-change #[128 "\301\211\207" [nlinum--line-number-cache nil] 3 (#$ . 6705)]) (defvar nlinum--last-point-min nil) (make-variable-buffer-local 'nlinum--last-point-min) #@22 (fn &optional WIN) (defalias 'nlinum--check-narrowing #[256 "\303e\"?\205 \204\304\305 \210e\306 \207" [nlinum--last-point-min nlinum-widen nlinum--line-number-cache eql nil nlinum--current-line-update nlinum--flush] 4 (#$ . 6920)]) #@90 Like `line-number-at-pos' but sped up with a cache. Only works right if point is at BOL. (defalias 'nlinum--line-number-at-pos #[0 "\203\212\214~\210\302y\210\303\304 +\207 \2039`eZ\305` @Z!V\2039` @V\203-\306\202.\307 A\310` @\"\"\202;\311 `B\211\207" [nlinum-widen nlinum--line-number-cache 0 nil nlinum--line-number-at-pos abs + - count-lines line-number-at-pos] 5 (#$ . 7168)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable nlinum-format funcall function #[0 "\300\207" [#1="%d"] 1 #1#] "Format of the line numbers.\nUsed by the default `nlinum-format-function'." :type string :group linum] 8) #@284 Function to build the string representing the line number. Takes 2 arguments LINE and WIDTH, both of them numbers, and should return a string. WIDTH is the ideal width of the result. If the result is larger, it may cause the margin to be resized and line numbers to be recomputed. (defvar nlinum-format-function #[514 "U\303 \"\211GW\203\304GZ\305\"P\262\306\307\310\n\203)\203)\311\202*\312%\210\207" [nlinum--current-line nlinum-format nlinum-highlight-current-line format make-string 32 put-text-property 0 face nlinum-current-line linum] 10 "\n\n(fn LINE WIDTH)"] (#$ . 7825)) #@20 (fn START LIMIT) (defalias 'nlinum--region #[514 "\212\304b\210n\204 \305y\210\306`\307\304$\210\310 m\204i`W\203i\311``T\" \n\"\312! \2034\313\2025\314\nW\203@\315 \210\316\307\304#\210\316\317\304#\210\316\320\321\322\323\324D D##\210T\262\305y\325U\266\204\204\210*\326\207" [inhibit-point-motion-hooks nlinum-format-function nlinum--width nlinum--using-right-margin t 1 remove-overlays nlinum nlinum--line-number-at-pos make-overlay string-width right-margin left-margin nlinum--flush overlay-put evaporate before-string propertize " " display margin 0 nil] 15 (#$ . 8430)]) (defvar nlinum-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 nlinum-mode-major-mode custom-declare-variable global-nlinum-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Global Nlinum mode is enabled.\nSee the `global-nlinum-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-nlinum-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group nlinum :type boolean] 12) #@371 Toggle Nlinum mode in all buffers. With prefix ARG, enable Global Nlinum mode if ARG is positive; otherwise, disable it. If called from Lisp, enable the mode if ARG is omitted or nil. Nlinum mode is enabled in all buffers where `(lambda nil (unless (minibufferp) (nlinum-mode)))' would do it. See `nlinum-mode' for more information on Nlinum mode. (fn &optional ARG) (defalias 'global-nlinum-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\203h\211@r\211q\210\203X\321 \204`\301 \210\202` \203`\301\322!\210)A\266\202\202?\210\323\324\305\300!\203u\325\202v\326\"\210\327\330!\203\240\331\300!\210\302 \203\216\211\302 \232\203\240\332\333\334\305\300!\203\233\335\202\234\336#\266\210\337 \210\305\300!\207" [global-nlinum-mode nlinum-mode current-message set-default toggle default-value prefix-numeric-value 0 add-hook after-change-major-mode-hook global-nlinum-mode-enable-in-buffers find-file-hook global-nlinum-mode-check-buffers change-major-mode-hook global-nlinum-mode-cmhh remove-hook buffer-list minibufferp -1 run-hooks global-nlinum-mode-hook global-nlinum-mode-on-hook global-nlinum-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Global Nlinum mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 9684) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)]) (defvar global-nlinum-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\207" [global-nlinum-mode-map global-nlinum-mode-hook variable-documentation put "Hook run after entering or leaving `global-nlinum-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-nlinum-mode nil boundp] 6) (defvar nlinum-mode-set-explicitly nil nil) (make-variable-buffer-local 'nlinum-mode-set-explicitly) (defalias 'nlinum-mode-set-explicitly #[0 "\301\211\207" [nlinum-mode-set-explicitly t] 2]) (byte-code "\300\301\302\303#\210\304\305\301\"\207" [put nlinum-mode-set-explicitly definition-name global-nlinum-mode add-hook nlinum-mode-hook] 4) (defvar global-nlinum-mode-buffers nil) (defalias 'global-nlinum-mode-enable-in-buffers #[0 "\305\211\211\205C\211@\306!\203<r\211q\210 \2049\n =\2049\f\2031\304\307!\210\310 \2049\304 \210\2029\310 \2049\304 \210 )A\266\202\202\262\207" [global-nlinum-mode-buffers nlinum-mode-set-explicitly nlinum-mode-major-mode major-mode nlinum-mode nil buffer-live-p -1 minibufferp] 5]) (put 'global-nlinum-mode-enable-in-buffers 'definition-name 'global-nlinum-mode) (defalias 'global-nlinum-mode-check-buffers #[0 "\300 \210\301\302\303\"\207" [global-nlinum-mode-enable-in-buffers remove-hook post-command-hook global-nlinum-mode-check-buffers] 3]) (put 'global-nlinum-mode-check-buffers 'definition-name 'global-nlinum-mode) (defalias 'global-nlinum-mode-cmhh #[0 "p\211\235\203\f\210\202\211B\210\301\302\303\"\207" [global-nlinum-mode-buffers add-hook post-command-hook global-nlinum-mode-check-buffers] 3]) (byte-code "\300\301\302\303#\210\304\305!\207" [put global-nlinum-mode-cmhh definition-name global-nlinum-mode provide nlinum] 4)