aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLeo Liu2012-11-26 00:07:58 +0800
committerLeo Liu2012-11-26 00:07:58 +0800
commit9ad7950682da214673bfea09d9242eb5b538073a (patch)
tree749568132eb753b1f2d18b9c5b2fbf3a9b55cbdd
parentcf5b88801b26c4ba0f5b9f0d5c1eea535a8dbb5a (diff)
downloademacs-9ad7950682da214673bfea09d9242eb5b538073a.tar.gz
emacs-9ad7950682da214673bfea09d9242eb5b538073a.zip
* lisp/textmodes/sgml-mode.el (sgml-tag): Fix indentation for closing tag.
Fixes: debbugs:12979
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/textmodes/sgml-mode.el4
2 files changed, 7 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f0a487370d3..9e403af6416 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
12012-11-25 Leo Liu <sdl.web@gmail.com>
2
3 * textmodes/sgml-mode.el (sgml-tag): Fix indentation for closing tag.
4 (Bug#12979)
5
12012-11-24 Vincent Belaïche <vincentb1@users.sourceforge.net> 62012-11-24 Vincent Belaïche <vincentb1@users.sourceforge.net>
2 7
3 * textmodes/reftex-parse.el (reftex-parse-from-file): Use variable 8 * textmodes/reftex-parse.el (reftex-parse-from-file): Use variable
diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el
index 46c65b25b37..ed031664246 100644
--- a/lisp/textmodes/sgml-mode.el
+++ b/lisp/textmodes/sgml-mode.el
@@ -671,13 +671,13 @@ in your `.emacs':
671 (if (eq v2 t) (setq v2 nil)) 671 (if (eq v2 t) (setq v2 nil))
672 ;; We use `identity' to prevent skeleton from passing 672 ;; We use `identity' to prevent skeleton from passing
673 ;; `str' through `skeleton-transformation-function' a second time. 673 ;; `str' through `skeleton-transformation-function' a second time.
674 '(("") v2 _ v2 "</" (identity ',str) ?>)) 674 '(("") v2 _ v2 "</" (identity ',str) ?> >))
675 ((eq (car v2) t) 675 ((eq (car v2) t)
676 (cons '("") (cdr v2))) 676 (cons '("") (cdr v2)))
677 (t 677 (t
678 (append '(("") (car v2)) 678 (append '(("") (car v2))
679 (cdr v2) 679 (cdr v2)
680 '(resume: (car v2) _ "</" (identity ',str) ?>)))))) 680 '(resume: (car v2) _ "</" (identity ',str) ?> >))))))
681 681
682(autoload 'skeleton-read "skeleton") 682(autoload 'skeleton-read "skeleton")
683 683