procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(texinfo-format-var): Handle other nested constructs, using

Browse source 
texinfo-parse-expanded-arg and texinfo-discard-command, not
texinfo-parse-arg-discard.
This commit is contained in:
Richard M. Stallman 1999-05-19 21:30:58 +00:00
parent 1eb87eafca
commit 69c6eff89b
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/textmodes/texinfmt.el
View file

@ -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)