summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorGlenn Morris <rgm@gnu.org>2007-12-09 02:18:04 +0000
committerGlenn Morris <rgm@gnu.org>2007-12-09 02:18:04 +0000
commited8a25dfa1cb441e81333968f7a5bc8852f5e3b8 (patch)
tree5d99e37ba35c891d21aa36fd4ced4cc63c3c43dd /lisp
parenta5ded4c97bac3fc56e20f5273c5b6bc365949a1c (diff)
downloademacs-ed8a25dfa1cb441e81333968f7a5bc8852f5e3b8.tar.gz
(top-level): Use dolist rather than mapc in make-variable-frame-local call.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/emulation/viper-init.el10
2 files changed, 9 insertions, 6 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ec7ce254dae..4a5a423cebc 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-12-09 Glenn Morris <rgm@gnu.org>
+
+ * emulation/viper-init.el (top-level): Use dolist rather than mapc
+ in make-variable-frame-local call.
+
2007-12-08 Dan Nicolaescu <dann@ics.uci.edu>
* mail/hashcash.el (declare-function):
diff --git a/lisp/emulation/viper-init.el b/lisp/emulation/viper-init.el
index 539a561bb5b..c91886e0329 100644
--- a/lisp/emulation/viper-init.el
+++ b/lisp/emulation/viper-init.el
@@ -445,12 +445,10 @@ delete the text being replaced, as in standard Vi."
(defvar viper-vi-state-cursor-color nil)
(if (fboundp 'make-variable-frame-local)
- (mapc 'make-variable-frame-local
- '(viper-replace-overlay-cursor-color
- viper-insert-state-cursor-color
- viper-emacs-state-cursor-color
- viper-vi-state-cursor-color)))
-
+ (dolist (v '(viper-replace-overlay-cursor-color
+ viper-insert-state-cursor-color viper-emacs-state-cursor-color
+ viper-vi-state-cursor-color))
+ (make-variable-frame-local v)))
(viper-deflocalvar viper-replace-overlay nil "")
(put 'viper-replace-overlay 'permanent-local t)