summaryrefslogtreecommitdiff
path: root/lisp/newcomment.el
diff options
context:
space:
mode:
authorStefan Monnier <monnier@iro.umontreal.ca>2000-11-14 15:10:02 +0000
committerStefan Monnier <monnier@iro.umontreal.ca>2000-11-14 15:10:02 +0000
commitbb304a7a29f190860b70f8a2ac7f9efb7573e73d (patch)
treea99321260e89bb93596c2310cd9495567d79c83a /lisp/newcomment.el
parent8628686a18ac35989db25430c0ad00b586367c47 (diff)
downloademacs-bb304a7a29f190860b70f8a2ac7f9efb7573e73d.tar.gz
(comment-indent): Paren typo.
Diffstat (limited to 'lisp/newcomment.el')
-rw-r--r--lisp/newcomment.el19
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)