HCoop
/
bpt
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e036e92
)
(comment-indent): Don't insert a fixed number of spaces.
author
Stefan Monnier
<monnier@iro.umontreal.ca>
Sat, 1 Sep 2001 21:23:17 +0000
(21:23 +0000)
committer
Stefan Monnier
<monnier@iro.umontreal.ca>
Sat, 1 Sep 2001 21:23:17 +0000
(21:23 +0000)
lisp/newcomment.el
patch
|
blob
|
blame
|
history
diff --git
a/lisp/newcomment.el
b/lisp/newcomment.el
index
e52231e
..
2a889e6
100644
(file)
--- a/
lisp/newcomment.el
+++ b/
lisp/newcomment.el
@@
-5,7
+5,7
@@
;; Author: code extracted from Emacs-20's simple.el
;; Maintainer: Stefan Monnier <monnier@cs.yale.edu>
;; Keywords: comment uncomment
;; Author: code extracted from Emacs-20's simple.el
;; Maintainer: Stefan Monnier <monnier@cs.yale.edu>
;; Keywords: comment uncomment
-;; Revision: $Id: newcomment.el,v 1.3
2 2001/08/21 18:30:59
monnier Exp $
+;; Revision: $Id: newcomment.el,v 1.3
3 2001/09/01 21:19:45
monnier Exp $
;; This file is part of GNU Emacs.
;; This file is part of GNU Emacs.
@@
-446,10
+446,8
@@
If CONTINUE is non-nil, use the `comment-continue' markers if any."
;; If none, insert one.
(save-excursion
;; Some comment-indent-function insist on not moving comments that
;; If none, insert one.
(save-excursion
;; Some comment-indent-function insist on not moving comments that
- ;; are in column 0, so we insert a space to avoid this special
- ;; case. The check for (zerop comment-column) is used for cases
- ;; where we're called from comment-indent-new-line.
- (unless (zerop comment-column) (insert " "))
+ ;; are in column 0, so we first go to the likely target column.
+ (indent-to comment-column)
(setq begpos (point))
(insert starter)
(setq cpos (point-marker))
(setq begpos (point))
(insert starter)
(setq cpos (point-marker))