diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-11-14 15:10:02 +0000 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-11-14 15:10:02 +0000 |
commit | bb304a7a29f190860b70f8a2ac7f9efb7573e73d (patch) | |
tree | a99321260e89bb93596c2310cd9495567d79c83a /lisp/newcomment.el | |
parent | 8628686a18ac35989db25430c0ad00b586367c47 (diff) | |
download | emacs-bb304a7a29f190860b70f8a2ac7f9efb7573e73d.tar.gz |
(comment-indent): Paren typo.
Diffstat (limited to 'lisp/newcomment.el')
-rw-r--r-- | lisp/newcomment.el | 19 |
1 files changed, 10 insertions, 9 deletions
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) |