X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=ptexinfmt.el;fp=ptexinfmt.el;h=36843c1f96bb88e9b43c966f9c97797bb362f8e6;hb=122b7768381220dc45f0cbacf2a3d160e8aac155;hp=267f545a4465d2455118b91cb46c37b9e641937f;hpb=19eee5c1d090d289c4a1c4a55a7e72d99670afb6;p=elisp%2Fgnus-doc-ja.git diff --git a/ptexinfmt.el b/ptexinfmt.el index 267f545..36843c1 100644 --- a/ptexinfmt.el +++ b/ptexinfmt.el @@ -51,6 +51,7 @@ ;; @definfoenclose ;; @deftypeivar ;; @deftypeop +;; @allowcodebreaks ;;; Code: @@ -197,6 +198,7 @@ DOCSTRING will be printed if ASSERTION is nil and (put 'setcontentsaftertitlepage 'texinfo-format 'texinfo-discard-line) (put 'setshortcontentsaftertitlepage 'texinfo-format 'texinfo-discard-line) (put 'novalidate 'texinfo-format 'texinfo-discard-line-with-args) +(put 'frenchspacing 'texinfo-format 'texinfo-discard-line-with-args) ;; head & foot (put 'headings 'texinfo-format 'texinfo-discard-line-with-args) @@ -214,6 +216,9 @@ DOCSTRING will be printed if ASSERTION is nil and ;; @slanted{} (makeinfo 4.8 or later) (put 'slanted 'texinfo-format 'texinfo-format-noop) +;; @sansserif{} (makeinfo 4.8 or later) +(put 'sansserif 'texinfo-format 'texinfo-format-noop) + ;; @tie{} (makeinfo 4.3 or later) (put 'tie 'texinfo-format 'texinfo-format-tie) (ptexinfmt-defun-if-void texinfo-format-tie () @@ -405,6 +410,12 @@ For example, @verb\{|@|\} results in @ and (insert "(R)")) ;;; Accents and Special characters +;; @euro{} ==> Euro +(put 'euro 'texinfo-format 'texinfo-format-euro) +(ptexinfmt-defun-if-void texinfo-format-euro () + (texinfo-parse-arg-discard) + (insert "Euro ")) + ;; @pounds{} ==> # Pounds Sterling (put 'pounds 'texinfo-format 'texinfo-format-pounds) (ptexinfmt-defun-if-void texinfo-format-pounds () @@ -415,7 +426,7 @@ For example, @verb\{|@|\} results in @ and (put 'ordf 'texinfo-format 'texinfo-format-ordf) (ptexinfmt-defun-if-void texinfo-format-ordf () (texinfo-parse-arg-discard) - (insert "o")) + (insert "a")) ;; @ordm{} ==> o Spanish masculine (put 'ordm 'texinfo-format 'texinfo-format-ordm)