address@hidden: texinfmt.el: @ifxml, @ifnotxml, @xml support request]

[Richard Stallman]

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