aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/emulation
diff options
context:
space:
mode:
authorMichael Kifer1997-08-09 04:30:41 +0000
committerMichael Kifer1997-08-09 04:30:41 +0000
commit985d0dad78738e6863337df2cd0997390182380d (patch)
tree3ccfcc79bb380aa64dd7e43fd687309084433f48 /lisp/emulation
parent03e88613889a536f59f74e22a41e585212d4f185 (diff)
downloademacs-985d0dad78738e6863337df2cd0997390182380d.tar.gz
emacs-985d0dad78738e6863337df2cd0997390182380d.zip
new version
Diffstat (limited to 'lisp/emulation')
-rw-r--r--lisp/emulation/viper-init.el9
-rw-r--r--lisp/emulation/viper-util.el4
-rw-r--r--lisp/emulation/viper.el2
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.