From 19a154d1513ad69d65454086ce98fd743bdb3ce5 Mon Sep 17 00:00:00 2001
From: kaoru <kaoru>
Date: Tue, 22 Apr 2008 03:36:57 +0000
Subject: [PATCH] * ptexinfmt.el (texinfo-format-geq, texinfo-format-leq,):
 Support @geq and @leq.

---
 utils/ChangeLog    |    5 +++++
 utils/ptexinfmt.el |   12 ++++++++++++
 2 files changed, 17 insertions(+)

diff --git a/utils/ChangeLog b/utils/ChangeLog
index 10f487a..d4a6f46 100644
--- 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
--- 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))
+
 
 ;;; Cross References
 ;; @ref, @xref
-- 
1.7.10.4