Mercurial > emacs

changeset 45286:6373f485f3c2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(sgml-tag): Default skeleton-transformation to `identity'.
author Mike Williams <mdub@bigfoot.com>
date Tue, 14 May 2002 09:50:19 +0000
parents dc0eece6818b
children 7635054dfa18
files lisp/textmodes/sgml-mode.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/sgml-mode.el	Tue May 14 08:46:00 2002 +0000
+++ b/lisp/textmodes/sgml-mode.el	Tue May 14 09:50:19 2002 +0000
@@ -571,8 +571,8 @@
 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)) ?>