[Emacs-diffs] /srv/bzr/emacs/trunk r109441: Add declares for viper-deflocalvar and viper-loop.

[Chong Yidong]

------------------------------------------------------------
revno: 109441
fixes bug: http://debbugs.gnu.org/7025
author: Vegard Øye <address@hidden>
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sun 2012-08-05 16:51:59 +0800
message:
  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.
modified:
  lisp/ChangeLog
  lisp/emulation/viper-init.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-08-05 08:41:12 +0000
+++ b/lisp/ChangeLog    2012-08-05 08:51:59 +0000
@@ -1,3 +1,9 @@
+2012-08-05  Vegard Øye  <address@hidden>
+
+       * emulation/viper-init.el (viper-deflocalvar): Add docstring and
+       indentation declaration.
+       (viper-loop): Add indentation declaration (Bug#7025).
+
 2012-08-05  Chong Yidong  <address@hidden>
 
        * help-fns.el (describe-variable): Add hyperlink for

=== modified file 'lisp/emulation/viper-init.el'
--- a/lisp/emulation/viper-init.el      2012-07-29 07:16:45 +0000
+++ b/lisp/emulation/viper-init.el      2012-08-05 08:51:59 +0000
@@ -96,6 +96,10 @@
 ;;; 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 @@
 
 ;; (viper-loop COUNT BODY) Execute BODY COUNT times.
 (defmacro viper-loop (count &rest body)
+  (declare (indent defun))
   `(let ((count ,count))
     (while (> count 0)
       ,@body