[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/auctex d42cd150b5 05/43: Commit for japanese LaTeX&plai
From: |
Tassilo Horn |
Subject: |
[elpa] externals/auctex d42cd150b5 05/43: Commit for japanese LaTeX&plain-TeX mode |
Date: |
Wed, 7 Feb 2024 06:07:07 -0500 (EST) |
branch: externals/auctex
commit d42cd150b546c583d9f3dd034546442b5e2a7c92
Author: Ikumi Keita <ikumi@ikumi.que.jp>
Commit: Ikumi Keita <ikumi@ikumi.que.jp>
Commit for japanese LaTeX&plain-TeX mode
* tex-jp.el:
* tex.el:
* tests/japanese/parse-timing.el:
Change major mode names.
japanese-plain-tex-mode -> japanese-plain-TeX-mode
japanese-latex-mode -> japanese-LaTeX-mode
Also, change function names.
japanese-plain-tex-mode-initialization ->
japanese-plain-TeX-mode-initialization
japanese-latex-mode-initialization -> japanese-LaTeX-mode-initialization
---
tests/japanese/parse-timing.el | 2 +-
tex-jp.el | 75 +++++++++++++++++++++---------------------
tex.el | 4 +--
3 files changed, 41 insertions(+), 40 deletions(-)
diff --git a/tests/japanese/parse-timing.el b/tests/japanese/parse-timing.el
index 15051bcd5a..81b2e3eaa6 100644
--- a/tests/japanese/parse-timing.el
+++ b/tests/japanese/parse-timing.el
@@ -41,7 +41,7 @@
"Test style hooks are not called too early."
(let ((TeX-parse-self t)
(TeX-master t)
- (LaTeX-mode-hook '(japanese-latex-mode-initialization
+ (LaTeX-mode-hook '(japanese-LaTeX-mode-initialization
turn-on-reftex)))
(find-file parse-timing)
(should (memq 'AMSTeX
diff --git a/tex-jp.el b/tex-jp.el
index 8428c3793a..3b91c4c314 100644
--- a/tex-jp.el
+++ b/tex-jp.el
@@ -278,8 +278,8 @@ See also a user custom option
`TeX-japanese-process-input-coding-system'."
(with-current-buffer TeX-command-buffer
(when japanese-TeX-mode
;; TeX-engine が ptex, jtex, uptex のいずれかである場合のみ考え
- ;; る。luatex-ja などの場合はそもそもただの latex-mode でよく、
- ;; わざわざ japanese-latex-mode にする必要がない。
+ ;; る。luatex-ja などの場合はそもそもただの LaTeX-mode でよく、
+ ;; わざわざ japanese-LaTeX-mode にする必要がない。
;; FIXME: 以下の処理は tex engine を対象とする場合しか考えていない。
;; bibtex や mendex 等の補助ツールの場合は正しくない処理かもしれない。
@@ -408,36 +408,39 @@ For inappropriate encoding, nil instead."
;;; Japanese TeX modes
;;;###autoload
-(defun japanese-plain-tex-mode ()
+(defun japanese-plain-TeX-mode ()
"Major mode in AUCTeX for editing Japanese plain TeX files.
-Set `japanese-TeX-mode' to t, and enter `TeX-plain-tex-mode'."
+Set `japanese-TeX-mode' to t, and enter `plain-TeX-mode'."
(interactive)
(setq japanese-TeX-mode t)
- (TeX-plain-tex-mode))
+ (plain-TeX-mode))
-(defun japanese-plain-tex-mode-initialization ()
+(defun japanese-plain-TeX-mode-initialization ()
"Japanese plain-TeX specific initializations."
(when japanese-TeX-mode
(TeX-engine-set japanese-TeX-engine-default)
;; For the intent of the following lines, see the comments below
- ;; in `japanese-latex-mode-initialization'.
+ ;; in `japanese-LaTeX-mode-initialization'.
(when enable-local-variables
- (setq major-mode 'japanese-plain-tex-mode)
+ (setq major-mode 'japanese-plain-TeX-mode)
(add-hook 'hack-local-variables-hook #'japanese-TeX-reset-mode-name
nil t))))
-(add-hook 'plain-TeX-mode-hook #'japanese-plain-tex-mode-initialization)
+(add-hook 'plain-TeX-mode-hook #'japanese-plain-TeX-mode-initialization)
;;;###autoload
-(defun japanese-latex-mode ()
+(defalias 'japanese-plain-tex-mode #'japanese-plain-TeX-mode)
+
+;;;###autoload
+(defun japanese-LaTeX-mode ()
"Major mode in AUCTeX for editing Japanese LaTeX files.
-Set `japanese-TeX-mode' to t, and enter `TeX-latex-mode'."
+Set `japanese-TeX-mode' to t, and enter `LaTeX-mode'."
(interactive)
(setq japanese-TeX-mode t)
- (TeX-latex-mode))
+ (LaTeX-mode))
-(defun japanese-latex-mode-initialization ()
+(defun japanese-LaTeX-mode-initialization ()
"Japanese LaTeX specific initializations."
(when japanese-TeX-mode
;; `TeX-match-style' を使うのは `TeX-update-style' の後に遅らせる。
@@ -459,41 +462,39 @@ Set `japanese-TeX-mode' to t, and enter `TeX-latex-mode'."
(font-latex-add-keywords '("gtfamily")
'bold-declaration))
- ;; The value of `major-mode' should be `latex-mode', not
- ;; `japanese-latex-mode', because the name `latex-mode' is hard
+ ;; The value of `major-mode' should be `LaTeX-mode', not
+ ;; `japanese-LaTeX-mode', because the name `LaTeX-mode' is hard
;; coded in several places of AUCTeX like "(eq major-mode
- ;; 'latex-mode)", "(memq major-mode '(doctex-mode latex-mode)" and
- ;; so on. By such piece of codes, `japanese-latex-mode' should
- ;; simply be regarded as `latex-mode'. So we'd like to leave
- ;; `major-mode' as `latex-mode' here, but doing so confuses
- ;; `hack-local-variables' in two ways.
- ;; (1) It is tricked into considering that the major mode is not
- ;; yet initialized and calls `japanese-latex-mode' again.
- ;; (2) It does not read the directory local variables prepared for
- ;; `japanese-latex-mode'.
- ;; Thus we temporarily set `major-mode' to `japanese-latex-mode'
- ;; here and plan to reset it to `latex-mode' after
+ ;; 'LaTeX-mode)", "(memq major-mode '(docTeX-mode LaTeX-mode)" and
+ ;; so on. By such piece of codes, `japanese-LaTeX-mode' should
+ ;; simply be regarded as `LaTeX-mode'. So we'd like to leave
+ ;; `major-mode' as `LaTeX-mode' here, but in that case,
+ ;; `hack-local-variables' does not read the directory local variables
+ ;; prepared for `japanese-LaTeX-mode'.
+ ;; Thus we temporarily set `major-mode' to `japanese-LaTeX-mode'
+ ;; here and plan to reset it to `LaTeX-mode' after
;; `hack-local-variables' is done.
(when enable-local-variables
- (setq major-mode 'japanese-latex-mode)
+ (setq major-mode 'japanese-LaTeX-mode)
(add-hook 'hack-local-variables-hook #'japanese-TeX-reset-mode-name
nil t))))
-(add-hook 'LaTeX-mode-hook #'japanese-latex-mode-initialization)
+(add-hook 'LaTeX-mode-hook #'japanese-LaTeX-mode-initialization)
+
+;;;###autoload
+(defalias 'japanese-latex-mode #'japanese-LaTeX-mode)
;; This function is useful only within `hack-local-variables-hook'.
(defun japanese-TeX-reset-mode-name ()
- (cond ((eq major-mode 'japanese-latex-mode)
- (setq major-mode 'latex-mode))
- ((eq major-mode 'japanese-plain-tex-mode)
- (setq major-mode 'plain-tex-mode)))
+ (cond ((eq major-mode 'japanese-LaTeX-mode)
+ (setq major-mode 'LaTeX-mode))
+ ((eq major-mode 'japanese-plain-TeX-mode)
+ (setq major-mode 'plain-TeX-mode)))
(remove-hook 'hack-local-variables-hook #'japanese-TeX-reset-mode-name t))
-;; Make `hack-dir-local-variables' to regard `latex-mode' as parent
-;; of `japanese-latex-mode', and `plain-tex-mode' as parent of
-;; `japanese-plain-tex-mode'.
-(put 'japanese-plain-tex-mode 'derived-mode-parent 'plain-tex-mode)
-(put 'japanese-latex-mode 'derived-mode-parent 'latex-mode)
+;; Hack for directory local variable entry of the form (LaTeX-mode (...)) .
+(put 'japanese-LaTeX-mode 'derived-mode-parent 'LaTeX-mode)
+(put 'japanese-plain-TeX-mode 'derived-mode-parent 'plain-TeX-mode)
(defun japanese-LaTeX-guess-engine ()
"Guess Japanese TeX engine and set it to `TeX-engine'.
diff --git a/tex.el b/tex.el
index 17f046498f..f7810aa0d9 100644
--- a/tex.el
+++ b/tex.el
@@ -3652,10 +3652,10 @@ Choose `ignore' if you don't want AUCTeX to install
support for font locking."
;;; The Mode
(defvar TeX-format-list
- '(("JLATEX" japanese-latex-mode
+ '(("JLATEX" japanese-LaTeX-mode
"\\\\\\(documentstyle\\|documentclass\\)[^%\n]*{u?\\(j[s-]?\\|t\\)\
\\(article\\|report\\|book\\|slides\\)")
- ("JTEX" japanese-plain-tex-mode
+ ("JTEX" japanese-plain-TeX-mode
"-- string likely in Japanese TeX --")
("AMSTEX" AmSTeX-mode
"\\\\document\\b")
- [elpa] externals/auctex updated (ea42107189 -> 561a08e1cf), Tassilo Horn, 2024/02/07
- [elpa] externals/auctex 77ae6b5652 19/43: Restore tool bar on japanese-plain-TeX-mode, Tassilo Horn, 2024/02/07
- [elpa] externals/auctex 77a02f837a 30/43: Mark options as buffer-local with the :local keyword, Tassilo Horn, 2024/02/07
- [elpa] externals/auctex f06778a7ae 27/43: * doc/changes.texi: Update the last change., Tassilo Horn, 2024/02/07
- [elpa] externals/auctex 9b6130ad9a 11/43: Revert menu title, Tassilo Horn, 2024/02/07
- [elpa] externals/auctex b407b239e2 36/43: Update style/simpleicons.el to package v11.1.0, Tassilo Horn, 2024/02/07
- [elpa] externals/auctex 8cb64a3487 21/43: Augment suitable default entry for M-?, Tassilo Horn, 2024/02/07
- [elpa] externals/auctex 43be8c047b 26/43: * doc/changes.texi: Document the change related mode name renewal., Tassilo Horn, 2024/02/07
- [elpa] externals/auctex 9c6f701a0c 12/43: Use `define-derived-mode' for AUCTeX major modes, Tassilo Horn, 2024/02/07
- [elpa] externals/auctex d42cd150b5 05/43: Commit for japanese LaTeX&plain-TeX mode,
Tassilo Horn <=
- [elpa] externals/auctex 2dc9539961 25/43: Merge branch 'master' into feature/fix-mode-names-overlap, Tassilo Horn, 2024/02/07
- [elpa] externals/auctex 40d3662945 22/43: Add more default entries for M-?, Tassilo Horn, 2024/02/07
- [elpa] externals/auctex a3c343654c 02/43: Commit for Texinfo mode, Tassilo Horn, 2024/02/07
- [elpa] externals/auctex ab8f73a1cc 10/43: Merge branch 'master' into feature/fix-mode-names-overlap, Tassilo Horn, 2024/02/07
- [elpa] externals/auctex 15418dc957 34/43: ; * doc/changes.texi: Reshape the new entries., Tassilo Horn, 2024/02/07
- [elpa] externals/auctex 46f2f2215d 07/43: Inherit abbrevs saved in table with former mode name, Tassilo Horn, 2024/02/07
- [elpa] externals/auctex ebc69e7ae7 14/43: Canonicalize mode names, Tassilo Horn, 2024/02/07
- [elpa] externals/auctex 561a08e1cf 43/43: Require emacs 27.1, Tassilo Horn, 2024/02/07
- [elpa] externals/auctex ebd04735e7 16/43: Merge branch 'master' into feature/fix-mode-names-overlap, Tassilo Horn, 2024/02/07
- [elpa] externals/auctex 142f28b539 24/43: Update documents, Tassilo Horn, 2024/02/07