* ptexinfmt.el: Support @indicateurl, @LaTeX, @ordf, @ordm.

diff --git a/utils/ChangeLog b/utils/ChangeLog
index b6e7987..5b2ef50 100644 (file)
--- a/utils/ChangeLog
+++ b/utils/ChangeLog
@@ -1,6 +1,6 @@
 2004-04-12  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
-       * ptexinfmt.el: Support @indicateurl, @LaTeX.
+       * ptexinfmt.el: Support @indicateurl, @LaTeX, @ordf, @ordm.
        @url is now a synonym for @uref.
 
 2004-02-11  TAKAHASHI Kaoru  <kaoru@kaisei.org>

diff --git a/utils/ptexinfmt.el b/utils/ptexinfmt.el
index 2ef5cc3..41690f1 100644 (file)
--- a/utils/ptexinfmt.el
+++ b/utils/ptexinfmt.el
@@ -399,6 +399,18 @@ For example, @verb\{|@|\} results in @ and
   (texinfo-parse-arg-discard)
   (insert "#"))
 
+;; @ordf{}     ==>     a       Spanish feminine
+(put 'ordf 'texinfo-format 'texinfo-format-ordf)
+(ptexinfmt-defun-if-void texinfo-format-ordf ()
+  (texinfo-parse-arg-discard)
+  (insert "o"))
+
+;; @ordm{}     ==>     o       Spanish masculine
+(put 'ordm 'texinfo-format 'texinfo-format-ordm)
+(ptexinfmt-defun-if-void texinfo-format-ordm ()
+  (texinfo-parse-arg-discard)
+  (insert "o"))
+
 ;; @OE{}       ==>     OE      French-OE-ligature
 (put 'OE 'texinfo-format 'texinfo-format-French-OE-ligature)
 (ptexinfmt-defun-if-void texinfo-format-French-OE-ligature ()