diff options
| author | Stefan Monnier | 2002-09-13 18:22:37 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2002-09-13 18:22:37 +0000 |
| commit | 4745e7383364deebade9f35e8d421ab6bd1f8874 (patch) | |
| tree | 8df17e71e0d1235a282dd038bae15d4e53232ff3 | |
| parent | 12a117459853e500e3978ef34a19af72a674d648 (diff) | |
| download | emacs-4745e7383364deebade9f35e8d421ab6bd1f8874.tar.gz emacs-4745e7383364deebade9f35e8d421ab6bd1f8874.zip | |
(comment-with-narrowing): Use the `declare' thingy.
| -rw-r--r-- | lisp/newcomment.el | 3 |
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. |
| 741 | Space is added (and then removed) at the beginning for the text's | 739 | Space is added (and then removed) at the beginning for the text's |
| 742 | indentation to be kept as it was before narrowing." | 740 | indentation 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 |