diff options
| author | Leo Liu | 2012-11-26 00:07:58 +0800 |
|---|---|---|
| committer | Leo Liu | 2012-11-26 00:07:58 +0800 |
| commit | 9ad7950682da214673bfea09d9242eb5b538073a (patch) | |
| tree | 749568132eb753b1f2d18b9c5b2fbf3a9b55cbdd | |
| parent | cf5b88801b26c4ba0f5b9f0d5c1eea535a8dbb5a (diff) | |
| download | emacs-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/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/textmodes/sgml-mode.el | 4 |
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 @@ | |||
| 1 | 2012-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 | |||
| 1 | 2012-11-24 Vincent Belaïche <vincentb1@users.sourceforge.net> | 6 | 2012-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 | ||