aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2002-09-13 18:22:37 +0000
committerStefan Monnier2002-09-13 18:22:37 +0000
commit4745e7383364deebade9f35e8d421ab6bd1f8874 (patch)
tree8df17e71e0d1235a282dd038bae15d4e53232ff3
parent12a117459853e500e3978ef34a19af72a674d648 (diff)
downloademacs-4745e7383364deebade9f35e8d421ab6bd1f8874.tar.gz
emacs-4745e7383364deebade9f35e8d421ab6bd1f8874.zip
(comment-with-narrowing): Use the `declare' thingy.
-rw-r--r--lisp/newcomment.el3
1 files changed, 1 insertions, 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)."
734 (cons (concat cs "\n" (make-string min-indent ? ) ccs) 734 (cons (concat cs "\n" (make-string min-indent ? ) ccs)
735 (concat cce "\n" (make-string (+ min-indent eindent) ? ) ce)))) 735 (concat cce "\n" (make-string (+ min-indent eindent) ? ) ce))))
736 736
737(def-edebug-spec comment-with-narrowing t)
738(put 'comment-with-narrowing 'lisp-indent-function 2)
739(defmacro comment-with-narrowing (beg end &rest body) 737(defmacro comment-with-narrowing (beg end &rest body)
740 "Execute BODY with BEG..END narrowing. 738 "Execute BODY with BEG..END narrowing.
741Space is added (and then removed) at the beginning for the text's 739Space is added (and then removed) at the beginning for the text's
742indentation to be kept as it was before narrowing." 740indentation to be kept as it was before narrowing."
741 (declare (debug t) (indent 2))
743 (let ((bindent (make-symbol "bindent"))) 742 (let ((bindent (make-symbol "bindent")))
744 `(let ((,bindent (save-excursion (goto-char beg) (current-column)))) 743 `(let ((,bindent (save-excursion (goto-char beg) (current-column))))
745 (save-restriction 744 (save-restriction