Support @fonttextsize, @textdegree.

diff --git a/utils/ChangeLog b/utils/ChangeLog
index 7be4824..96a89ea 100644 (file)
--- 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 (file)
--- 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))
+
 \f
 ;;; Cross References
 ;; @ref, @xref