diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-07-22 20:06:24 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-07-22 20:06:24 +0000 |
| commit | caf4bf368f156779c2186366427712fccc255121 (patch) | |
| tree | 20140284cbfabe769401c6520a0bdcf0bf63cd01 /lisp/textmodes/texinfmt.el | |
| parent | b484aa097567d387ab4c6172afc79bfe59e7b9de (diff) | |
| download | emacs-caf4bf368f156779c2186366427712fccc255121.tar.gz | |
(dircategory): Delete obsolete mistaken `put'.
(texinfo-end-direntry): Output extra newline.
(texinfo-format-dircategory): Parse the arg and reinsert it by hand.
Diffstat (limited to 'lisp/textmodes/texinfmt.el')
| -rw-r--r-- | lisp/textmodes/texinfmt.el | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/lisp/textmodes/texinfmt.el b/lisp/textmodes/texinfmt.el index 0ecaa91a7c5..9976824403b 100644 --- a/lisp/textmodes/texinfmt.el +++ b/lisp/textmodes/texinfmt.el @@ -2382,17 +2382,17 @@ If used within a line, follow `@bullet' with braces." (put 'direntry 'texinfo-end 'texinfo-end-direntry) (defun texinfo-end-direntry () (texinfo-discard-command) - (insert "END-INFO-DIR-ENTRY\n") + (insert "END-INFO-DIR-ENTRY\n\n") (texinfo-pop-stack 'direntry)) (put 'dircategory 'texinfo-format 'texinfo-format-dircategory) (defun texinfo-format-dircategory () - (texinfo-discard-command) - (delete-region (point) - (progn - (skip-chars-forward " ") - (point))) - (insert "INFO-DIR-SECTION ")) + (let ((str (texinfo-parse-arg-discard))) + (delete-region (point) + (progn + (skip-chars-forward " ") + (point))) + (insert "INFO-DIR-SECTION " str "\n"))) ;;; @cartouche @@ -3964,7 +3964,6 @@ the @ifeq command." (put 'shorttitlepage 'texinfo-format 'texinfo-discard-line-with-args) (put 'summarycontents 'texinfo-format 'texinfo-discard-line-with-args) (put 'input 'texinfo-format 'texinfo-discard-line-with-args) -(put 'dircategory 'texinfo-format 'texinfo-discard-line-with-args) ;;; Some commands cannot be handled |