Mercurial > emacs
changeset 33485:decc878ec612
(comment-indent): Paren typo.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 14 Nov 2000 15:09:40 +0000 |
| parents | e64bda3bd077 |
| children | 932a9c3c4ab2 |
| files | lisp/newcomment.el |
| diffstat | 1 files changed, 10 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/newcomment.el Tue Nov 14 14:41:51 2000 +0000 +++ b/lisp/newcomment.el Tue Nov 14 15:09:40 2000 +0000 @@ -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 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)