[Emacs-diffs] Changes to emacs/lisp/newcomment.el

[Stefan Monnier]

Index: emacs/lisp/newcomment.el
diff -c emacs/lisp/newcomment.el:1.53 emacs/lisp/newcomment.el:1.54
*** emacs/lisp/newcomment.el:1.53       Wed Sep 11 05:31:55 2002
--- emacs/lisp/newcomment.el    Fri Sep 13 14:22:37 2002
***************
*** 734,745 ****
      (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."
    (let ((bindent (make-symbol "bindent")))
      `(let ((,bindent (save-excursion (goto-char beg) (current-column))))
         (save-restriction
--- 734,744 ----
      (cons (concat cs "\n" (make-string min-indent ? ) ccs)
          (concat cce "\n" (make-string (+ min-indent eindent) ? ) ce))))
  
  (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