(comment-indent): Paren typo.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 32cbc7ea8f5a37bbb6a96f68f1a6745e724af4ba..7c63685520510ab56ac9e8a504191b2bde48def4 100644 (file)
--- 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 4675370fdf73a658d4803e8236248dc94cda2a0a..2fe635b1a796e4b768f1d0aeafaa82b319ebc1ed 100644 (file)
--- 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)