diff options
author | Andreas Schwab <schwab@linux-m68k.org> | 2012-08-07 18:12:20 +0200 |
---|---|---|
committer | Andreas Schwab <schwab@linux-m68k.org> | 2012-08-07 18:12:20 +0200 |
commit | 651eaf36f227ac6067263fe1fb9a7c56984a9b6d (patch) | |
tree | 63f5f8839f74c768b85cbfc204cf8d15c45045fa /lisp/emulation/vip.el | |
parent | c644523bd8a23e518c91b61a1b8520e866b715b9 (diff) |
* calc/calc-prog.el (math-do-defmath): Use backquote forms. Fix
handling of interactive spec when the body uses return.
(math-do-arg-check, math-define-function-body): Use backquote forms.
* calc/calc-ext.el (math-defcache): Likewise.
* calc/calc-rewr.el (math-rwfail, math-rweval): Likewise.
* allout.el (allout-new-exposure): Likewise.
* calc/calcalg2.el (math-tracing-integral): Likewise.
* info.el (Info-last-menu-item): Likewise.
* emulation/vip.el (vip-loop): Likewise.
* textmodes/artist.el (artist-funcall): Likewise.
* menu-bar.el (menu-bar-make-mm-toggle, menu-bar-make-toggle):
Construct menu-item directly.
* cedet/ede/base.el (ede-with-projectfile): Use backquote forms.
Diffstat (limited to 'lisp/emulation/vip.el')
-rw-r--r-- | lisp/emulation/vip.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emulation/vip.el b/lisp/emulation/vip.el index 29020a4bdf..c313a97f72 100644 --- a/lisp/emulation/vip.el +++ b/lisp/emulation/vip.el @@ -307,10 +307,10 @@ If nil then it is bound to `delete-backward-char'." (defmacro vip-loop (count body) "(COUNT BODY) Execute BODY COUNT times." - (list 'let (list (list 'count count)) - (list 'while (list '> 'count 0) - body - (list 'setq 'count (list '1- 'count))))) + `(let ((count ,count)) + (while (> count 0) + ,body + (setq count (1- count))))) (defun vip-push-mark-silent (&optional location) "Set mark at LOCATION (point, by default) and push old mark on mark ring. |