Hi Mosè, > Thanks for your patch, looks good to me. Could you please provide a > commit patch with the ChangeLog entry as commit message?
Sorry, I'm not sure how "commit patch" should look like. Actually, I'm using mercurial with hg-git plugin, so my patch may lack the detail the real git would append. Anyway, I'm sending what "hg export --git" produced with the copyright year change added. Forgive me if this does not fulfill your request. Regards, Ikumi Keita
# HG changeset patch # User Ikumi Keita <[email protected]> # Date 1460284596 -32400 # Sun Apr 10 19:36:36 2016 +0900 # Node ID d98962827fe8a004ac9062c7717b9d0725696f65 # Parent fd6119d9133d0236f973653013ca2f15c27793b8 Integrate viewer support between tex.el and tex-jp.el. diff --git a/tex-jp.el b/tex-jp.el --- a/tex-jp.el +++ b/tex-jp.el @@ -1,6 +1,6 @@ ;;; tex-jp.el --- Support for Japanese TeX. -*- coding: iso-2022-jp-unix; -*- -;; Copyright (C) 2002-2007, 2012 Free Software Foundation, Inc. +;; Copyright (C) 2002-2007, 2012, 2016 Free Software Foundation, Inc. ;; Copyright (C) 1999, 2001 Hidenobu Nabetani <[email protected]> ;; Author: KOBAYASHI Shinji <[email protected]> @@ -194,41 +194,19 @@ ;; http://oku.edu.mie-u.ac.jp/~okumura/texwiki/?AUCTeX ;; を参考にしてみた。 ((eq system-type 'windows-nt) - '(("Dviout" ("dviout -1 " - ((paper-a4 paper-portrait) " -y=A4 ") - ((paper-a4 paper-landscape) " -y=A4L ") - ((paper-a5 paper-portrait) " -y=A5 ") - ((paper-a5 paper-landscape) " -y=A5L ") - ((paper-b5 paper-portrait) " -y=E5 ") - ((paper-b5 paper-landscape) " -y=E5L ") - ((paper-b4jis paper-portrait) " -y=B4 ") - ((paper-b4jis paper-landscape) " -y=B4L ") - ((paper-b5jis paper-portrait) " -y=B5 ") - ((paper-b5jis paper-landscape) " -y=B5L ") - (paper-legal " -y=Legal ") - (paper-letter " -y=Letter ") - (paper-executive " -y=Exective ") - "%o" (mode-io-correlate " \"# %n '%b'\""))) - ("TeXworks" "TeXworks %o") - ("SumatraPDF" "SumatraPDF -reuse-instance %o" - (mode-io-correlate " -forward-search \"%b\" %n")) - ("MuPDF" "mupdf %o"))) + '(("TeXworks" "TeXworks %o" "texworks") + ("MuPDF" "mupdf %o" "mupdf"))) ;; これでいいのかどうかは不安。 ((eq system-type 'darwin) - '(("Preview" "open -a Preview.app %o") - ("TeXShop" "open -a TeXShop.app %o") - ("TeXworks" "open -a TeXworks.app %o") - ("Skim" "open -a Skim.app %o") - ("displayline" "displayline %n %o %b") - ("PictPrinter" "open -a PictPrinter.app %d") - ("Mxdvi" "open -a Mxdvi.app %d") - ("open" "open %o"))) + '(("TeXShop" "open -a TeXShop.app %o" "open") + ("TeXworks" "open -a TeXworks.app %o" "open") + ("PictPrinter" "open -a PictPrinter.app %d" "open") + ("Mxdvi" "open -a Mxdvi.app %d" "open"))) (t (setcar (cadr (assoc "xdvi" TeX-view-program-list-builtin)) "%(xdvi) -unique") - '(("TeXworks" "texworks %o") - ("zathura" "zathura %o") - ("MuPDF" "mupdf %o")))))) + '(("TeXworks" "texworks %o" "texworks") + ("MuPDF" "mupdf %o" "mupdf")))))) ;; これは tex.el に取り入れてもらうのは難しいか？ ;; tex-jp.el が読み込まれるだけで、dvi viewer のデフォルトが dviout に @@ -238,10 +216,10 @@ (append (cond ((eq system-type 'windows-nt) - '((output-dvi "Dviout") + '((output-dvi "dviout") (output-pdf "TeXworks"))) ((eq system-type 'darwin) - '((output-pdf "Preview"))) + '((output-pdf "Preview.app"))) (t nil)) TeX-view-program-selection))) diff --git a/tex.el b/tex.el --- a/tex.el +++ b/tex.el @@ -1341,7 +1341,21 @@ (cond ((eq system-type 'windows-nt) '(("Yap" ("yap -1" (mode-io-correlate " -s %n%b") " %o") "yap") - ("dviout" ("dviout -1 %d" (mode-io-correlate "\"# %n %b\"")) "dviout") + ("dviout" ("dviout -1 " + ((paper-a4 paper-portrait) "-y=A4 ") + ((paper-a4 paper-landscape) "-y=A4L ") + ((paper-a5 paper-portrait) "-y=A5 ") + ((paper-a5 paper-landscape) "-y=A5L ") + ((paper-b5 paper-portrait) "-y=E5 ") + ((paper-b5 paper-landscape) "-y=E5L ") + ((paper-b4jis paper-portrait) "-y=B4 ") + ((paper-b4jis paper-landscape) "-y=B4L ") + ((paper-b5jis paper-portrait) "-y=B5 ") + ((paper-b5jis paper-landscape) "-y=B5L ") + (paper-legal "-y=Legal ") + (paper-letter "-y=Letter ") + (paper-executive "-y=Executive ") + "%d" (mode-io-correlate " \"# %n '%b'\"")) "dviout") ("SumatraPDF" ("SumatraPDF -reuse-instance" (mode-io-correlate " -forward-search \"%b\" %n") " %o")
_______________________________________________ auctex-devel mailing list [email protected] https://lists.gnu.org/mailman/listinfo/auctex-devel
