From: kaoru <kaoru>
Date: Mon, 12 Apr 2004 04:48:33 +0000 (+0000)
Subject: * ptexinfmt.el: Support @indicateurl, @LaTeX, @ordf, @ordm.
X-Git-Tag: wl-2_11_25~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4ae42f3fc326b81a2d3ef277cd0eefb14a694d6a;p=elisp%2Fwanderlust.git

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

diff --git a/utils/ChangeLog b/utils/ChangeLog
index b6e7987..5b2ef50 100644
--- 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
--- 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 ()