mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

(viper-describe-kbd-macros, viper-describe-one-macro):

Browse Source 
Use `mapc' rather than `mapcar'.
This commit is contained in:
Juanma Barranquero 2007-09-26 00:17:55 +00:00
parent 60e7e8966b
commit 1ca2d34b2d
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/emulation/viper-macs.el
View File

@ -466,7 +466,7 @@ If SCOPE is nil, the user is asked to specify the scope."
(viper-array-to-string macro-name)))
(setq lis2 (cons (car lis) lis2))
(setq lis (cdr lis)))
(setq lis2 (reverse lis2))
(set macro-alist-var (append lis2 (cons new-elt lis)))
(setq old-elt new-elt)))
@ -658,9 +658,9 @@ name from there."
(interactive)
(with-output-to-temp-buffer " *viper-info*"
(princ "Macros in Vi state:\n===================\n")
(mapcar 'viper-describe-one-macro viper-vi-kbd-macro-alist)
(mapc 'viper-describe-one-macro viper-vi-kbd-macro-alist)
(princ "\n\nMacros in Insert and Replace states:\n====================================\n")
(mapcar 'viper-describe-one-macro viper-insert-kbd-macro-alist)
(mapc 'viper-describe-one-macro viper-insert-kbd-macro-alist)
(princ "\n\nMacros in Emacs state:\n======================\n")
(mapcar 'viper-describe-one-macro viper-emacs-kbd-macro-alist)
))
@ -670,11 +670,11 @@ name from there."
(viper-display-macro (car macro))))
(princ " ** Buffer-specific:")
(if (viper-kbd-buf-alist macro)
(mapcar 'viper-describe-one-macro-elt (viper-kbd-buf-alist macro))
(mapc 'viper-describe-one-macro-elt (viper-kbd-buf-alist macro))
(princ " none\n"))
(princ "\n ** Mode-specific:")
(if (viper-kbd-mode-alist macro)
(mapcar 'viper-describe-one-macro-elt (viper-kbd-mode-alist macro))
(mapc 'viper-describe-one-macro-elt (viper-kbd-mode-alist macro))
(princ " none\n"))
(princ "\n ** Global:")
(if (viper-kbd-global-definition macro)