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

[Stefan Monnier]

Index: emacs/lisp/newcomment.el
diff -c emacs/lisp/newcomment.el:1.87 emacs/lisp/newcomment.el:1.88
*** emacs/lisp/newcomment.el:1.87       Tue Aug  9 20:38:35 2005
--- emacs/lisp/newcomment.el    Fri Nov  4 22:20:12 2005
***************
*** 943,951 ****
                (setq max-indent (max max-indent (current-column)))
                (not (or (eobp) (progn (forward-line) nil)))))
  
-         ;; Inserting ccs can change max-indent by (1- tab-width).
          (setq max-indent
!               (+ max-indent (max (length cs) (length ccs)) tab-width -1))
          (unless indent (setq min-indent 0))
  
          ;; make the leading and trailing lines if requested
--- 943,955 ----
                (setq max-indent (max max-indent (current-column)))
                (not (or (eobp) (progn (forward-line) nil)))))
  
          (setq max-indent
!               (+ max-indent (max (length cs) (length ccs))
!                    ;; Inserting ccs can change max-indent by (1- tab-width)
!                    ;; but only if there are TABs in the boxed text, of course.
!                    (if (save-excursion (goto-char beg)
!                                        (search-forward "\t" end t))
!                        (1- tab-width) 0)))
          (unless indent (setq min-indent 0))
  
          ;; make the leading and trailing lines if requested