comparison lisp/ruler-mode.el @ 64993:fb2cad4cfb30

* mh-customize.el: Do not use face-alias compatibility for faces that did not appear in the previous Emacs release. * buff-menu.el: * compare-w.el: * emacs-lisp/testcover.el: * play/gomoku.el: * play/mpuz.el: * progmodes/flymake.el: * progmodes/gdb-ui.el: * progmodes/idlw-help.el: * progmodes/idlw-shell.el: * progmodes/ld-script.el: * progmodes/which-func.el: * ruler-mode.el: * strokes.el: * textmodes/sgml-mode.el: * textmodes/table.el: Do not use face-alias for backward compatibility for faces that did not appear in the previous Emacs release.

64992:ca80d536ea6d

                            :line-width 1
                            :style released-button)
               )))
  "Default face used by the ruler."
  :group 'ruler-mode)
;; backward-compatibility alias
(put 'ruler-mode-default-face 'face-alias 'ruler-mode-default)

(defface ruler-mode-pad
  '((((type tty))
     (:inherit ruler-mode-default
               :background "grey50"

     (:inherit ruler-mode-default
               :background "grey64"
               )))
  "Face used to pad inactive ruler areas."
  :group 'ruler-mode)
;; backward-compatibility alias
(put 'ruler-mode-pad-face 'face-alias 'ruler-mode-pad)

(defface ruler-mode-margins
  '((t
     (:inherit ruler-mode-default
               :foreground "white"
               )))
  "Face used to highlight margin areas."
  :group 'ruler-mode)
;; backward-compatibility alias
(put 'ruler-mode-margins-face 'face-alias 'ruler-mode-margins)

(defface ruler-mode-fringes
  '((t
     (:inherit ruler-mode-default
               :foreground "green"
               )))
  "Face used to highlight fringes areas."
  :group 'ruler-mode)
;; backward-compatibility alias
(put 'ruler-mode-fringes-face 'face-alias 'ruler-mode-fringes)

(defface ruler-mode-column-number
  '((t
     (:inherit ruler-mode-default
               :foreground "black"
               )))
  "Face used to highlight number graduations."
  :group 'ruler-mode)
;; backward-compatibility alias
(put 'ruler-mode-column-number-face 'face-alias 'ruler-mode-column-number)

(defface ruler-mode-fill-column
  '((t
     (:inherit ruler-mode-default
               :foreground "red"
               )))
  "Face used to highlight the fill column character."
  :group 'ruler-mode)
;; backward-compatibility alias
(put 'ruler-mode-fill-column-face 'face-alias 'ruler-mode-fill-column)

(defface ruler-mode-comment-column
  '((t
     (:inherit ruler-mode-default
               :foreground "red"
               )))
  "Face used to highlight the comment column character."
  :group 'ruler-mode)
;; backward-compatibility alias
(put 'ruler-mode-comment-column-face 'face-alias 'ruler-mode-comment-column)

(defface ruler-mode-goal-column
  '((t
     (:inherit ruler-mode-default
               :foreground "red"
               )))
  "Face used to highlight the goal column character."
  :group 'ruler-mode)
;; backward-compatibility alias
(put 'ruler-mode-goal-column-face 'face-alias 'ruler-mode-goal-column)

(defface ruler-mode-tab-stop
  '((t
     (:inherit ruler-mode-default
               :foreground "steelblue"
               )))
  "Face used to highlight tab stop characters."
  :group 'ruler-mode)
;; backward-compatibility alias
(put 'ruler-mode-tab-stop-face 'face-alias 'ruler-mode-tab-stop)

(defface ruler-mode-current-column
  '((t
     (:inherit ruler-mode-default
               :weight bold
               :foreground "yellow"
               )))
  "Face used to highlight the `current-column' character."
  :group 'ruler-mode)
;; backward-compatibility alias
(put 'ruler-mode-current-column-face 'face-alias 'ruler-mode-current-column)


(defsubst ruler-mode-full-window-width ()
  "Return the full width of the selected window."
  (let ((edges (window-edges)))

64993:fb2cad4cfb30

                            :line-width 1
                            :style released-button)
               )))
  "Default face used by the ruler."
  :group 'ruler-mode)

(defface ruler-mode-pad
  '((((type tty))
     (:inherit ruler-mode-default
               :background "grey50"

     (:inherit ruler-mode-default
               :background "grey64"
               )))
  "Face used to pad inactive ruler areas."
  :group 'ruler-mode)

(defface ruler-mode-margins
  '((t
     (:inherit ruler-mode-default
               :foreground "white"
               )))
  "Face used to highlight margin areas."
  :group 'ruler-mode)

(defface ruler-mode-fringes
  '((t
     (:inherit ruler-mode-default
               :foreground "green"
               )))
  "Face used to highlight fringes areas."
  :group 'ruler-mode)

(defface ruler-mode-column-number
  '((t
     (:inherit ruler-mode-default
               :foreground "black"
               )))
  "Face used to highlight number graduations."
  :group 'ruler-mode)

(defface ruler-mode-fill-column
  '((t
     (:inherit ruler-mode-default
               :foreground "red"
               )))
  "Face used to highlight the fill column character."
  :group 'ruler-mode)

(defface ruler-mode-comment-column
  '((t
     (:inherit ruler-mode-default
               :foreground "red"
               )))
  "Face used to highlight the comment column character."
  :group 'ruler-mode)

(defface ruler-mode-goal-column
  '((t
     (:inherit ruler-mode-default
               :foreground "red"
               )))
  "Face used to highlight the goal column character."
  :group 'ruler-mode)

(defface ruler-mode-tab-stop
  '((t
     (:inherit ruler-mode-default
               :foreground "steelblue"
               )))
  "Face used to highlight tab stop characters."
  :group 'ruler-mode)

(defface ruler-mode-current-column
  '((t
     (:inherit ruler-mode-default
               :weight bold
               :foreground "yellow"
               )))
  "Face used to highlight the `current-column' character."
  :group 'ruler-mode)


(defsubst ruler-mode-full-window-width ()
  "Return the full width of the selected window."
  (let ((edges (window-edges)))