diff options
| author | Eli Zaretskii | 2001-10-27 14:57:00 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 2001-10-27 14:57:00 +0000 |
| commit | 25cacfa7f0dab73ab4c42b904ef2d8f7c180f482 (patch) | |
| tree | 3926f7d8736fb7d72c93b7ddfdca42e267d9f3a0 | |
| parent | 7db35a48a8c04d67b107e2adca6cc8be3539b704 (diff) | |
| download | emacs-25cacfa7f0dab73ab4c42b904ef2d8f7c180f482.tar.gz emacs-25cacfa7f0dab73ab4c42b904ef2d8f7c180f482.zip | |
No change. Error by bob, not eliz, logging change for wrong file.
| -rw-r--r-- | lisp/textmodes/texinfmt.el | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/lisp/textmodes/texinfmt.el b/lisp/textmodes/texinfmt.el index 01f49921b4c..1de77246b28 100644 --- a/lisp/textmodes/texinfmt.el +++ b/lisp/textmodes/texinfmt.el | |||
| @@ -2129,7 +2129,7 @@ This command is executed when texinfmt sees @item inside @multitable." | |||
| 2129 | (setq fill-column existing-fill-column))) | 2129 | (setq fill-column existing-fill-column))) |
| 2130 | 2130 | ||
| 2131 | 2131 | ||
| 2132 | ;;; @ifinfo, @iftex, @tex, @ifhtml, @html, @ifnottex | 2132 | ;;; @ifinfo, @iftex, @tex, @ifhtml, @html, @ifnottex, @ifnotinfo, @ifnothtml |
| 2133 | 2133 | ||
| 2134 | (put 'ifinfo 'texinfo-format 'texinfo-discard-line) | 2134 | (put 'ifinfo 'texinfo-format 'texinfo-discard-line) |
| 2135 | (put 'ifinfo 'texinfo-end 'texinfo-discard-command) | 2135 | (put 'ifinfo 'texinfo-end 'texinfo-discard-command) |
| @@ -2158,9 +2158,18 @@ This command is executed when texinfmt sees @item inside @multitable." | |||
| 2158 | (progn (re-search-forward "@end html[ \t]*\n") | 2158 | (progn (re-search-forward "@end html[ \t]*\n") |
| 2159 | (point)))) | 2159 | (point)))) |
| 2160 | 2160 | ||
| 2161 | (put 'ifnotinfo 'texinfo-format 'texinfo-format-ifnotinfo) | ||
| 2162 | (defun texinfo-format-ifnotinfo () | ||
| 2163 | (delete-region texinfo-command-start | ||
| 2164 | (progn (re-search-forward "@end ifnotinfo[ \t]*\n") | ||
| 2165 | (point)))) | ||
| 2166 | |||
| 2161 | (put 'ifnottex 'texinfo-format 'texinfo-discard-line) | 2167 | (put 'ifnottex 'texinfo-format 'texinfo-discard-line) |
| 2162 | (put 'ifnottex 'texinfo-end 'texinfo-discard-command) | 2168 | (put 'ifnottex 'texinfo-end 'texinfo-discard-command) |
| 2163 | 2169 | ||
| 2170 | (put 'ifnothtml 'texinfo-format 'texinfo-discard-line) | ||
| 2171 | (put 'ifnothtml 'texinfo-end 'texinfo-discard-command) | ||
| 2172 | |||
| 2164 | 2173 | ||
| 2165 | ;;; @titlepage | 2174 | ;;; @titlepage |
| 2166 | 2175 | ||