diff options
author | Stefan Kangas <stefan@marxist.se> | 2021-03-24 03:47:27 +0100 |
---|---|---|
committer | Stefan Kangas <stefan@marxist.se> | 2021-03-24 03:47:27 +0100 |
commit | ac4dd5f244032148595fb787ff926882390b36b9 (patch) | |
tree | 4c0b71c2b414cd514e6d6cf690da3c08be4293c5 /lisp/ruler-mode.el | |
parent | 952550258dcf06bc03662974aa6b6db9d792aedb (diff) | |
download | emacs-ac4dd5f244032148595fb787ff926882390b36b9.tar.gz |
Use lexical-binding in ruler-mode.el
* lisp/ruler-mode.el: Use lexical-binding. Remove redundant
:group args.
Diffstat (limited to 'lisp/ruler-mode.el')
-rw-r--r-- | lisp/ruler-mode.el | 51 |
1 files changed, 16 insertions, 35 deletions
diff --git a/lisp/ruler-mode.el b/lisp/ruler-mode.el index c9d39397e06..fc9196caf96 100644 --- a/lisp/ruler-mode.el +++ b/lisp/ruler-mode.el @@ -1,4 +1,4 @@ -;;; ruler-mode.el --- display a ruler in the header line +;;; ruler-mode.el --- display a ruler in the header line -*- lexical-binding: t -*- ;; Copyright (C) 2001-2021 Free Software Foundation, Inc. @@ -122,7 +122,6 @@ Also allowing to visually change `tab-stop-list' setting using <C-down-mouse-1> and <C-down-mouse-3> on the ruler to respectively add or remove a tab stop. \\[ruler-mode-toggle-show-tab-stops] or <C-down-mouse-2> on the ruler toggles showing/editing of tab stops." - :group 'ruler-mode :type 'boolean) ;; IMPORTANT: This function must be defined before the following @@ -140,7 +139,6 @@ or remove a tab stop. \\[ruler-mode-toggle-show-tab-stops] or ?\¶ ?\|) "Character used at the `fill-column' location." - :group 'ruler-mode :type '(choice (character :tag "Character") (integer :tag "Integer char value" @@ -148,7 +146,6 @@ or remove a tab stop. \\[ruler-mode-toggle-show-tab-stops] or (defcustom ruler-mode-comment-column-char ?\# "Character used at the `comment-column' location." - :group 'ruler-mode :type '(choice (character :tag "Character") (integer :tag "Integer char value" @@ -156,7 +153,6 @@ or remove a tab stop. \\[ruler-mode-toggle-show-tab-stops] or (defcustom ruler-mode-goal-column-char ?G "Character used at the `goal-column' location." - :group 'ruler-mode :type '(choice (character :tag "Character") (integer :tag "Integer char value" @@ -166,7 +162,6 @@ or remove a tab stop. \\[ruler-mode-toggle-show-tab-stops] or ?\¦ ?\@) "Character used at the `current-column' location." - :group 'ruler-mode :type '(choice (character :tag "Character") (integer :tag "Integer char value" @@ -174,7 +169,6 @@ or remove a tab stop. \\[ruler-mode-toggle-show-tab-stops] or (defcustom ruler-mode-tab-stop-char ?\T "Character used at `tab-stop-list' locations." - :group 'ruler-mode :type '(choice (character :tag "Character") (integer :tag "Integer char value" @@ -182,7 +176,6 @@ or remove a tab stop. \\[ruler-mode-toggle-show-tab-stops] or (defcustom ruler-mode-basic-graduation-char ?\. "Character used for basic graduations." - :group 'ruler-mode :type '(choice (character :tag "Character") (integer :tag "Integer char value" @@ -190,7 +183,6 @@ or remove a tab stop. \\[ruler-mode-toggle-show-tab-stops] or (defcustom ruler-mode-inter-graduation-char ?\! "Character used for intermediate graduations." - :group 'ruler-mode :type '(choice (character :tag "Character") (integer :tag "Integer char value" @@ -198,7 +190,6 @@ or remove a tab stop. \\[ruler-mode-toggle-show-tab-stops] or (defcustom ruler-mode-set-goal-column-ding-flag t "Non-nil means do `ding' when `goal-column' is set." - :group 'ruler-mode :type 'boolean) (defface ruler-mode-default @@ -215,8 +206,7 @@ or remove a tab stop. \\[ruler-mode-toggle-show-tab-stops] or :line-width 1 :style released-button) ))) - "Default face used by the ruler." - :group 'ruler-mode) + "Default face used by the ruler.") (defface ruler-mode-pad '((((type tty)) @@ -227,64 +217,56 @@ or remove a tab stop. \\[ruler-mode-toggle-show-tab-stops] or (:inherit ruler-mode-default :background "grey64" ))) - "Face used to pad inactive ruler areas." - :group 'ruler-mode) + "Face used to pad inactive ruler areas.") (defface ruler-mode-margins '((t (:inherit ruler-mode-default :foreground "white" ))) - "Face used to highlight margin areas." - :group 'ruler-mode) + "Face used to highlight margin areas.") (defface ruler-mode-fringes '((t (:inherit ruler-mode-default :foreground "green" ))) - "Face used to highlight fringes areas." - :group 'ruler-mode) + "Face used to highlight fringes areas.") (defface ruler-mode-column-number '((t (:inherit ruler-mode-default :foreground "black" ))) - "Face used to highlight number graduations." - :group 'ruler-mode) + "Face used to highlight number graduations.") (defface ruler-mode-fill-column '((t (:inherit ruler-mode-default :foreground "red" ))) - "Face used to highlight the fill column character." - :group 'ruler-mode) + "Face used to highlight the fill column character.") (defface ruler-mode-comment-column '((t (:inherit ruler-mode-default :foreground "red" ))) - "Face used to highlight the comment column character." - :group 'ruler-mode) + "Face used to highlight the comment column character.") (defface ruler-mode-goal-column '((t (:inherit ruler-mode-default :foreground "red" ))) - "Face used to highlight the goal column character." - :group 'ruler-mode) + "Face used to highlight the goal column character.") (defface ruler-mode-tab-stop '((t (:inherit ruler-mode-default :foreground "steelblue" ))) - "Face used to highlight tab stop characters." - :group 'ruler-mode) + "Face used to highlight tab stop characters.") (defface ruler-mode-current-column '((t @@ -292,8 +274,7 @@ or remove a tab stop. \\[ruler-mode-toggle-show-tab-stops] or :weight bold :foreground "yellow" ))) - "Face used to highlight the `current-column' character." - :group 'ruler-mode) + "Face used to highlight the `current-column' character.") (defsubst ruler-mode-full-window-width () @@ -547,15 +528,15 @@ START-EVENT is the mouse click event." (define-key km [header-line (control down-mouse-2)] #'ruler-mode-toggle-show-tab-stops) (define-key km [header-line (shift mouse-1)] - 'ignore) + #'ignore) (define-key km [header-line (shift mouse-3)] - 'ignore) + #'ignore) (define-key km [header-line (control mouse-1)] - 'ignore) + #'ignore) (define-key km [header-line (control mouse-3)] - 'ignore) + #'ignore) (define-key km [header-line (control mouse-2)] - 'ignore) + #'ignore) km) "Keymap for ruler minor mode.") |