(texinfo-discard-command-and-arg): Revive it for Mule 2.

diff --git a/ChangeLog b/ChangeLog
index 01af324..eda6695 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-07-10  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * texi/ptexinfmt.el (texinfo-discard-command-and-arg): Revive it
+       for Mule 2.
+
 2003-07-01  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * texi/ptexinfmt.el: @verb, @tie, @/ support.

diff --git a/texi/ptexinfmt.el b/texi/ptexinfmt.el
index c54fa38..66a507f 100644 (file)
--- a/texi/ptexinfmt.el
+++ b/texi/ptexinfmt.el
@@ -626,6 +626,14 @@ otherwise, insert URL-TITLE followed by URL in parentheses."
     (goto-char (+ (point) (cadr (insert-file-contents filename))))
     (message "Reading included file: %s...done" filename)))
 
+;; @hyphenation command discards an argument within braces
+(put 'hyphenation 'texinfo-format 'texinfo-discard-command-and-arg)
+(ptexinfmt-defun-if-void texinfo-discard-command-and-arg ()
+  "Discard both @-command and its argument in braces."
+  (goto-char texinfo-command-end)
+  (forward-list 1)
+  (setq texinfo-command-end (point))
+  (delete-region texinfo-command-start texinfo-command-end))
 
 \f
 ;;; @multitable ... @end multitable