Mercurial > emacs
comparison lisp/emulation/viper-init.el @ 83532:b19aaf4ab0ee
Merged from emacs@sv.gnu.org.
Patches applied:
* emacs@sv.gnu.org/emacs--devo--0--patch-331
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-332
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-333
Merge from gnus--rel--5.10
* emacs@sv.gnu.org/emacs--devo--0--patch-334
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-335
Add note about "link" button-class to etc/TODO
* emacs@sv.gnu.org/emacs--devo--0--patch-336
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-337
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-338
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-339
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-340
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-341
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-342
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-343
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-344
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-345
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-346
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-347
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-348
Update for ERC 5.1.3.
* emacs@sv.gnu.org/emacs--devo--0--patch-349
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-350
Merge from gnus--rel--5.10
* emacs@sv.gnu.org/gnus--rel--5.10--patch-111
Update from CVS: texi/gnus.texi (Summary Buffer Lines): Fix typo.
* emacs@sv.gnu.org/gnus--rel--5.10--patch-112
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-113
Merge from emacs--devo--0
* emacs@sv.gnu.org/gnus--rel--5.10--patch-114
Update from CVS
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-572
| author | Karoly Lorentey <lorentey@elte.hu> |
|---|---|
| date | Fri, 14 Jul 2006 05:56:32 +0000 |
| parents | d08a7ef0cb8a deb64e2d79af |
| children | 694bbb62a75d |
comparison
equal
deleted
inserted
replaced
| 83531:a387c138b28e | 83532:b19aaf4ab0ee |
|---|---|
| 852 (defvar viper-last-shell-com nil) | 852 (defvar viper-last-shell-com nil) |
| 853 | 853 |
| 854 | 854 |
| 855 ;;; Face-saving tricks | 855 ;;; Face-saving tricks |
| 856 | 856 |
| 857 (defun viper-hide-face (face) | |
| 858 (if (and (viper-has-face-support-p) viper-emacs-p) | |
| 859 (add-to-list 'facemenu-unlisted-faces face))) | |
| 860 | |
| 861 | |
| 862 (defgroup viper-highlighting nil | 857 (defgroup viper-highlighting nil |
| 863 "Hilighting of replace region, search pattern, minibuffer, etc." | 858 "Hilighting of replace region, search pattern, minibuffer, etc." |
| 864 :prefix "viper-" | 859 :prefix "viper-" |
| 865 :group 'viper) | 860 :group 'viper) |
| 866 | 861 |
| 874 (defvar viper-search-face 'viper-search | 869 (defvar viper-search-face 'viper-search |
| 875 "Face used to flash out the search pattern. | 870 "Face used to flash out the search pattern. |
| 876 DO NOT CHANGE this variable. Instead, use the customization widget | 871 DO NOT CHANGE this variable. Instead, use the customization widget |
| 877 to customize the actual face object `viper-search' | 872 to customize the actual face object `viper-search' |
| 878 this variable represents.") | 873 this variable represents.") |
| 879 (viper-hide-face viper-search-face) | |
| 880 | |
| 881 | 874 |
| 882 (defface viper-replace-overlay | 875 (defface viper-replace-overlay |
| 883 '((((class color)) (:foreground "Black" :background "darkseagreen2")) | 876 '((((class color)) (:foreground "Black" :background "darkseagreen2")) |
| 884 (t (:underline t :stipple "gray3"))) | 877 (t (:underline t :stipple "gray3"))) |
| 885 "*Face for highlighting replace regions on a window display." | 878 "*Face for highlighting replace regions on a window display." |
| 888 (defvar viper-replace-overlay-face 'viper-replace-overlay | 881 (defvar viper-replace-overlay-face 'viper-replace-overlay |
| 889 "Face for highlighting replace regions on a window display. | 882 "Face for highlighting replace regions on a window display. |
| 890 DO NOT CHANGE this variable. Instead, use the customization widget | 883 DO NOT CHANGE this variable. Instead, use the customization widget |
| 891 to customize the actual face object `viper-replace-overlay' | 884 to customize the actual face object `viper-replace-overlay' |
| 892 this variable represents.") | 885 this variable represents.") |
| 893 (viper-hide-face viper-replace-overlay-face) | |
| 894 | |
| 895 | 886 |
| 896 (defface viper-minibuffer-emacs | 887 (defface viper-minibuffer-emacs |
| 897 '((((class color)) (:foreground "Black" :background "darkseagreen2")) | 888 '((((class color)) (:foreground "Black" :background "darkseagreen2")) |
| 898 (t (:weight bold))) | 889 (t (:weight bold))) |
| 899 "Face used in the Minibuffer when it is in Emacs state." | 890 "Face used in the Minibuffer when it is in Emacs state." |
| 902 (defvar viper-minibuffer-emacs-face 'viper-minibuffer-emacs | 893 (defvar viper-minibuffer-emacs-face 'viper-minibuffer-emacs |
| 903 "Face used in the Minibuffer when it is in Emacs state. | 894 "Face used in the Minibuffer when it is in Emacs state. |
| 904 DO NOT CHANGE this variable. Instead, use the customization widget | 895 DO NOT CHANGE this variable. Instead, use the customization widget |
| 905 to customize the actual face object `viper-minibuffer-emacs' | 896 to customize the actual face object `viper-minibuffer-emacs' |
| 906 this variable represents.") | 897 this variable represents.") |
| 907 (viper-hide-face viper-minibuffer-emacs-face) | |
| 908 | |
| 909 | 898 |
| 910 (defface viper-minibuffer-insert | 899 (defface viper-minibuffer-insert |
| 911 '((((class color)) (:foreground "Black" :background "pink")) | 900 '((((class color)) (:foreground "Black" :background "pink")) |
| 912 (t (:slant italic))) | 901 (t (:slant italic))) |
| 913 "Face used in the Minibuffer when it is in Insert state." | 902 "Face used in the Minibuffer when it is in Insert state." |
| 916 (defvar viper-minibuffer-insert-face 'viper-minibuffer-insert | 905 (defvar viper-minibuffer-insert-face 'viper-minibuffer-insert |
| 917 "Face used in the Minibuffer when it is in Insert state. | 906 "Face used in the Minibuffer when it is in Insert state. |
| 918 DO NOT CHANGE this variable. Instead, use the customization widget | 907 DO NOT CHANGE this variable. Instead, use the customization widget |
| 919 to customize the actual face object `viper-minibuffer-insert' | 908 to customize the actual face object `viper-minibuffer-insert' |
| 920 this variable represents.") | 909 this variable represents.") |
| 921 (viper-hide-face viper-minibuffer-insert-face) | |
| 922 | |
| 923 | 910 |
| 924 (defface viper-minibuffer-vi | 911 (defface viper-minibuffer-vi |
| 925 '((((class color)) (:foreground "DarkGreen" :background "grey")) | 912 '((((class color)) (:foreground "DarkGreen" :background "grey")) |
| 926 (t (:inverse-video t))) | 913 (t (:inverse-video t))) |
| 927 "Face used in the Minibuffer when it is in Vi state." | 914 "Face used in the Minibuffer when it is in Vi state." |
| 930 (defvar viper-minibuffer-vi-face 'viper-minibuffer-vi | 917 (defvar viper-minibuffer-vi-face 'viper-minibuffer-vi |
| 931 "Face used in the Minibuffer when it is in Vi state. | 918 "Face used in the Minibuffer when it is in Vi state. |
| 932 DO NOT CHANGE this variable. Instead, use the customization widget | 919 DO NOT CHANGE this variable. Instead, use the customization widget |
| 933 to customize the actual face object `viper-minibuffer-vi' | 920 to customize the actual face object `viper-minibuffer-vi' |
| 934 this variable represents.") | 921 this variable represents.") |
| 935 (viper-hide-face viper-minibuffer-vi-face) | |
| 936 | 922 |
| 937 ;; the current face to be used in the minibuffer | 923 ;; the current face to be used in the minibuffer |
| 938 (viper-deflocalvar | 924 (viper-deflocalvar |
| 939 viper-minibuffer-current-face viper-minibuffer-emacs-face "") | 925 viper-minibuffer-current-face viper-minibuffer-emacs-face "") |
| 940 | 926 |