# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1018301525 0
# Node ID 9e6f2afa9f190ae8dc29dca77adb3b0d5604b59f
# Parent  0a1bd8f47e7feff71f4081d8dc782dc464796acb
(sgml-comment-indent-new-line): New fun.
(sgml-mode): Use it for comment-line-break-function.

diff -r 0a1bd8f47e7f -r 9e6f2afa9f19 lisp/textmodes/sgml-mode.el
--- a/lisp/textmodes/sgml-mode.el	Mon Apr 08 19:44:08 2002 +0000
+++ b/lisp/textmodes/sgml-mode.el	Mon Apr 08 21:32:05 2002 +0000
@@ -373,6 +373,13 @@
 
 (defvar v2)				; free for skeleton
 
+(defun sgml-comment-indent-new-line (&optional soft)
+  (let ((comment-start "-- ")
+	(comment-start-skip "\\(<!\\)?--[ \t]*")
+	(comment-end " --")
+	(comment-style 'plain))
+    (comment-indent-new-line soft)))
+
 (defun sgml-mode-facemenu-add-face-function (face end)
   (if (setq face (cdr (assq face sgml-face-tag-alist)))
       (progn
@@ -416,6 +423,8 @@
   (set (make-local-variable 'comment-start) "<!-- ")
   (set (make-local-variable 'comment-end) " -->")
   (set (make-local-variable 'comment-indent-function) 'sgml-comment-indent)
+  (set (make-local-variable 'comment-line-break-function)
+       'sgml-comment-indent-new-line)
   (set (make-local-variable 'skeleton-further-elements)
        '((completion-ignore-case t)))
   (set (make-local-variable 'skeleton-end-hook)
@@ -885,7 +894,7 @@
 	  (skip-chars-forward "^<" pos)
           (setq state
                 (cond
-                 ((= (point) pos) 
+                 ((= (point) pos)
                   ;; We got to the end without seeing a tag.
                   nil)
                  ((looking-at "<!\\[[A-Z]+\\[")
@@ -988,7 +997,7 @@
       (setq tag-type 'comment
             tag-start (search-backward "<!--" nil t)))
      ((sgml-looking-back-at "]]")   ; cdata
-      (setq tag-type 'cdata 
+      (setq tag-type 'cdata
             tag-start (re-search-backward "<!\\[[A-Z]+\\[" nil t)))
      (t
       (setq tag-start