diff options
| author | Michael Kifer | 1997-08-09 04:30:41 +0000 |
|---|---|---|
| committer | Michael Kifer | 1997-08-09 04:30:41 +0000 |
| commit | 985d0dad78738e6863337df2cd0997390182380d (patch) | |
| tree | 3ccfcc79bb380aa64dd7e43fd687309084433f48 /lisp/emulation | |
| parent | 03e88613889a536f59f74e22a41e585212d4f185 (diff) | |
| download | emacs-985d0dad78738e6863337df2cd0997390182380d.tar.gz emacs-985d0dad78738e6863337df2cd0997390182380d.zip | |
new version
Diffstat (limited to 'lisp/emulation')
| -rw-r--r-- | lisp/emulation/viper-init.el | 9 | ||||
| -rw-r--r-- | lisp/emulation/viper-util.el | 4 | ||||
| -rw-r--r-- | lisp/emulation/viper.el | 2 |
3 files changed, 12 insertions, 3 deletions
diff --git a/lisp/emulation/viper-init.el b/lisp/emulation/viper-init.el index 30d12695223..18878d8328b 100644 --- a/lisp/emulation/viper-init.el +++ b/lisp/emulation/viper-init.el | |||
| @@ -692,6 +692,15 @@ Related buffers can be cycled through via :R and :P commands." | |||
| 692 | 692 | ||
| 693 | ;;; Face-saving tricks | 693 | ;;; Face-saving tricks |
| 694 | 694 | ||
| 695 | ;;(defcustom viper-replace-overlay-pixmap "gray3" | ||
| 696 | ;; "Pixmap to use for search face on non-color displays." | ||
| 697 | ;; :type 'string | ||
| 698 | ;; :group 'viper) | ||
| 699 | ;;(defcustom viper-search-face-pixmap "gray3" | ||
| 700 | ;; "Pixmap to use for search face on non-color displays." | ||
| 701 | ;; :type 'string | ||
| 702 | ;; :group 'viper) | ||
| 703 | |||
| 695 | (defun viper-hide-face (face) | 704 | (defun viper-hide-face (face) |
| 696 | (if (and (viper-has-face-support-p) viper-emacs-p) | 705 | (if (and (viper-has-face-support-p) viper-emacs-p) |
| 697 | (add-to-list 'facemenu-unlisted-faces face))) | 706 | (add-to-list 'facemenu-unlisted-faces face))) |
diff --git a/lisp/emulation/viper-util.el b/lisp/emulation/viper-util.el index d9e39281a70..9a11e0d35e9 100644 --- a/lisp/emulation/viper-util.el +++ b/lisp/emulation/viper-util.el | |||
| @@ -1130,7 +1130,7 @@ Must be called in order for changes to `viper-syntax-preference' to take effect. | |||
| 1130 | 'forward | 1130 | 'forward |
| 1131 | (cond ((eq viper-syntax-preference 'strict-vi) | 1131 | (cond ((eq viper-syntax-preference 'strict-vi) |
| 1132 | "") | 1132 | "") |
| 1133 | (t viper-ALPHA-char-class )) | 1133 | (t viper-ALPHA-char-class)) |
| 1134 | (cond ((eq viper-syntax-preference 'strict-vi) | 1134 | (cond ((eq viper-syntax-preference 'strict-vi) |
| 1135 | (concat viper-strict-ALPHA-chars addl-chars)) | 1135 | (concat viper-strict-ALPHA-chars addl-chars)) |
| 1136 | (t addl-chars)))) | 1136 | (t addl-chars)))) |
| @@ -1141,7 +1141,7 @@ Must be called in order for changes to `viper-syntax-preference' to take effect. | |||
| 1141 | 'backward | 1141 | 'backward |
| 1142 | (cond ((eq viper-syntax-preference 'strict-vi) | 1142 | (cond ((eq viper-syntax-preference 'strict-vi) |
| 1143 | "") | 1143 | "") |
| 1144 | (t viper-ALPHA-char-class )) | 1144 | (t viper-ALPHA-char-class)) |
| 1145 | (cond ((eq viper-syntax-preference 'strict-vi) | 1145 | (cond ((eq viper-syntax-preference 'strict-vi) |
| 1146 | (concat viper-strict-ALPHA-chars addl-chars)) | 1146 | (concat viper-strict-ALPHA-chars addl-chars)) |
| 1147 | (t addl-chars)))) | 1147 | (t addl-chars)))) |
diff --git a/lisp/emulation/viper.el b/lisp/emulation/viper.el index 84fac506164..269c54d18a4 100644 --- a/lisp/emulation/viper.el +++ b/lisp/emulation/viper.el | |||
| @@ -8,7 +8,7 @@ | |||
| 8 | 8 | ||
| 9 | ;; Copyright (C) 1994, 1995, 1996, 1997 Free Software Foundation, Inc. | 9 | ;; Copyright (C) 1994, 1995, 1996, 1997 Free Software Foundation, Inc. |
| 10 | 10 | ||
| 11 | (defconst viper-version "2.96 of August 1, 1997" | 11 | (defconst viper-version "2.96 of August 7, 1997" |
| 12 | "The current version of Viper") | 12 | "The current version of Viper") |
| 13 | 13 | ||
| 14 | ;; This file is part of GNU Emacs. | 14 | ;; This file is part of GNU Emacs. |