(sgml-tag): Fix bug: Call sgml-transformation-function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bca021e7addb96244071c7d6d81368b57ac8e355..cf842507737e9e891c824c79822f3f7afab8310a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-05-17  Christian Plate  <cplate@web.de>  (tiny change)
+
+       * textmodes/sgml-mode.el (sgml-tag):
+       Fix bug: Call sgml-transformation-function.
+
 2007-05-17  Martin Rudalics  <rudalics@gmx.at>
 
        * hilit-chg.el (highlight-changes-rotate-faces): Don't set

diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el
index 51ff5e48a340d91d72bb272691f23be9f6531fda..e8beed036c2991fdbe3cd778f4e2a10f94ee195e 100644 (file)
--- a/lisp/textmodes/sgml-mode.el
+++ b/lisp/textmodes/sgml-mode.el
@@ -619,10 +619,10 @@ This only works for Latin-1 input."
   "Prompt for a tag and insert it, optionally with attributes.
 Completion and configuration are done according to `sgml-tag-alist'.
 If you like tags and attributes in uppercase do \\[set-variable]
-`skeleton-transformation-function' RET `upcase' RET, or put this
+`sgml-transformation-function' RET `upcase' RET, or put this
 in your `.emacs':
   (setq sgml-transformation-function 'upcase)"
-  (funcall (or skeleton-transformation-function 'identity)
+  (funcall (or sgml-transformation-function 'identity)
            (setq sgml-tag-last
                 (completing-read
                  (if (> (length sgml-tag-last) 0)