/[emacs]/emacs/lisp/newcomment.el
ViewVC logotype

Diff of /emacs/lisp/newcomment.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.35.4.1 by monnier, Tue Nov 13 20:16:06 2001 UTC revision 1.35.4.2 by monnier, Mon Nov 19 04:59:10 2001 UTC
# Line 462  If CONTINUE is non-nil, use the `comment Line 462  If CONTINUE is non-nil, use the `comment
462            ;; comment-indent-function refuses delegates to indent.            ;; comment-indent-function refuses delegates to indent.
463            (indent-according-to-mode)            (indent-according-to-mode)
464          ;; Avoid moving comments past the fill-column.          ;; Avoid moving comments past the fill-column.
465          (setq indent          (unless (save-excursion (skip-chars-backward " \t") (bolp))
466                (min indent            (setq indent
467                     (+ (current-column)                  (min indent
468                        (- fill-column                       (+ (current-column)
469                           (save-excursion (end-of-line) (current-column))))))                          (- fill-column
470                               (save-excursion (end-of-line) (current-column)))))))
471          (if (= (current-column) indent)          (if (= (current-column) indent)
472              (goto-char begpos)              (goto-char begpos)
473            ;; If that's different from current, change it.            ;; If that's different from current, change it.

Legend:
Removed from v.1.35.4.1  
changed lines
  Added in v.1.35.4.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26