;ELC ;;; Compiled by cyd@localhost on Mon Apr 23 22:21:07 2007 ;;; from file /home/cyd/emacs/lisp/ruler-mode.el ;;; in Emacs version 22.0.99 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`ruler-mode.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\312&\207" [require scroll-bar fringe custom-declare-group ruler-mode nil "Display a ruler in the header line." :version "22.1" :group convenience] 8) #@313 *If non-nil the ruler shows tab stop positions. Also allowing to visually change `tab-stop-list' setting using and on the ruler to respectively add or remove a tab stop. \[ruler-mode-toggle-show-tab-stops] or on the ruler toggles showing/editing of tab stops. (custom-declare-variable 'ruler-mode-show-tab-stops 'nil '(#$ . -786) :group 'ruler-mode :type 'boolean) #@49 Ensure WIDGET value is a valid character value. (defalias 'ruler-mode-character-validate #[(widget) "\212\302!\303 !?\205\304\305\306\307 \"#\210*\207" [widget value widget-value char-valid-p widget-put :error format "Invalid character value: %S"] 6 (#$ . 1209)]) #@48 *Character used at the `fill-column' location. (custom-declare-variable 'ruler-mode-fill-column-char '(if (char-displayable-p 2230) 2230 124) '(#$ . -1485) :group 'ruler-mode :type '(choice (character :tag "Character") (integer :tag "Integer char value" :validate ruler-mode-character-validate))) #@51 *Character used at the `comment-column' location. (custom-declare-variable 'ruler-mode-comment-column-char '35 '(#$ . -1788) :group 'ruler-mode :type '(choice (character :tag "Character") (integer :tag "Integer char value" :validate ruler-mode-character-validate))) #@48 *Character used at the `goal-column' location. (custom-declare-variable 'ruler-mode-goal-column-char '71 '(#$ . -2060) :group 'ruler-mode :type '(choice (character :tag "Character") (integer :tag "Integer char value" :validate ruler-mode-character-validate))) #@51 *Character used at the `current-column' location. (custom-declare-variable 'ruler-mode-current-column-char '(if (char-displayable-p 2214) 2214 64) '(#$ . -2326) :group 'ruler-mode :type '(choice (character :tag "Character") (integer :tag "Integer char value" :validate ruler-mode-character-validate))) #@47 *Character used at `tab-stop-list' locations. (custom-declare-variable 'ruler-mode-tab-stop-char '84 '(#$ . -2634) :group 'ruler-mode :type '(choice (character :tag "Character") (integer :tag "Integer char value" :validate ruler-mode-character-validate))) #@40 *Character used for basic graduations. (custom-declare-variable 'ruler-mode-basic-graduation-char '46 '(#$ . -2896) :group 'ruler-mode :type '(choice (character :tag "Character") (integer :tag "Integer char value" :validate ruler-mode-character-validate))) #@47 *Character used for intermediate graduations. (custom-declare-variable 'ruler-mode-inter-graduation-char '33 '(#$ . -3159) :group 'ruler-mode :type '(choice (character :tag "Character") (integer :tag "Integer char value" :validate ruler-mode-character-validate))) #@53 *Non-nil means do `ding' when `goal-column' is set. (custom-declare-variable 'ruler-mode-set-goal-column-ding-flag 't '(#$ . -3429) :group 'ruler-mode :type 'boolean) (byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\210\300\311\312\313\304\305%\210\300\314\315\316\304\305%\210\300\317\320\321\304\305%\210\300\322\323\324\304\305%\210\300\325\326\327\304\305%\210\300\330\331\332\304\305%\210\300\333\334\335\304\305%\210\300\336\337\340\304\305%\207" [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." :group ruler-mode 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 #[nil "\301 \3028@Z)\207" [edges window-edges 2] 2 (#$ . 5411)]) (put 'ruler-mode-full-window-width 'byte-optimizer 'byte-compile-inline-expand) #@106 Return a column number relative to the selected window. N is a column number relative to selected frame. (defalias 'ruler-mode-window-col #[(n) "\303 @Z\304 @\206\f\305Z\306\307 \203\310\202\311\n\306=\203$\312\202%\313\314 !\206,\305\315\316 !\"*Z\317\306!Z\207" [n real side window-edges window-margins 0 left nil / ceiling car cadr window-fringes float frame-char-width scroll-bar-columns] 5 (#$ . 5652)]) (put 'ruler-mode-window-col 'byte-optimizer 'byte-compile-inline-expand) #@108 Set left margin end to the graduation where the mouse pointer is on. START-EVENT is the mouse click event. (defalias 'ruler-mode-mouse-set-left-margin #[(start-event) "\211:\203 \306 8\202\307 `\310\311F)\211:\203-\312 8:\203'\312\202(\306 8\2023\307 `\313\311F)\314\211\314\211\n =\205\260\307 \315\316\317 \"r\320\216\321\n\3118)!\210\322\n!@\323 @Z\324\325!Z\323  \312 8 @Z)\324\325!Z\324\326!Z\f\311Y\205\257\f W\205\257\327 \211A\206\227\311@\206\240\311\330\331\f#\210\332\314\f#,.\207" [start-event event start end col w 1 selected-window (0 . 0) 0 2 (0 . 0) nil mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\203/\n@\306 @!\203(\307 \211A@)!\203(\310 @ \211A@)\"\210\nA\211\204*\307\f!\203:\311\f!\210\305\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window select-window] 4)) select-window posn-col-row window-edges scroll-bar-columns left right window-margins message "Left margin set to %d (was %d)" set-window-margins lm rm save-selected-window-alist save-selected-window-window position edges] 5 (#$ . 6152) "e"]) #@115 Set right margin beginning to the graduation where the mouse pointer is on. START-EVENT is the mouse click event. (defalias 'ruler-mode-mouse-set-right-margin #[(start-event) "\211:\203 \306 8\202\307 `\310\311F)\211:\203-\312 8:\203'\312\202(\306 8\2023\307 `\313\311F)\314\211\314\211\n =\205\266\307 \315\316\317 \"r\320\216\321\n\3118)!\210\322\n!@\323 @Z\324\325!Z\323  \312 8 @Z)\324\325!Z\324\326!Z\f\311Y\205\265\f W\205\265\327 \211A\206\227\311@\206\240\311 \fZ\306Z\330\331\f#\210\332\314\f#,.\207" [start-event event start end col w 1 selected-window (0 . 0) 0 2 (0 . 0) nil mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\203/\n@\306 @!\203(\307 \211A@)!\203(\310 @ \211A@)\"\210\nA\211\204*\307\f!\203:\311\f!\210\305\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window select-window] 4)) select-window posn-col-row window-edges scroll-bar-columns left right window-margins message "Right margin set to %d (was %d)" set-window-margins lm rm save-selected-window-alist save-selected-window-window position edges] 5 (#$ . 7396) "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 (#$ . 8659)) #@234 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'. (defalias 'ruler-mode-mouse-grab-any-column #[(start-event) "\306 \211:\203\307\n8\202\310 `\311\312F)\306\211\306.\310 \313\314\315 \"/0r\316\216\317 1\31218)!\210\320 !@\2112\321 @Z\322 @\206I\312Z\323\306343\203Y\324\202Z\3254\323=\203e\326\202f\327\330 !\206m\312\331\332 !\"*Z\333\323!Z)\211\334 \\\f\312Y\205\f\335 W\205 =\203\234.\336\202\345 =\203\254.\337\202\345  =\203\274 .\340\202\345 ?\205 .  \341 \2105\203\324\342 \210\343\344 \345\3466!\347\350##\210\306\202\351 \2111@)!\352=\203\376\340=\205\353\354!\202\343\355\211J.$.\207" [ruler-mode-dragged-symbol start-event event start col newc nil 1 selected-window (0 . 0) 0 mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\203/\n@\306 @!\203(\307 \211A@)!\203(\310 @ \211A@)\"\210\nA\211\204*\307\f!\203:\311\f!\210\305\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window select-window] 4)) select-window posn-col-row window-edges window-margins left / ceiling car cadr window-fringes float frame-char-width scroll-bar-columns window-hscroll window-width fill-column comment-column goal-column read-event ding message "Goal column set to %d (click on %s again to unset it)" propertize char-to-string face ruler-mode-goal-column ruler-mode-mouse-drag-any-column-iteration click set-goal-column t "%s is set to %d (was %d)" oldc save-selected-window-alist save-selected-window-window position n real side ruler-mode-set-goal-column-ding-flag ruler-mode-goal-column-char] 8 (#$ . 8841) "e"]) #@205 Update the ruler while dragging the mouse. WINDOW is the window where occurred the last down-mouse event. Return the symbol `drag' if the mouse has been dragged, or `click' if the mouse has been clicked. (defalias 'ruler-mode-mouse-drag-any-column-iteration #[(window) "\302\303\304 \210\305 !\203\306!@\307=\203\307\202\310*\207" [event drags 0 nil (lambda nil (track-mouse (byte-code "\305 \211\211\242)\306=\205B\nT \211:\203)\3078:\203#\307\202$\3108\202/\311 `\312\313F)\211@)=\203\314!\210\315 \210\202\207" [event object drags window position read-event mouse-movement 2 1 selected-window (0 . 0) 0 ruler-mode-mouse-drag-any-column force-mode-line-update] 6))) zerop event-modifiers click drag] 2 (#$ . 10765)]) #@101 Update the value of the symbol dragged on the ruler. Called on each mouse motion event START-EVENT. (defalias 'ruler-mode-mouse-drag-any-column #[(start-event) "\211:\203 \306 8\202\307 `\310\311F)\211:\203-\312 8:\203'\312\202(\306 8\2023\307 `\313\311F)\314\211\307 \315\316\317 \" !r\320\216\321\n\"\311\"8)!\210\322 !@\211#\323 @Z\324 @\206d\311Z\325\314$%$\203t\326\202u\327%\325=\203\200\330\202\201\331\332 !\206\210\311\333\334 !\"*Z\335\325!Z)\211\336 \\\f\311Y\205\253\f\337 W\205\253& L.\207" [start-event event start end col newc 1 selected-window (0 . 0) 0 2 (0 . 0) nil mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\203/\n@\306 @!\203(\307 \211A@)!\203(\310 @ \211A@)\"\210\nA\211\204*\307\f!\203:\311\f!\210\305\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window select-window] 4)) select-window posn-col-row window-edges window-margins left / ceiling car cadr window-fringes float frame-char-width scroll-bar-columns window-hscroll window-width save-selected-window-alist save-selected-window-window position n real side ruler-mode-dragged-symbol] 6 (#$ . 11518)]) #@103 Add a tab stop to the graduation where the mouse pointer is on. START-EVENT is the mouse click event. (defalias 'ruler-mode-mouse-add-tab-stop #[(start-event) "\205\317 \211:\203\306\n8\202\307 `\310\311F) \211:\2031\312\n8:\203+\312\202,\306\n8\2027\307 `\313\311F)\314\211$ \f=\205\316\307 \315\316\317 \"%&r\320\216\321 '\311'8)!\210\322 !@\211(\323 @Z\324 @\206o\311Z\325\314)*)\203\326\202\200\327*\325=\203\213\330\202\214\331\332 !\206\223\311\333\334 !\"*Z\335\325!Z)\211\336 \\$ \311Y\205\315 \337 W\205\315$+\235?\205\315\340\341$\"\210\342$+B\343\"\211+,,\207" [ruler-mode-show-tab-stops start-event event start end col 1 selected-window (0 . 0) 0 2 (0 . 0) nil mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\203/\n@\306 @!\203(\307 \211A@)!\203(\310 @ \211A@)\"\210\nA\211\204*\307\f!\203:\311\f!\210\305\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window select-window] 4)) select-window posn-col-row window-edges window-margins left / ceiling car cadr window-fringes float frame-char-width scroll-bar-columns window-hscroll window-width message "Tab stop set to %d" sort < ts save-selected-window-alist save-selected-window-window position n real side tab-stop-list] 6 (#$ . 12804) "e"]) #@104 Delete tab stop at the graduation where the mouse pointer is on. START-EVENT is the mouse click event. (defalias 'ruler-mode-mouse-del-tab-stop #[(start-event) "\205\314 \211:\203\306\n8\202\307 `\310\311F) \211:\2031\312\n8:\203+\312\202,\306\n8\2027\307 `\313\311F)\314\211# \f=\205\313\307 \315\316\317 \"$%r\320\216\321 &\311&8)!\210\322 !@\211'\323 @Z\324 @\206o\311Z\325\314()(\203\326\202\200\327)\325=\203\213\330\202\214\331\332 !\206\223\311\333\334 !\"*Z\335\325!Z)\211\336 \\# \311Y\205\312 \337 W\205\312#*\235\205\312\340\341#\"\210\342#*\"\211*,,\207" [ruler-mode-show-tab-stops start-event event start end col 1 selected-window (0 . 0) 0 2 (0 . 0) nil mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\203/\n@\306 @!\203(\307 \211A@)!\203(\310 @ \211A@)\"\210\nA\211\204*\307\f!\203:\311\f!\210\305\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window select-window] 4)) select-window posn-col-row window-edges window-margins left / ceiling car cadr window-fringes float frame-char-width scroll-bar-columns window-hscroll window-width message "Tab stop at %d deleted" delete ts save-selected-window-alist save-selected-window-window position n real side tab-stop-list] 6 (#$ . 14218) "e"]) #@43 Toggle showing of tab stops on the ruler. (defalias 'ruler-mode-toggle-show-tab-stops #[nil "?\301 \207" [ruler-mode-show-tab-stops force-mode-line-update] 1 (#$ . 15630) nil]) #@30 Keymap for ruler minor mode. (defvar ruler-mode-map (byte-code "\301 \302\303\304#\210\302\305\304#\210\302\306\307#\210\302\310\311#\210\302\312\313#\210\302\314\315#\210\302\316\317#\210\302\320\321#\210\302\322\304#\210\302\323\304#\210\302\324\304#\210\302\325\304#\210\302\326\304#\210)\207" [km make-sparse-keymap define-key [header-line down-mouse-1] ignore [header-line down-mouse-3] [header-line down-mouse-2] ruler-mode-mouse-grab-any-column [header-line (shift down-mouse-1)] ruler-mode-mouse-set-left-margin [header-line (shift down-mouse-3)] ruler-mode-mouse-set-right-margin [header-line (control down-mouse-1)] ruler-mode-mouse-add-tab-stop [header-line (control down-mouse-3)] ruler-mode-mouse-del-tab-stop [header-line (control down-mouse-2)] ruler-mode-toggle-show-tab-stops [header-line (shift mouse-1)] [header-line (shift mouse-3)] [header-line (control mouse-1)] [header-line (control mouse-3)] [header-line (control mouse-2)]] 4) (#$ . 15815)) #@46 Hold previous value of `header-line-format'. (defvar ruler-mode-header-line-format-old nil (#$ . 16803)) #@114 Function to call to return ruler header line format. This variable is expected to be made buffer-local by modes. (defvar ruler-mode-ruler-function 'ruler-mode-ruler (#$ . 16915)) #@103 `header-line-format' used in ruler mode. Call `ruler-mode-ruler-function' to compute the ruler value. (defconst ruler-mode-header-line-format '(:eval (funcall ruler-mode-ruler-function)) (#$ . 17101)) #@89 Non-nil if Ruler mode is enabled. Use the command `ruler-mode' to change this variable. (defvar ruler-mode nil (#$ . 17308)) (make-variable-buffer-local 'ruler-mode) #@48 Display a ruler in the header line if ARG > 0. (defalias 'ruler-mode #[(&optional arg) "\305=\203 ?\202%\203\306!\307V\202% \204\310\202%\311\312\301\"\210\313\211\203B\314\302!\2036\315\303!\210\n\f\316\317\320\313\310$\210\202^\n\f=\203X\321\302!\210\314\303!\203X \321\303!\210\322\317\320\310#\210\323\324 \203h\325\202i\326\"\210\327 \203}\311\330 \203z\331\202{\332\"\210\320 \210 \207" [arg ruler-mode header-line-format ruler-mode-header-line-format-old ruler-mode-header-line-format toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil local-variable-p make-local-variable add-hook post-command-hook force-mode-line-update kill-local-variable remove-hook run-hooks ruler-mode-hook ruler-mode-on-hook ruler-mode-off-hook called-interactively-p "Ruler mode %sabled" "en" "dis"] 6 (#$ . 17480) (list (or current-prefix-arg 'toggle))]) (byte-code "\302\303\304#\210\305 \306\307#\207" [ruler-mode-map mode-line-mode-menu add-minor-mode ruler-mode nil define-key [ruler-mode] (menu-item "Ruler" ruler-mode :button (:toggle . ruler-mode))] 4) #@85 Help string shown when mouse is over the ruler. `ruler-mode-show-tab-stops' is nil. (defconst ruler-mode-ruler-help-echo "S-mouse-1/3: set L/R margin, mouse-2: set goal column, C-mouse-2: show tabs" (#$ . 18603)) #@110 Help string shown when mouse is over the ruler. `goal-column' is set and `ruler-mode-show-tab-stops' is nil. (defconst ruler-mode-ruler-help-echo-when-goal-column "S-mouse-1/3: set L/R margin, C-mouse-2: show tabs" (#$ . 18823)) #@89 Help string shown when mouse is over the ruler. `ruler-mode-show-tab-stops' is non-nil. (defconst ruler-mode-ruler-help-echo-when-tab-stops "C-mouse1/3: set/unset tab, C-mouse-2: hide tabs" (#$ . 19058)) #@63 Help string shown when mouse is on the fill column character. (defconst ruler-mode-fill-column-help-echo "drag-mouse-2: set fill column" (#$ . 19268)) #@66 Help string shown when mouse is on the comment column character. (defconst ruler-mode-comment-column-help-echo "drag-mouse-2: set comment column" (#$ . 19425)) #@63 Help string shown when mouse is on the goal column character. (defconst ruler-mode-goal-column-help-echo "drag-mouse-2: set goal column, mouse-2: unset goal column" (#$ . 19591)) #@53 Help string shown when mouse is over a margin area. (defconst ruler-mode-margin-help-echo "%s margin %S" (#$ . 19776)) #@53 Help string shown when mouse is over a fringe area. (defconst ruler-mode-fringe-help-echo "%s fringe %S" (#$ . 19901)) #@139 Return a single space string of WIDTH times the normal character width. Optional argument PROPS specifies other text properties to apply. (defalias 'ruler-mode-space #[(width &rest props) "\302\303\304\305\306\307E %\207" [width props apply propertize " " display space :width] 7 (#$ . 20027)]) (put 'ruler-mode-space 'byte-optimizer 'byte-compile-inline-expand) #@41 Compute and return a header line ruler. (defalias 'ruler-mode-ruler #[nil "\306 \307 \310 \311\312 \313\314\315\316\317 \320\n@\206\311#F45\321\322\323\324\325\3265E4%*6\327\314\315\316\317 \330\n\2117A@)\206B\311#F45\321\322\323\324\325\3265E4%*8\331\314\332\316\3179\320 @\206e\311#F45\321\322\323\324\325\3265E4%*:\333\314\332\316\3179\330 A\206\210\311#F45\321\322\323\324\325\3265E4%*;\334\314\335D45\321\322\323\324\325\3265E4%*<\336 @=\322\337>\"\314\340\341?\316@\203\317A\202\333B\203\331C\202\333D&E\342\211FG W\203\343\f\344\"\311U\203-\345\f\344\245!\211GG F\346 \211T\314\347E%\210 \311V\203=F\311Y\203=EFG S\211HI\210FSF\202 \343\f\350\"\311U\203=E HI\210\fiU\203WE II\210\346 \211T\314\351E%\210\202 B\203\214\fBU\203\214E JI\210\346 \211T\314\352E%\210\346 \211T\353\354E%\210\346 \211T\316KE%\210\202 \fLU\203\274E MI\210\346 \211T\314\355E%\210\346 \211T\353\354E%\210\346 \211T\316NE%\210\202 \fOU\203\354E PI\210\346 \211T\314\356E%\210\346 \211T\353\354E%\210\346 \211T\316QE%\210\202 @\203 \fR\235\203 E SI\210\346 \211T\314\357E%\210 T\fT\202\345\360\310 8\203;\361=\362=\205#<6:E;8=\363=\2056<\257\202Z\361=\362=\205E<:6E8;=\363=\205X<\257.\207" [w m f i j ruler-mode-fringe-help-echo window-width window-margins window-fringes 0 window-hscroll left-fringe face ruler-mode-fringes help-echo format "Left" apply propertize " " display space :width right-fringe "Right" left-margin ruler-mode-margins right-margin scroll-bar ruler-mode-pad window-current-scroll-bars make-string ruler-mode-default local-map nil mod 10 number-to-string put-text-property ruler-mode-column-number 5 ruler-mode-current-column ruler-mode-goal-column mouse-face mode-line-highlight ruler-mode-comment-column ruler-mode-fill-column ruler-mode-tab-stop 2 "" left right props width lf x rf ruler-mode-margin-help-echo lm rm sb sbvt ruler-mode-basic-graduation-char ruler-mode-map ruler-mode-show-tab-stops ruler-mode-ruler-help-echo-when-tab-stops goal-column ruler-mode-ruler-help-echo-when-goal-column ruler-mode-ruler-help-echo ruler k c ruler-mode-inter-graduation-char ruler-mode-current-column-char ruler-mode-goal-column-char ruler-mode-goal-column-help-echo comment-column ruler-mode-comment-column-char ruler-mode-comment-column-help-echo fill-column ruler-mode-fill-column-char ruler-mode-fill-column-help-echo tab-stop-list ruler-mode-tab-stop-char] 10 (#$ . 20397)]) (provide 'ruler-mode)