[Emacs-diffs] /srv/bzr/emacs/trunk r111009: * lisp/textmodes/sgml-mode.el (sgml-tag): Fix indentation for closing tag.

[Leo Liu]

------------------------------------------------------------
revno: 111009
fixes bug: http://debbugs.gnu.org/12979
committer: Leo Liu <address@hidden>
branch nick: trunk
timestamp: Mon 2012-11-26 00:07:58 +0800
message:
  * lisp/textmodes/sgml-mode.el (sgml-tag): Fix indentation for closing tag.
modified:
  lisp/ChangeLog
  lisp/textmodes/sgml-mode.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-11-25 05:05:34 +0000
+++ b/lisp/ChangeLog    2012-11-25 16:07:58 +0000
@@ -1,3 +1,8 @@
+2012-11-25  Leo Liu  <address@hidden>
+
+       * textmodes/sgml-mode.el (sgml-tag): Fix indentation for closing tag.
+       (Bug#12979)
+
 2012-11-24  Vincent Belaïche  <address@hidden>
 
        * textmodes/reftex-parse.el (reftex-parse-from-file): Use variable

=== modified file 'lisp/textmodes/sgml-mode.el'
--- a/lisp/textmodes/sgml-mode.el       2012-09-27 07:21:51 +0000
+++ b/lisp/textmodes/sgml-mode.el       2012-11-25 16:07:58 +0000
@@ -671,13 +671,13 @@
       (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")