[Emacs-diffs] Changes to emacs/lisp/emulation/viper-init.el

[Michael Kifer]

Index: emacs/lisp/emulation/viper-init.el
diff -c emacs/lisp/emulation/viper-init.el:1.30 
emacs/lisp/emulation/viper-init.el:1.31
*** emacs/lisp/emulation/viper-init.el:1.30     Mon Jul  4 17:29:04 2005
--- emacs/lisp/emulation/viper-init.el  Sun Jul 10 18:46:24 2005
***************
*** 855,869 ****
      (t (:underline t :stipple "gray3")))
    "*Face used to flash out the search pattern."
    :group 'viper-highlighting)
- ;; backward-compatibility alias
- (put 'viper-search-face 'face-alias 'viper-search)
  ;; An internal variable.  Viper takes the face from here.
  (defvar viper-search-face 'viper-search
    "Face used to flash out the search pattern.
  DO NOT CHANGE this variable.  Instead, use the customization widget
! to customize the actual face object `viper-search-face'
  this variable represents.")
! (viper-hide-face 'viper-search)
  
  
  (defface viper-replace-overlay
--- 855,867 ----
      (t (:underline t :stipple "gray3")))
    "*Face used to flash out the search pattern."
    :group 'viper-highlighting)
  ;; An internal variable.  Viper takes the face from here.
  (defvar viper-search-face 'viper-search
    "Face used to flash out the search pattern.
  DO NOT CHANGE this variable.  Instead, use the customization widget
! to customize the actual face object `viper-search'
  this variable represents.")
! (viper-hide-face viper-search-face)
  
  
  (defface viper-replace-overlay
***************
*** 871,885 ****
      (t (:underline t :stipple "gray3")))
    "*Face for highlighting replace regions on a window display."
    :group 'viper-highlighting)
- ;; backward-compatibility alias
- (put 'viper-replace-overlay-face 'face-alias 'viper-replace-overlay)
  ;; An internal variable.  Viper takes the face from here.
  (defvar viper-replace-overlay-face 'viper-replace-overlay
    "Face for highlighting replace regions on a window display.
  DO NOT CHANGE this variable.  Instead, use the customization widget
! to customize the actual face object `viper-replace-overlay-face'
  this variable represents.")
! (viper-hide-face 'viper-replace-overlay)
  
  
  (defface viper-minibuffer-emacs
--- 869,881 ----
      (t (:underline t :stipple "gray3")))
    "*Face for highlighting replace regions on a window display."
    :group 'viper-highlighting)
  ;; An internal variable.  Viper takes the face from here.
  (defvar viper-replace-overlay-face 'viper-replace-overlay
    "Face for highlighting replace regions on a window display.
  DO NOT CHANGE this variable.  Instead, use the customization widget
! to customize the actual face object `viper-replace-overlay'
  this variable represents.")
! (viper-hide-face viper-replace-overlay-face)
  
  
  (defface viper-minibuffer-emacs
***************
*** 887,901 ****
      (t (:weight bold)))
    "Face used in the Minibuffer when it is in Emacs state."
    :group 'viper-highlighting)
- ;; backward-compatibility alias
- (put 'viper-minibuffer-emacs-face 'face-alias 'viper-minibuffer-emacs)
  ;; An internal variable.  Viper takes the face from here.
  (defvar viper-minibuffer-emacs-face 'viper-minibuffer-emacs
    "Face used in the Minibuffer when it is in Emacs state.
  DO NOT CHANGE this variable.  Instead, use the customization widget
! to customize the actual face object `viper-minibuffer-emacs-face'
  this variable represents.")
! (viper-hide-face 'viper-minibuffer-emacs)
  
  
  (defface viper-minibuffer-insert
--- 883,895 ----
      (t (:weight bold)))
    "Face used in the Minibuffer when it is in Emacs state."
    :group 'viper-highlighting)
  ;; An internal variable.  Viper takes the face from here.
  (defvar viper-minibuffer-emacs-face 'viper-minibuffer-emacs
    "Face used in the Minibuffer when it is in Emacs state.
  DO NOT CHANGE this variable.  Instead, use the customization widget
! to customize the actual face object `viper-minibuffer-emacs'
  this variable represents.")
! (viper-hide-face viper-minibuffer-emacs-face)
  
  
  (defface viper-minibuffer-insert
***************
*** 903,917 ****
      (t (:slant italic)))
    "Face used in the Minibuffer when it is in Insert state."
    :group 'viper-highlighting)
- ;; backward-compatibility alias
- (put 'viper-minibuffer-insert-face 'face-alias 'viper-minibuffer-insert)
  ;; An internal variable.  Viper takes the face from here.
  (defvar viper-minibuffer-insert-face 'viper-minibuffer-insert
    "Face used in the Minibuffer when it is in Insert state.
  DO NOT CHANGE this variable.  Instead, use the customization widget
! to customize the actual face object `viper-minibuffer-insert-face'
  this variable represents.")
! (viper-hide-face 'viper-minibuffer-insert)
  
  
  (defface viper-minibuffer-vi
--- 897,909 ----
      (t (:slant italic)))
    "Face used in the Minibuffer when it is in Insert state."
    :group 'viper-highlighting)
  ;; An internal variable.  Viper takes the face from here.
  (defvar viper-minibuffer-insert-face 'viper-minibuffer-insert
    "Face used in the Minibuffer when it is in Insert state.
  DO NOT CHANGE this variable.  Instead, use the customization widget
! to customize the actual face object `viper-minibuffer-insert'
  this variable represents.")
! (viper-hide-face viper-minibuffer-insert-face)
  
  
  (defface viper-minibuffer-vi
***************
*** 919,933 ****
      (t (:inverse-video t)))
    "Face used in the Minibuffer when it is in Vi state."
    :group 'viper-highlighting)
- ;; backward-compatibility alias
- (put 'viper-minibuffer-vi-face 'face-alias 'viper-minibuffer-vi)
  ;; An internal variable.  Viper takes the face from here.
  (defvar viper-minibuffer-vi-face 'viper-minibuffer-vi
    "Face used in the Minibuffer when it is in Vi state.
  DO NOT CHANGE this variable.  Instead, use the customization widget
! to customize the actual face object `viper-minibuffer-vi-face'
  this variable represents.")
! (viper-hide-face 'viper-minibuffer-vi)
  
  ;; the current face to be used in the minibuffer
  (viper-deflocalvar
--- 911,923 ----
      (t (:inverse-video t)))
    "Face used in the Minibuffer when it is in Vi state."
    :group 'viper-highlighting)
  ;; An internal variable.  Viper takes the face from here.
  (defvar viper-minibuffer-vi-face 'viper-minibuffer-vi
    "Face used in the Minibuffer when it is in Vi state.
  DO NOT CHANGE this variable.  Instead, use the customization widget
! to customize the actual face object `viper-minibuffer-vi'
  this variable represents.")
! (viper-hide-face viper-minibuffer-vi-face)
  
  ;; the current face to be used in the minibuffer
  (viper-deflocalvar