From: yamaoka <yamaoka>
Date: Thu, 10 Jul 2003 01:43:22 +0000 (+0000)
Subject: (texinfo-discard-command-and-arg): Revive it for Mule 2.
X-Git-Tag: t-gnus-6_16_3-00~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5aced92dafd7e3906b3f6821149ca70bf98c5b76;p=elisp%2Fgnus.git-

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

diff --git a/ChangeLog b/ChangeLog
index cb5db72..c9ca4aa 100644
--- 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
--- 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))
 
 
 ;;; @multitable ... @end multitable