Mercurial > emacs

changeset 47467:c5035e184eba

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(comment-with-narrowing): Use the `declare' thingy.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 13 Sep 2002 18:22:37 +0000
parents 4e6b6d281dd1
children de490e9b55fa
files lisp/newcomment.el
diffstat 1 files changed, 1 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/newcomment.el	Fri Sep 13 16:22:04 2002 +0000
+++ b/lisp/newcomment.el	Fri Sep 13 18:22:37 2002 +0000
@@ -734,12 +734,11 @@
     (cons (concat cs "\n" (make-string min-indent ? ) ccs)
 	  (concat cce "\n" (make-string (+ min-indent eindent) ? ) ce))))
 
-(def-edebug-spec comment-with-narrowing t)
-(put 'comment-with-narrowing 'lisp-indent-function 2)
 (defmacro comment-with-narrowing (beg end &rest body)
   "Execute BODY with BEG..END narrowing.
 Space is added (and then removed) at the beginning for the text's
 indentation to be kept as it was before narrowing."
+  (declare (debug t) (indent 2))
   (let ((bindent (make-symbol "bindent")))
     `(let ((,bindent (save-excursion (goto-char beg) (current-column))))
        (save-restriction