From: Mike Williams <mdub@bigfoot.com>
Date: Tue, 14 May 2002 09:51:03 +0000 (+0000)
Subject: (sgml-tag): Default skeleton-transformation to `identity'.
X-Git-Tag: ttn-vms-21-2-B4~15064
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=51df53f840effe95be3c4ca1210a87fec1aafd53;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f2431e938d5..d0b24524d26 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-05-14  Mike Williams  <mdub@bigfoot.com>
+
+	* textmodes/sgml-mode.el (sgml-tag): Default
+	skeleton-transformation to `identity'.
+
 2002-05-14  Francesco Potorti`  <pot@gnu.org>
 
 	* shell.el (shell-mode): Make second part of initialisation
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'.
 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)) ?>