From: kaoru <kaoru>
Date: Fri, 21 Sep 2007 04:49:58 +0000 (+0000)
Subject: Support @fonttextsize, @textdegree.
X-Git-Tag: wl-2_15_6-fixes~77
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=613d7cf06a2b0199385f556c159977f7ee77ab6a;p=elisp%2Fwanderlust.git

Support @fonttextsize, @textdegree.
---

diff --git a/utils/ChangeLog b/utils/ChangeLog
index 7be4824..96a89ea 100644
--- a/utils/ChangeLog
+++ b/utils/ChangeLog
@@ -1,3 +1,7 @@
+2007-09-21  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* ptexinfmt.el: Support @fonttextsize, @textdegree.
+
 2005-09-02  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* ptexinfmt.el: Support @frenchspacing, @euro, @sansserif.
diff --git a/utils/ptexinfmt.el b/utils/ptexinfmt.el
index c958490..85bd885 100644
--- a/utils/ptexinfmt.el
+++ b/utils/ptexinfmt.el
@@ -52,6 +52,10 @@
 ;;  @deftypeivar
 ;;  @deftypeop
 ;;  @allowcodebreaks
+;;  @thischapternum
+;;  @quotedblleft @quotedblright
+;;  @quoteleft @quoteright  @quotedblbase @quotesinglbase
+;;  @guillemetleft @guillemetright @guilsinglleft @guilsinglright.
 
 ;;; Code:
 
@@ -194,6 +198,7 @@ DOCSTRING will be printed if ASSERTION is nil and
 (put 'afourwide 'texinfo-format 'texinfo-discard-line)
 (put 'afivepaper 'texinfo-format 'texinfo-discard-line)
 (put 'pagesizes 'texinfo-format 'texinfo-discard-line-with-args)
+(put 'fonttextsize 'texinfo-format 'texinfo-discard-line-with-args)
 
 ;; style
 (put 'setchapternewpage 'texinfo-format 'texinfo-discard-line-with-args)
@@ -601,6 +606,12 @@ For example, @verb\{|@|\} results in @ and
 (ptexinfmt-defun-if-void texinfo-format-\/ ()
   (texinfo-discard-command))
 
+;; @textdegree
+(put 'textdegree 'texinfo-format 'texinfo-format-textdegree)
+(ptexinfmt-defun-if-void texinfo-format-textdegree ()
+  (insert "o" (texinfo-parse-arg-discard))
+  (goto-char texinfo-command-start))
+
 
 ;;; Cross References
 ;; @ref, @xref