| Server IP : 217.160.0.212 / Your IP : 216.73.216.141 Web Server : Apache System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/ |
Upload File : |
;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\312&\210\313\314\315\316\317DD\320\321\322%\207" [require scroll-bar fringe custom-declare-group ruler-mode nil "Display a ruler in the header line." :version "22.1" :group convenience custom-declare-variable ruler-mode-show-tab-stops funcall function #[0 "\300\207" [nil] 1 ""] "If non-nil the ruler shows tab stop positions.\nAlso allowing to visually change `tab-stop-list' setting using\n<C-down-mouse-1> and <C-down-mouse-3> on the ruler to respectively add\nor remove a tab stop. \\[ruler-mode-toggle-show-tab-stops] or\n<C-down-mouse-2> on the ruler toggles showing/editing of tab stops." :type boolean] 8) #@62 Ensure WIDGET value is a valid character value. (fn WIDGET) (defalias 'ruler-mode-character-validate #[257 "\212\300!\301!?\205 \302\303\304\305\"#\210\262)\207" [widget-value characterp widget-put :error format "Invalid character value: %S"] 8 (#$ . 767)]) (byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\313%\210\300\314\302\303\315DD\316\306\317%\210\300\320\302\303\321DD\322\306\323%\210\300\324\302\303\325DD\326\306\327%\210\300\330\302\303\331DD\332\306\333%\210\300\334\302\303\335DD\336\306\337%\210\300\340\302\303\341DD\342\306\343%\210\344\345\346\347#\210\344\350\351\352#\210\344\353\354\355#\210\344\356\357\360#\210\344\361\362\363#\210\344\364\365\366#\210\344\367\370\371#\210\344\372\373\374#\210\344\375\376\377#\210\344\201@ \201A \201B #\207" [custom-declare-variable ruler-mode-fill-column-char funcall function #[0 "\300\301!\203 \301\207\302\207" [char-displayable-p 182 124] 2 #1=""] "Character used at the `fill-column' location." :type (choice (character :tag "Character") (integer :tag "Integer char value" :validate ruler-mode-character-validate)) ruler-mode-comment-column-char #[0 "\300\207" [35] 1 #1#] "Character used at the `comment-column' location." (choice (character :tag "Character") (integer :tag "Integer char value" :validate ruler-mode-character-validate)) ruler-mode-goal-column-char #[0 "\300\207" [71] 1 #1#] "Character used at the `goal-column' location." (choice (character :tag "Character") (integer :tag "Integer char value" :validate ruler-mode-character-validate)) ruler-mode-current-column-char #[0 "\300\301!\203 \301\207\302\207" [char-displayable-p 166 64] 2 #1#] "Character used at the `current-column' location." (choice (character :tag "Character") (integer :tag "Integer char value" :validate ruler-mode-character-validate)) ruler-mode-tab-stop-char #[0 "\300\207" [84] 1 #1#] "Character used at `tab-stop-list' locations." (choice (character :tag "Character") (integer :tag "Integer char value" :validate ruler-mode-character-validate)) ruler-mode-basic-graduation-char #[0 "\300\207" [46] 1 #1#] "Character used for basic graduations." (choice (character :tag "Character") (integer :tag "Integer char value" :validate ruler-mode-character-validate)) ruler-mode-inter-graduation-char #[0 "\300\207" [33] 1 #1#] "Character used for intermediate graduations." (choice (character :tag "Character") (integer :tag "Integer char value" :validate ruler-mode-character-validate)) ruler-mode-set-goal-column-ding-flag #[0 "\300\207" [t] 1 #1#] "Non-nil means do `ding' when `goal-column' is set." boolean custom-declare-face ruler-mode-default ((((type tty)) (:inherit default :background "grey64" :foreground "grey50")) (t (:inherit default :background "grey76" :foreground "grey64" :box (:color "grey76" :line-width 1 :style released-button)))) "Default face used by the ruler." ruler-mode-pad ((((type tty)) (:inherit ruler-mode-default :background "grey50")) (t (:inherit ruler-mode-default :background "grey64"))) "Face used to pad inactive ruler areas." ruler-mode-margins ((t (:inherit ruler-mode-default :foreground "white"))) "Face used to highlight margin areas." ruler-mode-fringes ((t (:inherit ruler-mode-default :foreground "green"))) "Face used to highlight fringes areas." ruler-mode-column-number ((t (:inherit ruler-mode-default :foreground "black"))) "Face used to highlight number graduations." ruler-mode-fill-column ((t (:inherit ruler-mode-default :foreground "red"))) "Face used to highlight the fill column character." ruler-mode-comment-column ((t (:inherit ruler-mode-default :foreground "red"))) "Face used to highlight the comment column character." ruler-mode-goal-column ((t (:inherit ruler-mode-default :foreground "red"))) "Face used to highlight the goal column character." ruler-mode-tab-stop ((t (:inherit ruler-mode-default :foreground "steelblue"))) "Face used to highlight tab stop characters." ruler-mode-current-column ((t (:inherit ruler-mode-default :weight bold :foreground "yellow"))) "Face used to highlight the `current-column' character."] 6) #@47 Return the full width of the selected window. (defalias 'ruler-mode-full-window-width #[0 "\300 \3018@Z\207" [window-edges 2] 3 (#$ . 4862)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put ruler-mode-full-window-width speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@186 Return a column number relative to the selected window. N is a column number relative to selected frame. If required, account for screen estate taken by `display-line-numbers'. (fn N) (defalias 'ruler-mode-window-col #[257 "\203 \211\301\302\303!!Z\262\304\305 @\206 \306\307\310\211\203 \311\202! \312\307=\203+ \313\202, \314\315 !\2063 \306\316\317 !\"\266\202\320\307!$\207" [display-line-numbers round line-number-display-width columns - window-margins 0 left nil / ceiling car cadr window-fringes float frame-char-width scroll-bar-columns] 10 (#$ . 5167)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put ruler-mode-window-col speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@126 Set left margin end to the graduation where the mouse pointer is on. START-EVENT is the mouse click event. (fn START-EVENT) (defalias 'ruler-mode-mouse-set-left-margin #[257 "\300!\301!\302\211\211\211=\205p \303 r\304\305\"\216\306\211@\262!\210\307!@\310\311!Z\262\312 \3138@Z\262\310\311!Z\310\314!Z\262\315Y\205m W\205m \316 \262A\206V \315\262@\206^ \315\262\317\320#\210\321\302#*\262\207" [event-start event-end nil internal--before-save-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2] select-window posn-col-row scroll-bar-columns left window-edges 2 right 0 window-margins message "Left margin set to %d (was %d)" set-window-margins] 12 (#$ . 5892) "e"]) #@133 Set right margin beginning to the graduation where the mouse pointer is on. START-EVENT is the mouse click event. (fn START-EVENT) (defalias 'ruler-mode-mouse-set-right-margin #[257 "\300!\301!\302\211\211\211=\205v \303 r\304\305\"\216\306\211@\262!\210\307!@\310\311!Z\262\312 \3138@Z\262\310\311!Z\310\314!Z\262\315Y\205s W\205s \316 \262A\206V \315\262@\206^ \315\262ZS\262\317\320#\210\321\302#*\262\207" [event-start event-end nil internal--before-save-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2] select-window posn-col-row scroll-bar-columns left window-edges 2 right 0 window-margins message "Right margin set to %d (was %d)" set-window-margins] 12 (#$ . 6640) "e"]) #@125 Column symbol dragged in the ruler. That is `fill-column', `comment-column', `goal-column', or nil when nothing is dragged. (defvar ruler-mode-dragged-symbol nil (#$ . 7406)) #@171 Compute scaled text width according to current font scaling. Convert a width of char units into a text-scaled char width units, for example `window-hscroll'. (fn WIDTH) (defalias 'ruler-mode-text-scaled-width #[257 "\211\300 _\301 \245\207" [frame-char-width default-font-width] 3 (#$ . 7588)]) #@31 Text scaled `window-hscroll'. (defalias 'ruler-mode-text-scaled-window-hscroll #[0 "\300\301 !\207" [ruler-mode-text-scaled-width window-hscroll] 2 (#$ . 7890)]) #@29 Text scaled `window-width'. (defalias 'ruler-mode-text-scaled-window-width #[0 "\300\301 !\207" [ruler-mode-text-scaled-width window-width] 2 (#$ . 8058)]) #@252 Drag a column symbol on the ruler. Start dragging on mouse down event START-EVENT, and update the column symbol value with the current value of the ruler graduation while dragging. See also the variable `ruler-mode-dragged-symbol'. (fn START-EVENT) (defalias 'ruler-mode-mouse-grab-any-column #[257 "\306\307!\306\211\211\310 r\311\312\"\216\313\211@\262!\210\314!@ \203) \211\315\316\317!!Z\262\320\321 @\2062 \322\323\306\211\203<