Re: Patches and copyright assignment question

Masayuki Ataka <[email protected]>
Newsgroups gmane.emacs.auc-tex
Message-ID <[email protected]> 
From: Ikumi Keita <[email protected]>
Subject: Re: Patches and copyright assignment question
Date: Sat, 26 Feb 2005 20:22:53 +0900

> Thank you for your kind response. I will soon send the attached form to
> [email protected].
> 
> > If you say that this process is fine with you, we don't need to wait
> > for the process to complete for checking your changes in:
> 
> OK, the process is of no problem. Please go ahead.

If no objection, I'll commit his patch.

This is ChangeLog:

2005-03-03  Ikumi Keita <[email protected]>  (tiny change?)

	* tex.el (TeX-macro-global-internal): New function.
	(TeX-macro-global): Use it.
	(TeX-kpathsea-format-alist): Removed duplicate line.

	* tex-jp.el: Use `TeX-macro-global-internal' and append path for
	Japanese TeX into TeX-macro-global.  Do not override
	`TeX-expand-list', no more.
	(japanese-TeX-command-list): Add :help string.
	(japanese-TeX-command-default, japanese-LaTeX-command-default):
	Quote symbol TeX-command in doc string.


The part as shown below, which override TEXINPUTS by
TEXINPUTS.platex, is dangerous to non Japanese TeX user, so I
didn't include it this time.

in tex-jp.el
---
+ (setcar (cdr (assoc "tex" TeX-kpathsea-format-alist))
+ 	"${TEXINPUTS.platex}")
+ ;; (setcar (cdr (assoc "tex" TeX-kpathsea-format-alist))
+ ;; 	"${TEXINPUTS.jlatex}")
+ (setcar (cdr (assoc "bib" TeX-kpathsea-format-alist))
+ 	"${BIBINPUTS.jbibtex}")
+ (setcar (cdr (assoc "bst" TeX-kpathsea-format-alist))
+ 	"${BSTINPUTS.jbibtex}")


                                    ----Input with T-Code!
           http://isweb22.infoseek.co.jp/computer/pop-club
     Masayuki Ataka /   ([email protected])

*** tex-jp.el	28  2 2005 01:35:22 +0900	5.78
--- tex-jp.el	03  3 2005 05:52:08 +0900	
***************
*** 53,74 ****
    ;; use the %(latex) and %(tex) shorthands here because I have not
    ;; clue whether Omega-related versions exist.  --dak
    '(("jTeX" "%(PDF)jtex %S%(PDFout) \"%(mode)\\input %t\""
!      TeX-run-TeX nil (plain-tex-mode))
      ("jLaTeX" "%(PDF)jlatex %S%(PDFout) \"%(mode)\\input{%t}\""
!      TeX-run-LaTeX nil (latex-mode))
      ("pTeX" "%(PDF)ptex %S%(PDFout) \"%(mode)\\input %t\""
!      TeX-run-TeX nil (plain-tex-mode))
      ("pLaTeX" "%(PDF)platex %S%(PDFout) \"%(mode)\\input{%t}\""
!      TeX-run-LaTeX nil (latex-mode))
!     ("Mendex" "mendex %s" TeX-run-command nil t)
!     ("jBibTeX" "jbibtex %s" TeX-run-BibTeX nil t))
!   "Additional list of commands to execute in japanese-LaTeX-mode")
  
  (setq TeX-command-list
        (append japanese-TeX-command-list
  	      '(("-" "" nil nil t)) ;; separator for command menu
  	      TeX-command-list))
  
  ;; Menus
  
  (easy-menu-define plain-TeX-mode-command-menu
--- 53,82 ----
    ;; use the %(latex) and %(tex) shorthands here because I have not
    ;; clue whether Omega-related versions exist.  --dak
    '(("jTeX" "%(PDF)jtex %S%(PDFout) \"%(mode)\\input %t\""
!      TeX-run-TeX nil (plain-tex-mode) :help "Run NTT jTeX")
      ("jLaTeX" "%(PDF)jlatex %S%(PDFout) \"%(mode)\\input{%t}\""
!      TeX-run-LaTeX nil (latex-mode) :help "Run NTT jLaTeX")
      ("pTeX" "%(PDF)ptex %S%(PDFout) \"%(mode)\\input %t\""
!      TeX-run-TeX nil (plain-tex-mode) :help "Run ASCII pTeX")
      ("pLaTeX" "%(PDF)platex %S%(PDFout) \"%(mode)\\input{%t}\""
!      TeX-run-LaTeX nil (latex-mode) :help "Run ASCII pLaTeX")
!     ("Mendex" "mendex %s" TeX-run-command nil t :help "Create index file with mendex")
!     ("jBibTeX" "jbibtex %s" TeX-run-BibTeX nil t :help "Run jBibTeX"))
!   "Additional list of commands to execute in `japanese-LaTeX-mode'")
  
  (setq TeX-command-list
        (append japanese-TeX-command-list
  	      '(("-" "" nil nil t)) ;; separator for command menu
  	      TeX-command-list))
  
+ (mapcar (lambda (dir) (add-to-list 'TeX-macro-global dir t))
+   (TeX-macro-global-internal "platex" '("/ptex/" "/jbibtex/bst/")
+     '("/usr/share/texmf/ptex/" "/usr/share/texmf/jbibtex/bst/")))
+ 
+ (mapcar (lambda (dir) (add-to-list 'TeX-macro-global dir t))
+   (TeX-macro-global-internal "jlatex" '("/jtex/" "/jbibtex/bst/")
+     '("/usr/share/texmf/jtex/" "/usr/share/texmf/jbibtex/bst/")))
+ 
  ;; Menus
  
  (easy-menu-define plain-TeX-mode-command-menu
***************
*** 88,96 ****
  		 "%(PDF)platex %S%(PDFout)"))
  	      LaTeX-command-style))
  
- (setcdr (assoc "%l" TeX-expand-list)
- 	(list 'TeX-style-check LaTeX-command-style))
- 
  (defvar japanese-TeX-error-messages t
    "If non-nil, explain TeX error messages in Japanese.")
  
--- 96,101 ----
***************
*** 117,129 ****
  )
  
  (defcustom japanese-TeX-command-default "pTeX"
!   "*The default command for TeX-command in the japanese-TeX mode."
    :group 'AUCTeX-jp
    :type 'string)
    (make-variable-buffer-local 'japanese-TeX-command-default)
  
  (defcustom japanese-LaTeX-command-default "LaTeX"
!   "*The default command for TeX-command in the japanese-LaTeX mode."
    :group 'AUCTeX-jp
    :type 'string)
    (make-variable-buffer-local 'japanese-LaTeX-command-default)
--- 122,134 ----
  )
  
  (defcustom japanese-TeX-command-default "pTeX"
!   "*The default command for `TeX-command' in the japanese-TeX mode."
    :group 'AUCTeX-jp
    :type 'string)
    (make-variable-buffer-local 'japanese-TeX-command-default)
  
  (defcustom japanese-LaTeX-command-default "LaTeX"
!   "*The default command for `TeX-command' in the japanese-LaTeX mode."
    :group 'AUCTeX-jp
    :type 'string)
    (make-variable-buffer-local 'japanese-LaTeX-command-default)


*** tex.el	12  2 2005 23:11:57 +0900	5.485
--- tex.el	03  3 2005 05:12:17 +0900	
***************
*** 1440,1445 ****
--- 1440,1453 ----
  
  (defun TeX-macro-global ()
    "Return directories containing the site's TeX macro and style files."
+   (TeX-macro-global-internal "latex" '("/tex/" "/bibtex/bst/")
+ 			     '("/usr/share/texmf/tex/" "/usr/share/texmf/bibtex/bst/")))
+ 
+ (defun TeX-macro-global-internal (latex search default)
+   "Return directories containing the site's TeX macro and style files.
+ LATEX: latex command
+ SEARCH: search path under system texmf tree
+ DEFAULT: fallback path list"
    (let ((tree-list '("$SYSTEXMF" "$TEXMFLOCAL" "$TEXMFMAIN" "$TEXMFDIST"))
  	path-list path exit-status input-dir-list)
      (condition-case nil
***************
*** 1450,1456 ****
  			       (call-process
  				"kpsewhich"  nil
  				(list standard-output nil) nil
! 				"--progname" "latex"
  				"--expand-braces" (nth i tree-list)))))
  	    (if (zerop exit-status)
  		(progn (add-to-list 'path-list path)
--- 1458,1464 ----
  			       (call-process
  				"kpsewhich"  nil
  				(list standard-output nil) nil
! 				"--progname" latex
  				"--expand-braces" (nth i tree-list)))))
  	    (if (zerop exit-status)
  		(progn (add-to-list 'path-list path)
***************
*** 1460,1466 ****
  				 (call-process
  				  "kpsewhich"  nil
  				  (list standard-output nil) nil
! 				  "--progname" "latex"
  				  "--expand-path" (nth i tree-list)))))
  	      (when (zerop exit-status) (add-to-list 'path-list path)))))
        (error nil))
--- 1468,1474 ----
  				 (call-process
  				  "kpsewhich"  nil
  				  (list standard-output nil) nil
! 				  "--progname" latex
  				  "--expand-path" (nth i tree-list)))))
  	      (when (zerop exit-status) (add-to-list 'path-list path)))))
        (error nil))
***************
*** 1476,1486 ****
  	    (setq item (substring item (match-end 0) (length item))))
  	  (when (string-match "/+$" item)
  	    (setq item (substring item 0 (match-beginning 0))))
! 	  (dolist (subdir '("/tex/" "/bibtex/bst/"))
  	    (when (file-exists-p (file-name-as-directory (concat item subdir)))
  	      (add-to-list 'input-dir-list (concat item subdir)))))))
!     (or input-dir-list
! 	'("/usr/share/texmf/tex/" "/usr/share/texmf/bibtex/bst/"))))
  
  (defcustom TeX-macro-global (TeX-macro-global)
    "Directories containing the site's TeX macro and style files.
--- 1484,1493 ----
  	    (setq item (substring item (match-end 0) (length item))))
  	  (when (string-match "/+$" item)
  	    (setq item (substring item 0 (match-beginning 0))))
! 	  (dolist (subdir search)
  	    (when (file-exists-p (file-name-as-directory (concat item subdir)))
  	      (add-to-list 'input-dir-list (concat item subdir)))))))
!     (or input-dir-list default)))
  
  (defcustom TeX-macro-global (TeX-macro-global)
    "Directories containing the site's TeX macro and style files.
***************
*** 2887,2893 ****
    '(("tex" "${TEXINPUTS.latex}" TeX-file-extensions)
      ("eps" "${TEXINPUTS}" LaTeX-includegraphics-extensions)
      ("pdf" "${TEXINPUTS}" LaTeX-includegraphics-extensions)
-     ("pdf" "${TEXINPUTS}" LaTeX-includegraphics-extensions)
      ("png" "${TEXINPUTS}" LaTeX-includegraphics-extensions)
      ("jpg" "${TEXINPUTS}" LaTeX-includegraphics-extensions)
      ("jpeg" "${TEXINPUTS}" LaTeX-includegraphics-extensions)
--- 2894,2899 ----
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.