Subject: 24.2; [PATCH] fix indentation for closing tag in sgml-tag

From: Leo <[email-masked]>
Date: Sat, 24 Nov 2012 17:19:56 +0800

Try inserting tag, such as `form' in html mode using M-x sgml-tag and
you will see the closing tag incorrectly indented as shown here:

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b417df62..eb549017 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-11-24  Leo Liu  <[email-masked]>
+
+	* textmodes/sgml-mode.el (sgml-tag): Fix indentation for closing tag.
+
 2012-10-05  Glenn Morris  <[email-masked]>
 
 	* net/newst-treeview.el (newsticker-group-move-feed): Doc fix.
diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el
index 09f6b6b7..d3b779d2 100644
--- a/lisp/textmodes/sgml-mode.el
+++ b/lisp/textmodes/sgml-mode.el
@@ -672,13 +672,13 @@ (define-skeleton sgml-tag
       (if (eq v2 t) (setq v2 nil))
       ;; We use `identity' to prevent skeleton from passing
       ;; `str' through `skeleton-transformation-function' a second time.
-      '(("") v2 _ v2 "</" (identity ',str) ?>))
+      '(("") v2 _ v2 "</" (identity ',str) ?> >))
      ((eq (car v2) t)
       (cons '("") (cdr v2)))
      (t
       (append '(("") (car v2))
 	      (cdr v2)
-	      '(resume: (car v2) _ "</" (identity ',str) ?>))))))
+	      '(resume: (car v2) _ "</" (identity ',str) ?> >))))))
 
 (autoload 'skeleton-read "skeleton")