From 992aa6b715846133621bf2d6861b86fda807be95 Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Thu, 17 May 2007 13:33:12 +0000 Subject: [PATCH] (sgml-tag): Fix bug: Call sgml-transformation-function. --- lisp/ChangeLog | 5 +++++ lisp/textmodes/sgml-mode.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index bca021e7add..cf842507737 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-05-17 Christian Plate (tiny change) + + * textmodes/sgml-mode.el (sgml-tag): + Fix bug: Call sgml-transformation-function. + 2007-05-17 Martin Rudalics * 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 51ff5e48a34..e8beed036c2 100644 --- 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) -- 2.39.2