From 4745e7383364deebade9f35e8d421ab6bd1f8874 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 13 Sep 2002 18:22:37 +0000 Subject: [PATCH] (comment-with-narrowing): Use the `declare' thingy. --- lisp/newcomment.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) 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 -- 2.39.5