Mercurial > emacs
comparison lisp/textmodes/sgml-mode.el @ 80949:7a27a4cd50b4
(sgml-tag): Fix bug: Call sgml-transformation-function.
| author | Thien-Thi Nguyen <ttn@gnuvola.org> |
|---|---|
| date | Thu, 17 May 2007 13:31:51 +0000 |
| parents | 8938fa90afdb |
| children | 893a0d94013d |
comparison
equal
deleted
inserted
replaced
| 80948:3f6e1170212a | 80949:7a27a4cd50b4 |
|---|---|
| 617 (defvar sgml-tag-history nil) | 617 (defvar sgml-tag-history nil) |
| 618 (define-skeleton sgml-tag | 618 (define-skeleton sgml-tag |
| 619 "Prompt for a tag and insert it, optionally with attributes. | 619 "Prompt for a tag and insert it, optionally with attributes. |
| 620 Completion and configuration are done according to `sgml-tag-alist'. | 620 Completion and configuration are done according to `sgml-tag-alist'. |
| 621 If you like tags and attributes in uppercase do \\[set-variable] | 621 If you like tags and attributes in uppercase do \\[set-variable] |
| 622 `skeleton-transformation-function' RET `upcase' RET, or put this | 622 `sgml-transformation-function' RET `upcase' RET, or put this |
| 623 in your `.emacs': | 623 in your `.emacs': |
| 624 (setq sgml-transformation-function 'upcase)" | 624 (setq sgml-transformation-function 'upcase)" |
| 625 (funcall (or skeleton-transformation-function 'identity) | 625 (funcall (or sgml-transformation-function 'identity) |
| 626 (setq sgml-tag-last | 626 (setq sgml-tag-last |
| 627 (completing-read | 627 (completing-read |
| 628 (if (> (length sgml-tag-last) 0) | 628 (if (> (length sgml-tag-last) 0) |
| 629 (format "Tag (default %s): " sgml-tag-last) | 629 (format "Tag (default %s): " sgml-tag-last) |
| 630 "Tag: ") | 630 "Tag: ") |