(sgml-tag): Default skeleton-transformation to `identity'.

This commit is contained in:
Mike Williams 2002-05-14 09:51:03 +00:00
parent 6ba0fd3eb9
commit 51df53f840
2 changed files with 7 additions and 2 deletions

View file

@ -571,8 +571,8 @@ Completion and configuration are done according to `sgml-tag-alist'.
If you like tags and attributes in uppercase do \\[set-variable]
skeleton-transformation RET upcase RET, or put this in your `.emacs':
(setq sgml-transformation 'upcase)"
(funcall skeleton-transformation
(completing-read "Tag: " sgml-tag-alist))
(funcall (or skeleton-transformation 'identity)
(completing-read "Tag: " sgml-tag-alist))
?< str |
(("") -1 '(undo-boundary) (identity "&lt;")) | ; see comment above
`(("") '(setq v2 (sgml-attributes ,str t)) ?>