diff options
| author | Mike Williams <[email protected]> | 2002-05-14 09:51:03 +0000 |
|---|---|---|
| committer | Mike Williams <[email protected]> | 2002-05-14 09:51:03 +0000 |
| commit | 51df53f840effe95be3c4ca1210a87fec1aafd53 (patch) | |
| tree | 3be15ec79334978830edf81e1624d7be9cfa01ed /lisp/textmodes | |
| parent | 6ba0fd3eb934e5063db7621cb052339abfdb278b (diff) | |
(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 b7b2eecfe6..58aec14b48 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'. 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 "<")) | ; see comment above `(("") '(setq v2 (sgml-attributes ,str t)) ?> |