From: Richard M. Stallman Date: Wed, 19 May 1999 21:30:58 +0000 (+0000) Subject: (texinfo-format-var): Handle other nested constructs, using X-Git-Tag: emacs-20.4~199 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=69c6eff89b8b9526d2afe14b4256b8f8256f6c47;p=emacs.git (texinfo-format-var): Handle other nested constructs, using texinfo-parse-expanded-arg and texinfo-discard-command, not texinfo-parse-arg-discard. --- diff --git a/lisp/textmodes/texinfmt.el b/lisp/textmodes/texinfmt.el index 91fa154933b..262e42c6f9e 100644 --- a/lisp/textmodes/texinfmt.el +++ b/lisp/textmodes/texinfmt.el @@ -2305,8 +2305,9 @@ This command is executed when texinfmt sees @item inside @multitable." ;; Convert all letters to uppercase if they are not already. (put 'acronym 'texinfo-format 'texinfo-format-var) (defun texinfo-format-var () - (insert (upcase (texinfo-parse-arg-discard))) - (goto-char texinfo-command-start)) + (let ((arg (texinfo-parse-expanded-arg))) + (texinfo-discard-command) + (insert (upcase arg)))) (put 'cite 'texinfo-format 'texinfo-format-code) (put 'code 'texinfo-format 'texinfo-format-code)