[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
address@hidden: texinfmt.el: @ifxml, @ifnotxml, @xml support request]
From: |
Richard Stallman |
Subject: |
address@hidden: texinfmt.el: @ifxml, @ifnotxml, @xml support request] |
Date: |
Wed, 04 Dec 2002 06:07:12 -0500 |
------- Start of forwarded message -------
From: TAKAHASHI Kaoru <address@hidden>
To: address@hidden
Subject: texinfmt.el: @ifxml, @ifnotxml, @xml support request
Sender: address@hidden
Date: Tue, 03 Dec 2002 20:35:15 +0900
- --Multipart_Tue_Dec__3_20:35:15_2002-1
Content-Type: text/plain; charset=US-ASCII
Will you support @ifxml, @ifnotxml and @xml in texinfo formatter?
@ifxml, @ifnotxml, @xml support makeinfo 4.2a or later. Not in
texinfo/NEWS, but in texinfo/ChangeLog and texinfo.info.
ChangeLog & patch attached.In this patch, use "address@hidden xml[ \t]*\n"
instead of "@end xml[ \t]*\n" for search. I think "@end xml" may
wrong match. For example:
@ifxml
@@end ifxml
this will only appear in XML output.
@end ifxml
Regards,
- --Multipart_Tue_Dec__3_20:35:15_2002-1
Content-Type: application/octet-stream; type=patch
Content-Disposition: attachment; filename="ifxml.diff"
Content-Transfer-Encoding: 7bit
Index: texinfmt.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/textmodes/texinfmt.el,v
retrieving revision 1.62
diff -u -c -r1.62 texinfmt.el
*** texinfmt.el 28 Nov 2002 14:12:31 -0000 1.62
- --- texinfmt.el 3 Dec 2002 10:53:35 -0000
***************
*** 2159,2164 ****
- --- 2159,2170 ----
(progn (re-search-forward "@end ifplaintext[ \t]*\n")
(point))))
+ (put 'ifxml 'texinfo-format 'texinfo-format-ifxml)
+ (defun texinfo-format-ifxml ()
+ (delete-region texinfo-command-start
+ (progn (re-search-forward "address@hidden ifxml[ \t]*\n")
+ (point))))
+
(put 'tex 'texinfo-format 'texinfo-format-tex)
(defun texinfo-format-tex ()
(delete-region texinfo-command-start
***************
*** 2171,2176 ****
- --- 2177,2188 ----
(progn (re-search-forward "@end html[ \t]*\n")
(point))))
+ (put 'xml 'texinfo-format 'texinfo-format-xml)
+ (defun texinfo-format-xml ()
+ (delete-region texinfo-command-start
+ (progn (re-search-forward "address@hidden xml[ \t]*\n")
+ (point))))
+
(put 'ifnotinfo 'texinfo-format 'texinfo-format-ifnotinfo)
(defun texinfo-format-ifnotinfo ()
(delete-region texinfo-command-start
***************
*** 2185,2190 ****
- --- 2197,2205 ----
(put 'ifnothtml 'texinfo-format 'texinfo-discard-line)
(put 'ifnothtml 'texinfo-end 'texinfo-discard-command)
+
+ (put 'ifnotxml 'texinfo-format 'texinfo-discard-line)
+ (put 'ifnotxml 'texinfo-end 'texinfo-discard-command)
;;; @titlepage
- --Multipart_Tue_Dec__3_20:35:15_2002-1
Content-Type: application/octet-stream
Content-Disposition: attachment; filename="ChangeLog"
Content-Transfer-Encoding: 7bit
2002-12-03 TAKAHASHI Kaoru <address@hidden>
* textmodes/texinfmt.el (texinfo-format-ifxml)
(texinfo-format-xml): New function.
(ifxml, ifnotxml): New aliases.
- --Multipart_Tue_Dec__3_20:35:15_2002-1--
_______________________________________________
Bug-gnu-emacs mailing list
address@hidden
http://mail.gnu.org/mailman/listinfo/bug-gnu-emacs
------- End of forwarded message -------
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- address@hidden: texinfmt.el: @ifxml, @ifnotxml, @xml support request],
Richard Stallman <=