From 613d7cf06a2b0199385f556c159977f7ee77ab6a Mon Sep 17 00:00:00 2001 From: kaoru Date: Fri, 21 Sep 2007 04:49:58 +0000 Subject: [PATCH] Support @fonttextsize, @textdegree. --- utils/ChangeLog | 4 ++++ utils/ptexinfmt.el | 11 +++++++++++ 2 files changed, 15 insertions(+) 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 + + * ptexinfmt.el: Support @fonttextsize, @textdegree. + 2005-09-02 TAKAHASHI Kaoru * 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 -- 1.7.10.4