[Emacs-diffs] Changes to emacs/lisp/ruler-mode.el

[Dan Nicolaescu]

Index: emacs/lisp/ruler-mode.el
diff -c emacs/lisp/ruler-mode.el:1.24 emacs/lisp/ruler-mode.el:1.25
*** emacs/lisp/ruler-mode.el:1.24       Mon Jul  4 23:08:58 2005
--- emacs/lisp/ruler-mode.el    Mon Aug 15 21:29:32 2005
***************
*** 221,228 ****
                 )))
    "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))
--- 221,226 ----
***************
*** 235,242 ****
                 )))
    "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
--- 233,238 ----
***************
*** 245,252 ****
                 )))
    "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
--- 241,246 ----
***************
*** 255,262 ****
                 )))
    "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
--- 249,254 ----
***************
*** 265,272 ****
                 )))
    "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
--- 257,262 ----
***************
*** 275,282 ****
                 )))
    "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
--- 265,270 ----
***************
*** 285,292 ****
                 )))
    "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
--- 273,278 ----
***************
*** 295,302 ****
                 )))
    "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
--- 281,286 ----
***************
*** 305,312 ****
                 )))
    "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
--- 289,294 ----
***************
*** 316,323 ****
                 )))
    "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 ()
--- 298,303 ----