# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 974196236 0
# Node ID 4d15850856e4993a48c843310bab0808c195c6cb
# Parent  09da172d93bebff956ef6e476291df8b054f5d25
(comment-indent-default): Stick \s<\s< to the left
when it follows non-comment text on the line.

diff -r 09da172d93be -r 4d15850856e4 lisp/newcomment.el
--- 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)))