Mercurial > emacs
changeset 24750:ea9b449cc742
(texinfo-format-var): Handle other nested constructs, using
texinfo-parse-expanded-arg and texinfo-discard-command, not
texinfo-parse-arg-discard.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 19 May 1999 21:30:58 +0000 |
| parents | dc885252eab2 |
| children | e0eaca5025bc |
| files | lisp/textmodes/texinfmt.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/texinfmt.el Wed May 19 19:27:05 1999 +0000 +++ b/lisp/textmodes/texinfmt.el Wed May 19 21:30:58 1999 +0000 @@ -2305,8 +2305,9 @@ ;; 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)