/[emacs]/emacs/lisp/emulation/viper-init.el
ViewVC logotype

Diff of /emacs/lisp/emulation/viper-init.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.28 by kifer, Sat Feb 19 19:32:47 2005 UTC revision 1.29 by miles, Fri Jun 10 10:44:34 2005 UTC
# Line 1  Line 1 
1  ;;; viper-init.el --- some common definitions for Viper  ;;; viper-init.el --- some common definitions for Viper
2    
3  ;; Copyright (C) 1997, 98, 99, 2000, 01, 02 Free Software Foundation, Inc.  ;; Copyright (C) 1997, 98, 99, 2000, 01, 02, 05 Free Software Foundation, Inc.
4    
5  ;; Author: Michael Kifer <kifer@cs.stonybrook.edu>  ;; Author: Michael Kifer <kifer@cs.stonybrook.edu>
6    
# Line 850  Related buffers can be cycled through vi Line 850  Related buffers can be cycled through vi
850    :group 'viper)    :group 'viper)
851    
852    
853  (defface viper-search-face  (defface viper-search
854    '((((class color)) (:foreground "Black" :background "khaki"))    '((((class color)) (:foreground "Black" :background "khaki"))
855      (t (:underline t :stipple "gray3")))      (t (:underline t :stipple "gray3")))
856    "*Face used to flash out the search pattern."    "*Face used to flash out the search pattern."
857    :group 'viper-highlighting)    :group 'viper-highlighting)
858    ;; backward-compatibility alias
859    (put 'viper-search-face 'face-alias 'viper-search)
860  ;; An internal variable.  Viper takes the face from here.  ;; An internal variable.  Viper takes the face from here.
861  (defvar viper-search-face 'viper-search-face  (defvar viper-search-face 'viper-search
862    "Face used to flash out the search pattern.    "Face used to flash out the search pattern.
863  DO NOT CHANGE this variable.  Instead, use the customization widget  DO NOT CHANGE this variable.  Instead, use the customization widget
864  to customize the actual face object `viper-search-face'  to customize the actual face object `viper-search-face'
865  this variable represents.")  this variable represents.")
866  (viper-hide-face 'viper-search-face)  (viper-hide-face 'viper-search)
867    
868    
869  (defface viper-replace-overlay-face  (defface viper-replace-overlay
870    '((((class color)) (:foreground "Black" :background "darkseagreen2"))    '((((class color)) (:foreground "Black" :background "darkseagreen2"))
871      (t (:underline t :stipple "gray3")))      (t (:underline t :stipple "gray3")))
872    "*Face for highlighting replace regions on a window display."    "*Face for highlighting replace regions on a window display."
873    :group 'viper-highlighting)    :group 'viper-highlighting)
874    ;; backward-compatibility alias
875    (put 'viper-replace-overlay-face 'face-alias 'viper-replace-overlay)
876  ;; An internal variable.  Viper takes the face from here.  ;; An internal variable.  Viper takes the face from here.
877  (defvar viper-replace-overlay-face 'viper-replace-overlay-face  (defvar viper-replace-overlay-face 'viper-replace-overlay
878    "Face for highlighting replace regions on a window display.    "Face for highlighting replace regions on a window display.
879  DO NOT CHANGE this variable.  Instead, use the customization widget  DO NOT CHANGE this variable.  Instead, use the customization widget
880  to customize the actual face object `viper-replace-overlay-face'  to customize the actual face object `viper-replace-overlay-face'
881  this variable represents.")  this variable represents.")
882  (viper-hide-face 'viper-replace-overlay-face)  (viper-hide-face 'viper-replace-overlay)
883    
884    
885  (defface viper-minibuffer-emacs-face  (defface viper-minibuffer-emacs
886    '((((class color)) (:foreground "Black" :background "darkseagreen2"))    '((((class color)) (:foreground "Black" :background "darkseagreen2"))
887      (t (:weight bold)))      (t (:weight bold)))
888    "Face used in the Minibuffer when it is in Emacs state."    "Face used in the Minibuffer when it is in Emacs state."
889    :group 'viper-highlighting)    :group 'viper-highlighting)
890    ;; backward-compatibility alias
891    (put 'viper-minibuffer-emacs-face 'face-alias 'viper-minibuffer-emacs)
892  ;; An internal variable.  Viper takes the face from here.  ;; An internal variable.  Viper takes the face from here.
893  (defvar viper-minibuffer-emacs-face 'viper-minibuffer-emacs-face  (defvar viper-minibuffer-emacs-face 'viper-minibuffer-emacs
894    "Face used in the Minibuffer when it is in Emacs state.    "Face used in the Minibuffer when it is in Emacs state.
895  DO NOT CHANGE this variable.  Instead, use the customization widget  DO NOT CHANGE this variable.  Instead, use the customization widget
896  to customize the actual face object `viper-minibuffer-emacs-face'  to customize the actual face object `viper-minibuffer-emacs-face'
897  this variable represents.")  this variable represents.")
898  (viper-hide-face 'viper-minibuffer-emacs-face)  (viper-hide-face 'viper-minibuffer-emacs)
899    
900    
901  (defface viper-minibuffer-insert-face  (defface viper-minibuffer-insert
902    '((((class color)) (:foreground "Black" :background "pink"))    '((((class color)) (:foreground "Black" :background "pink"))
903      (t (:slant italic)))      (t (:slant italic)))
904    "Face used in the Minibuffer when it is in Insert state."    "Face used in the Minibuffer when it is in Insert state."
905    :group 'viper-highlighting)    :group 'viper-highlighting)
906    ;; backward-compatibility alias
907    (put 'viper-minibuffer-insert-face 'face-alias 'viper-minibuffer-insert)
908  ;; An internal variable.  Viper takes the face from here.  ;; An internal variable.  Viper takes the face from here.
909  (defvar viper-minibuffer-insert-face 'viper-minibuffer-insert-face  (defvar viper-minibuffer-insert-face 'viper-minibuffer-insert
910    "Face used in the Minibuffer when it is in Insert state.    "Face used in the Minibuffer when it is in Insert state.
911  DO NOT CHANGE this variable.  Instead, use the customization widget  DO NOT CHANGE this variable.  Instead, use the customization widget
912  to customize the actual face object `viper-minibuffer-insert-face'  to customize the actual face object `viper-minibuffer-insert-face'
913  this variable represents.")  this variable represents.")
914  (viper-hide-face 'viper-minibuffer-insert-face)  (viper-hide-face 'viper-minibuffer-insert)
915    
916    
917  (defface viper-minibuffer-vi-face  (defface viper-minibuffer-vi
918    '((((class color)) (:foreground "DarkGreen" :background "grey"))    '((((class color)) (:foreground "DarkGreen" :background "grey"))
919      (t (:inverse-video t)))      (t (:inverse-video t)))
920    "Face used in the Minibuffer when it is in Vi state."    "Face used in the Minibuffer when it is in Vi state."
921    :group 'viper-highlighting)    :group 'viper-highlighting)
922    ;; backward-compatibility alias
923    (put 'viper-minibuffer-vi-face 'face-alias 'viper-minibuffer-vi)
924  ;; An internal variable.  Viper takes the face from here.  ;; An internal variable.  Viper takes the face from here.
925  (defvar viper-minibuffer-vi-face 'viper-minibuffer-vi-face  (defvar viper-minibuffer-vi-face 'viper-minibuffer-vi
926    "Face used in the Minibuffer when it is in Vi state.    "Face used in the Minibuffer when it is in Vi state.
927  DO NOT CHANGE this variable.  Instead, use the customization widget  DO NOT CHANGE this variable.  Instead, use the customization widget
928  to customize the actual face object `viper-minibuffer-vi-face'  to customize the actual face object `viper-minibuffer-vi-face'
929  this variable represents.")  this variable represents.")
930  (viper-hide-face 'viper-minibuffer-vi-face)  (viper-hide-face 'viper-minibuffer-vi)
931    
932  ;; the current face to be used in the minibuffer  ;; the current face to be used in the minibuffer
933  (viper-deflocalvar  (viper-deflocalvar

Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26