From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 13 Sep 2002 18:22:37 +0000 (+0000)
Subject: (comment-with-narrowing): Use the `declare' thingy.
X-Git-Tag: ttn-vms-21-2-B4~13180
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4745e7383364deebade9f35e8d421ab6bd1f8874;p=emacs.git

(comment-with-narrowing): Use the `declare' thingy.
---

diff --git a/lisp/newcomment.el b/lisp/newcomment.el
index 51dd4c5c20e..b44f63db903 100644
--- a/lisp/newcomment.el
+++ b/lisp/newcomment.el
@@ -734,12 +734,11 @@ This is used for `extra-line' style (or `box' style if BLOCK is specified)."
     (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