diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2002-09-13 18:22:37 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2002-09-13 18:22:37 +0000 |
| commit | 4745e7383364deebade9f35e8d421ab6bd1f8874 (patch) | |
| tree | 8df17e71e0d1235a282dd038bae15d4e53232ff3 /lisp/newcomment.el | |
| parent | 12a117459853e500e3978ef34a19af72a674d648 (diff) | |
| download | emacs-4745e7383364deebade9f35e8d421ab6bd1f8874.tar.gz | |
(comment-with-narrowing): Use the `declare' thingy.
Diffstat (limited to 'lisp/newcomment.el')
| -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)." (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 |