From c46a4752aab3b3c1a6136e36104806d5d7dc9025 Mon Sep 17 00:00:00 2001
From: kaoru <kaoru>
Date: Mon, 12 Apr 2004 04:22:21 +0000
Subject: [PATCH] * ptexinfmt.el: Support @indicateurl, @LaTeX. @url is now a
 synonym for @uref.

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

diff --git a/utils/ChangeLog b/utils/ChangeLog
index 01f051c..b6e7987 100644
--- a/utils/ChangeLog
+++ b/utils/ChangeLog
@@ -1,3 +1,8 @@
+2004-04-12  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* ptexinfmt.el: Support @indicateurl, @LaTeX.
+	@url is now a synonym for @uref.
+
 2004-02-11  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* ptexinfmt.el: Support @docbook, @ifdocbook, @ifnotdocbook, and
diff --git a/utils/ptexinfmt.el b/utils/ptexinfmt.el
index a5f6336..2ef5cc3 100644
--- a/utils/ptexinfmt.el
+++ b/utils/ptexinfmt.el
@@ -313,11 +313,13 @@ DOCSTRING will be printed if ASSERTION is nil and
 
 
 ;;; Marking
-;; @url, @env, @command
-(put 'url 'texinfo-format 'texinfo-format-code)
+;; @indicateurl, @url, @env, @command, 
 (put 'env 'texinfo-format 'texinfo-format-code)
 (put 'command 'texinfo-format 'texinfo-format-code)
 
+(put 'indicateurl 'texinfo-format 'texinfo-format-code)
+(put 'url 'texinfo-format 'texinfo-format-uref)	; Texinfo 4.7
+
 ;; @acronym
 (put 'acronym 'texinfo-format 'texinfo-format-var)
 
@@ -379,13 +381,18 @@ For example, @verb\{|@|\} results in @ and
   (delete-char 1))
 
 
-;;; Accents and Special characters
-;; @registeredsymbol{}	==>	(R)
-(put 'pounds 'texinfo-format 'texinfo-format-registeredsymbol)
+;;; @LaTeX, @registeredsymbol{}
+(put 'LaTeX 'texinfo-format 'texinfo-format-LaTeX)
+(ptexinfmt-defun-if-void texinfo-format-LaTeX ()
+  (texinfo-parse-arg-discard)
+  (insert "LaTeX"))
+
+(put 'registeredsymbol 'texinfo-format 'texinfo-format-registeredsymbol)
 (ptexinfmt-defun-if-void texinfo-format-registeredsymbol ()
   (texinfo-parse-arg-discard)
   (insert "(R)"))
 
+;;; Accents and Special characters
 ;; @pounds{}	==>	#	Pounds Sterling
 (put 'pounds 'texinfo-format 'texinfo-format-pounds)
 (ptexinfmt-defun-if-void texinfo-format-pounds ()
-- 
1.7.10.4