diff options
| author | Mike Williams | 2002-05-14 09:51:03 +0000 |
|---|---|---|
| committer | Mike Williams | 2002-05-14 09:51:03 +0000 |
| commit | 51df53f840effe95be3c4ca1210a87fec1aafd53 (patch) | |
| tree | 3be15ec79334978830edf81e1624d7be9cfa01ed /lisp/textmodes | |
| parent | 6ba0fd3eb934e5063db7621cb052339abfdb278b (diff) | |
| download | emacs-51df53f840effe95be3c4ca1210a87fec1aafd53.tar.gz emacs-51df53f840effe95be3c4ca1210a87fec1aafd53.zip | |
(sgml-tag): Default skeleton-transformation to `identity'.
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/sgml-mode.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el index b7b2eecfe64..58aec14b48b 100644 --- a/lisp/textmodes/sgml-mode.el +++ b/lisp/textmodes/sgml-mode.el | |||
| @@ -571,8 +571,8 @@ Completion and configuration are done according to `sgml-tag-alist'. | |||
| 571 | If you like tags and attributes in uppercase do \\[set-variable] | 571 | If you like tags and attributes in uppercase do \\[set-variable] |
| 572 | skeleton-transformation RET upcase RET, or put this in your `.emacs': | 572 | skeleton-transformation RET upcase RET, or put this in your `.emacs': |
| 573 | (setq sgml-transformation 'upcase)" | 573 | (setq sgml-transformation 'upcase)" |
| 574 | (funcall skeleton-transformation | 574 | (funcall (or skeleton-transformation 'identity) |
| 575 | (completing-read "Tag: " sgml-tag-alist)) | 575 | (completing-read "Tag: " sgml-tag-alist)) |
| 576 | ?< str | | 576 | ?< str | |
| 577 | (("") -1 '(undo-boundary) (identity "<")) | ; see comment above | 577 | (("") -1 '(undo-boundary) (identity "<")) | ; see comment above |
| 578 | `(("") '(setq v2 (sgml-attributes ,str t)) ?> | 578 | `(("") '(setq v2 (sgml-attributes ,str t)) ?> |