Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
48 lines (40 sloc) 3.41 KB
;ELC
;;; Compiled by tyraeltong@gmail.com on Wed Feb 1 22:44:40 2012
;;; from file /Users/tyraeltong/.emacs.d/linum+.el
;;; in Emacs version 24.0.92.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\302\303\304\305\306\307%\207" [require linum custom-declare-group linum+ nil "Extension of `linum-mode'." :prefix "linum+-"] 6)
#@730 Format used to display line numbers.
+ Either a format string like "%7d",
+ or `smart' to smart adapt the width by current max visible line number.
+ or `dynamic' to adapt the width as needed,
+ or a vector with one string element which uesed to generate
line number format by `format' with argument max visible line number
of current buffer, see example `linum+-smart-format'
+ or a list with one string element which uesed to generate
line number format by `format' with argument max line number of current buffer,
see example `linum+-dynamic-format'
+ or a function that is called with a line number as its
argument and should evaluate to a string to be shown on that line.
See also `linum-before-numbering-hook'.
(custom-declare-variable 'linum-format ''smart '(#$ . 671) :group 'linum :type 'sexp)
(byte-code "\301\211\207" [linum-format smart] 2)
#@78 Format used to generate line number format when `linum-format' is `dynamic'.
(custom-declare-variable 'linum+-dynamic-format '"%%%dd|" '(#$ . 1543) :group 'linum+ :type 'sexp)
#@76 Format used to generate line number format when `linum-format' is `smart'.
(custom-declare-variable 'linum+-smart-format '"%%%dd|" '(#$ . 1725) :group 'linum+ :type 'sexp)
#@75 Generate line number format by FORMAT-TYPE, LIMIT is `window-end' of win.
(defalias 'linum+-generate-linum-format #[(format-type limit) ";\203\207<\204\306!\204\307=\204\310=\205n\306!\206'\310=\307=\2032\n\202=\310=\203< \202=\311\312 \203H \202Id!!G \f<\203X\f@\202e\306\f!\203d\f\313H\202e\f\314 \",\207" [format-type dynamic-width linum+-dynamic-format linum+-smart-format old-format limit vectorp dynamic smart number-to-string line-number-at-pos 0 format w new-format] 3 (#$ . 1903)])
#@60 Update line numbers for the portion visible in window WIN.
(defalias 'linum-update-window #[(win) "\306!b\210\307 \310\311\"\312 \n\"\313\314\315!\210m\204\206`\nX\203\206\f\2031\316\317\f \"\320\321#\2024 !\322\323\215 G]\204|\204R\324``\"\202]\325\211A@``#\211 !B!\326 \327\316\330\331\332D##\210\326 \333#\210)*\334y\210 T\202\335 \",\207" [win line limit linum-format fmt width window-start line-number-at-pos window-end t linum+-generate-linum-format 0 run-hooks linum-before-numbering-hook propertize format face linum visited (byte-code "\305``\"\306\211\2054 @\307\310\311\"\n\"\203, >\204\" B\312\f\"\313\314\315\"\210 A\211\204 \306*\207" [o #1=#:--cl-dolist-temp-- str linum-overlays linum-available overlays-in nil equal-including-properties overlay-get linum-str delq throw visited t] 5) make-overlay move-overlay overlay-put before-string " " display (margin left-margin) linum-str nil set-window-margins str linum-available ov linum-overlays] 9 (#$ . 2439)])
(provide 'linum+)