Mercurial > emacs
changeset 33468:4d15850856e4
(comment-indent-default): Stick \s<\s< to the left
when it follows non-comment text on the line.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 14 Nov 2000 10:03:56 +0000 |
| parents | 09da172d93be |
| children | e253e6841746 |
| files | lisp/newcomment.el |
| diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/newcomment.el Tue Nov 14 09:52:24 2000 +0000 +++ b/lisp/newcomment.el Tue Nov 14 10:03:56 2000 +0000 @@ -6,7 +6,7 @@ ;; Maintainer: Stefan Monnier <monnier@cs.yale.edu> ;; Keywords: comment uncomment ;; Version: $Name: $ -;; Revision: $Id: newcomment.el,v 1.21 2000/10/05 22:43:22 monnier Exp $ +;; Revision: $Id: newcomment.el,v 1.22 2000/10/08 19:07:41 monnier Exp $ ;; This file is part of GNU Emacs. @@ -399,7 +399,9 @@ ;;;###autoload (defun comment-indent-default () "Default for `comment-indent-function'." - (if (looking-at "\\s<\\s<\\s<") 0 + (if (and (looking-at "\\s<\\s<\\(\\s<\\)?") + (or (match-end 1) (/= (current-column) (current-indentation)))) + 0 (when (or (/= (current-column) (current-indentation)) (and (> comment-add 0) (looking-at "\\s<\\S<"))) comment-column)))