aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorStefan Monnier2002-09-13 18:22:37 +0000
committerStefan Monnier2002-09-13 18:22:37 +0000
commit4745e7383364deebade9f35e8d421ab6bd1f8874 (patch)
tree8df17e71e0d1235a282dd038bae15d4e53232ff3 /lisp
parent12a117459853e500e3978ef34a19af72a674d648 (diff)
downloademacs-4745e7383364deebade9f35e8d421ab6bd1f8874.tar.gz
emacs-4745e7383364deebade9f35e8d421ab6bd1f8874.zip
(comment-with-narrowing): Use the `declare' thingy.
Diffstat (limited to 'lisp')
-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