The correct patch

[Olive <olive.lin@versateladsl.be>]

[-- Attachment #1: Type: text/plain, Size: 979 bytes --]

I submited a patch to correct the fact that the standard tex-mode fails 
for files containing special characters. I submited here the correct (I 
hope) patch (I have forget a few things in the last patch). I have also 
correct a bug which prevent tex-region to work.

In this patch I have replaced the call to "comint-quote-argument" with 
"shell-quote-argument" which I think is much better.

Note that some implementation of tex fails for files containing special 
characters (TeTeX for instance); in this case nothing can be done in emacs.

This patch is (I think) of some importance for user of MS-Windows due to 
the spaces present in "Documents and Settings") (I have not tested in 
under Windows myself; I much prefer GNU/Linux).

I am currenctly implementating forward and inverse search with the 
standard TeX mode. This is not in this patch (since it does not correct 
a bug) but if someone is interested, just mail me (and please don't tell 
me to use auctex).

Olive

[-- Attachment #2: tex-mode.el.patch --]
[-- Type: text/x-patch, Size: 2590 bytes --]

*** tex-mode.el.orig	2005-03-29 22:17:07.000000000 +0200
--- tex-mode.el	2005-03-29 22:23:30.000000000 +0200
***************
*** 781,787 ****
    (setq tex-command latex-run-command)
    (setq tex-start-of-header "\\\\document\\(style\\|class\\)")
    (setq tex-end-of-header "\\\\begin\\s-*{document}")
!   (setq tex-trailer "\\end\\s-*{document}\n")
    ;; A line containing just $$ is treated as a paragraph separator.
    ;; A line starting with $$ starts a paragraph,
    ;; but does not separate paragraphs if it has more stuff on it.
--- 781,787 ----
    (setq tex-command latex-run-command)
    (setq tex-start-of-header "\\\\document\\(style\\|class\\)")
    (setq tex-end-of-header "\\\\begin\\s-*{document}")
!   (setq tex-trailer "\\end{document}\n")
    ;; A line containing just $$ is treated as a paragraph separator.
    ;; A line starting with $$ starts a paragraph,
    ;; but does not separate paragraphs if it has more stuff on it.
***************
*** 1352,1359 ****
  	    (concat
  	     (if file
  		 (if star (concat (substring cmd 0 star)
! 				  file (substring cmd (1+ star)))
! 		   (concat cmd " " file))
  	       cmd)
  	     (if background "&" ""))))
        ;; Switch to buffer before checking for subproc output in it.
--- 1352,1359 ----
  	    (concat
  	     (if file
  		 (if star (concat (substring cmd 0 star)
! 				  (shell-quote-argument file) (substring cmd (1+ star)))
! 		   (concat cmd " " (shell-quote-argument file)))
  	       cmd)
  	     (if background "&" ""))))
        ;; Switch to buffer before checking for subproc output in it.
***************
*** 1444,1456 ****
           (compile-command
            (if star
  	      (concat (substring command 0 star)
! 		      (comint-quote-filename file)
  		      (substring command (1+ star)))
              (concat command " "
  		    (if (< 0 (length tex-start-options-string))
  			(concat
  			 (shell-quote-argument tex-start-options-string) " "))
! 		    (comint-quote-filename file)))))
      (tex-send-tex-command compile-command dir)))
  
  (defun tex-send-tex-command (cmd &optional dir)
--- 1444,1456 ----
           (compile-command
            (if star
  	      (concat (substring command 0 star)
! 		      (shell-quote-argument file)
  		      (substring command (1+ star)))
              (concat command " "
  		    (if (< 0 (length tex-start-options-string))
  			(concat
  			 (shell-quote-argument tex-start-options-string) " "))
! 		    (shell-quote-argument file)))))
      (tex-send-tex-command compile-command dir)))
  
  (defun tex-send-tex-command (cmd &optional dir)

[-- Attachment #3: Type: text/plain, Size: 149 bytes --]

_______________________________________________
Bug-gnu-emacs mailing list
Bug-gnu-emacs@gnu.org
http://lists.gnu.org/mailman/listinfo/bug-gnu-emacs