Re: [pot@gnu.org: (setq sgml-transformation 'upcase) has no effect]

[Christian Plate <cplate@web.de>]

Hi,

On Thursday 17 May 2007 11:58, Richard Stallman wrote:
> This doesn't need to be fixed for Emacs 22, but it would be good for
> someone to fix it in the trunk.

this is my first patch for Emacs and I'm not that familiar with lisp, but the 
fix seems to be trivial.

Regards,
  Christian

*** sgml-mode.el	17 Mai 2007 13:05:53 +0200	1.123
--- sgml-mode.el	17 Mai 2007 13:06:57 +0200	
***************
*** 620,629 ****
    "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
  in your `.emacs':
    (setq sgml-transformation-function 'upcase)"
!   (funcall (or skeleton-transformation-function 'identity)
             (setq sgml-tag-last
  		 (completing-read
  		  (if (> (length sgml-tag-last) 0)
--- 620,629 ----
    "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]
! `sgml-transformation-function' RET `upcase' RET, or put this
  in your `.emacs':
    (setq sgml-transformation-function 'upcase)"
!   (funcall (or sgml-transformation-function 'identity)
             (setq sgml-tag-last
  		 (completing-read
  		  (if (> (length sgml-tag-last) 0)