Commit d5c31f1d authored by Vegard Øye's avatar Vegard Øye Committed by Chong Yidong
Browse files

Add declares for viper-deflocalvar and viper-loop.

* lisp/emulation/viper-init.el (viper-deflocalvar): Add docstring and
indentation declaration.
(viper-loop): Add indentation declaration.

Fixes: debbugs:7025
parent f0422feb
2012-08-05 Vegard Øye <vegard_oye@hotmail.com>
* emulation/viper-init.el (viper-deflocalvar): Add docstring and
indentation declaration.
(viper-loop): Add indentation declaration (Bug#7025).
2012-08-05 Chong Yidong <cyd@gnu.org>
 
* help-fns.el (describe-variable): Add hyperlink for
......
......@@ -96,6 +96,10 @@ In all likelihood, you don't need to bother with this setting."
;;; Macros
(defmacro viper-deflocalvar (var default-value &optional documentation)
"Define VAR as a buffer-local variable.
DEFAULT-VALUE is the default value, and DOCUMENTATION is the
docstring. The variable becomes buffer-local whenever set."
(declare (indent defun))
`(progn
(defvar ,var ,default-value
,(format "%s\n\(buffer local\)" documentation))
......@@ -103,6 +107,7 @@ In all likelihood, you don't need to bother with this setting."
;; (viper-loop COUNT BODY) Execute BODY COUNT times.
(defmacro viper-loop (count &rest body)
(declare (indent defun))
`(let ((count ,count))
(while (> count 0)
,@body
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment