;; 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.32 2001/08/21 18:30:59 monnier Exp $
+;; Revision: $Id: newcomment.el,v 1.33 2001/09/01 21:19:45 monnier Exp $
;; This file is part of GNU Emacs.
;; 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))