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: ") |