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

* ptexinfmt.el: Support @indicateurl, @LaTeX.
@url is now a synonym for @uref.
---

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 ()