diff options
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/newcomment.el | 19 |
2 files changed, 14 insertions, 9 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 32cbc7ea8f5..7c636855205 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2000-11-14 Stefan Monnier <monnier@cs.yale.edu> + + * newcomment.el (comment-indent): Paren typo. + 2000-11-14 Dave Love <fx@gnu.org> * cmuscheme.el: Doc fixes. diff --git a/lisp/newcomment.el b/lisp/newcomment.el index 4675370fdf7..2fe635b1a79 100644 --- a/lisp/newcomment.el +++ b/lisp/newcomment.el @@ -6,7 +6,7 @@ ;; Maintainer: Stefan Monnier <monnier@cs.yale.edu> ;; Keywords: comment uncomment ;; Version: $Name: $ -;; Revision: $Id: newcomment.el,v 1.22 2000/10/08 19:07:41 monnier Exp $ +;; Revision: $Id: newcomment.el,v 1.23 2000/11/14 10:03:56 monnier Exp $ ;; This file is part of GNU Emacs. @@ -444,14 +444,15 @@ If CONTINUE is non-nil, use the `comment-continuation' markers if any." ;; If that's different from current, change it. (skip-chars-backward " \t") (delete-region (point) begpos) - (indent-to (if (bolp) indent (max indent (1+ (current-column)))))) - ;; An existing comment? - (if cpos - (progn (goto-char cpos) (set-marker cpos nil)) - ;; No, insert one. - (insert starter) - (save-excursion - (insert ender))))))))) + (indent-to (if (bolp) indent + (max indent (1+ (current-column))))))) + ;; An existing comment? + (if cpos + (progn (goto-char cpos) (set-marker cpos nil)) + ;; No, insert one. + (insert starter) + (save-excursion + (insert ender)))))))) ;;;###autoload (defun comment-set-column (arg) |