aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorLeo Liu2012-11-26 00:07:58 +0800
committerLeo Liu2012-11-26 00:07:58 +0800
commit9ad7950682da214673bfea09d9242eb5b538073a (patch)
tree749568132eb753b1f2d18b9c5b2fbf3a9b55cbdd /lisp
parentcf5b88801b26c4ba0f5b9f0d5c1eea535a8dbb5a (diff)
downloademacs-9ad7950682da214673bfea09d9242eb5b538073a.tar.gz
emacs-9ad7950682da214673bfea09d9242eb5b538073a.zip
* lisp/textmodes/sgml-mode.el (sgml-tag): Fix indentation for closing tag.
Fixes: debbugs:12979
Diffstat (limited to 'lisp')
-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