mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-03 22:20:52 -08:00
Code Issues Projects Releases Wiki Activity

(comment-indent): Paren typo.

Browse source
This commit is contained in:
Stefan Monnier 2000-11-14 15:10:02 +00:00
parent 8628686a18
commit bb304a7a29
2 changed files with 14 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -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.

19
lisp/newcomment.el
View file

@ -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)