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 | |
parent | 6ba0fd3eb934e5063db7621cb052339abfdb278b (diff) |
(sgml-tag): Default skeleton-transformation to `identity'.
-rw-r--r-- | lisp/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/textmodes/sgml-mode.el | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f2431e938d..d0b24524d2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-05-14 Mike Williams <[email protected]> + + * textmodes/sgml-mode.el (sgml-tag): Default + skeleton-transformation to `identity'. + 2002-05-14 Francesco Potorti` <[email protected]> * shell.el (shell-mode): Make second part of initialisation 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)) ?> |