diff options
| -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 |