* ptexinfmt.el (texinfo-format-geq, texinfo-format-leq,): Support @geq and @leq.

diff --git a/utils/ChangeLog b/utils/ChangeLog
index 10f487a..d4a6f46 100644 (file)
--- a/utils/ChangeLog
+++ b/utils/ChangeLog
@@ -1,3 +1,8 @@
+2008-04-22  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+       * ptexinfmt.el (texinfo-format-geq, texinfo-format-leq,): Support
+       @geq and @leq.
+
 2008-02-19  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * bbdb-wl.el: Add (eval-when-compile (require 'static)).

diff --git a/utils/ptexinfmt.el b/utils/ptexinfmt.el
index 24c834e..6900bb4 100644 (file)
--- a/utils/ptexinfmt.el
+++ b/utils/ptexinfmt.el
@@ -609,6 +609,18 @@ For example, @verb\{|@|\} results in @ and
   (insert "o" (texinfo-parse-arg-discard))
   (goto-char texinfo-command-start))
 
+;; @geq{}
+(put 'geq 'texinfo-format 'texinfo-format-geq)
+(ptexinfmt-defun-if-void texinfo-format-geq ()
+  (insert ">=" (texinfo-parse-arg-discard))
+  (goto-char texinfo-command-start))
+
+;; @leq{}
+(put 'leq 'texinfo-format 'texinfo-format-leq)
+(ptexinfmt-defun-if-void texinfo-format-leq ()
+  (insert "<=" (texinfo-parse-arg-discard))
+  (goto-char texinfo-command-start))
+
 \f
 ;;; Cross References
 ;; @ref, @xref