Mercurial > emacs

comparison lisp/newcomment.el @ 34459:1007fb1b5df9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(comment-indent-new-line): Use delete-horizontal-space (so as to obey the field property in the minibuffer).
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 11 Dec 2000 21:41:35 +0000
parents 7ab80112df37
children 45a589a4c480
comparison
equal deleted inserted replaced
34458:1f4c4ece46a0 34459:1007fb1b5df9
4 4
5 ;; Author: code extracted from Emacs-20's simple.el 5 ;; Author: code extracted from Emacs-20's simple.el
6 ;; Maintainer: Stefan Monnier <monnier@cs.yale.edu> 6 ;; Maintainer: Stefan Monnier <monnier@cs.yale.edu>
7 ;; Keywords: comment uncomment 7 ;; Keywords: comment uncomment
8 ;; Version: $Name: $ 8 ;; Version: $Name: $
9 ;; Revision: $Id: newcomment.el,v 1.26 2000/11/29 05:11:01 monnier Exp $ 9 ;; Revision: $Id: newcomment.el,v 1.27 2000/12/06 19:54:37 fx Exp $
10 10
11 ;; This file is part of GNU Emacs. 11 ;; This file is part of GNU Emacs.
12 12
13 ;; GNU Emacs is free software; you can redistribute it and/or modify 13 ;; GNU Emacs is free software; you can redistribute it and/or modify
14 ;; it under the terms of the GNU General Public License as published by 14 ;; it under the terms of the GNU General Public License as published by
926 (not (save-excursion 926 (not (save-excursion
927 (prog1 (setq compos (comment-beginning)) 927 (prog1 (setq compos (comment-beginning))
928 (setq comin (point)))))) 928 (setq comin (point))))))
929 929
930 ;; Now we know we should auto-fill. 930 ;; Now we know we should auto-fill.
931 (delete-region (progn (skip-chars-backward " \t") (point)) 931 (delete-horizontal-space)
932 (progn (skip-chars-forward " \t") (point)))
933 (if soft (insert-and-inherit ?\n) (newline 1)) 932 (if soft (insert-and-inherit ?\n) (newline 1))
934 (if fill-prefix 933 (if fill-prefix
935 (progn 934 (progn
936 (indent-to-left-margin) 935 (indent-to-left-margin)
937 (insert-and-inherit fill-prefix)) 936 (insert-and-inherit fill-prefix))