diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-05-23 14:57:17 -0300 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-05-23 14:57:17 -0300 |
commit | 4f91a8160fe71295b7ad4d6e3f90f004caa3546c (patch) | |
tree | c0f3f767b785559ee0387e7cfb54a2a1aa06bcd5 /lisp/emulation/viper-util.el | |
parent | 782fc81943849d699d74c3039be80d4068bb3422 (diff) | |
download | emacs-4f91a8160fe71295b7ad4d6e3f90f004caa3546c.tar.gz |
Don't quote lambda expressions with `quote'.
Diffstat (limited to 'lisp/emulation/viper-util.el')
-rw-r--r-- | lisp/emulation/viper-util.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emulation/viper-util.el b/lisp/emulation/viper-util.el index 4aace25fc9c..24a38236176 100644 --- a/lisp/emulation/viper-util.el +++ b/lisp/emulation/viper-util.el @@ -1080,7 +1080,7 @@ Otherwise return the normal value." char-p (= (length base-key-name) 1)) (setq mod-char-list (mapcar - '(lambda (elt) (upcase (substring (symbol-name elt) 0 1))) + (lambda (elt) (upcase (substring (symbol-name elt) 0 1))) modifiers)) (if char-p (setq key-name @@ -1153,7 +1153,7 @@ Otherwise return the normal value." ;; XEmacs only (defun viper-event-vector-p (vec) (and (vectorp vec) - (eval (cons 'and (mapcar '(lambda (elt) (if (eventp elt) t)) vec))))) + (eval (cons 'and (mapcar (lambda (elt) (if (eventp elt) t)) vec))))) ;; check if vec is a vector of character symbols @@ -1239,7 +1239,7 @@ Arguments become related buffers. This function should normally be used in the `Local variables' section of a file." (setq viper-related-files-and-buffers-ring (make-ring (1+ (length other-files-or-buffers)))) - (mapc '(lambda (elt) + (mapc (lambda (elt) (viper-ring-insert viper-related-files-and-buffers-ring elt)) other-files-or-buffers) (viper-ring-insert viper-related-files-and-buffers-ring (buffer-name)) |