Mercurial > emacs
comparison lisp/textmodes/sgml-mode.el @ 80959:893a0d94013d
Revert last change.
| author | Thien-Thi Nguyen <ttn@gnuvola.org> |
|---|---|
| date | Fri, 18 May 2007 09:34:07 +0000 |
| parents | 7a27a4cd50b4 |
| children | b4da44959c38 |
comparison
equal
deleted
inserted
replaced
| 80958:eddaea3f8752 | 80959:893a0d94013d |
|---|---|
| 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 `sgml-transformation-function' RET `upcase' RET, or put this | 622 `skeleton-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 sgml-transformation-function 'identity) | 625 (funcall (or skeleton-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: ") |