From 51df53f840effe95be3c4ca1210a87fec1aafd53 Mon Sep 17 00:00:00 2001 From: Mike Williams Date: Tue, 14 May 2002 09:51:03 +0000 Subject: [PATCH] (sgml-tag): Default skeleton-transformation to `identity'. --- 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 f2431e938d5..d0b24524d26 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-05-14 Mike Williams + + * textmodes/sgml-mode.el (sgml-tag): Default + skeleton-transformation to `identity'. + 2002-05-14 Francesco Potorti` * 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 "<")) | ; see comment above `(("") '(setq v2 (sgml-attributes ,str t)) ?> -- 2.39.5