"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "tex.el" between
auctex-12.2.tar.gz and auctex-12.3.tar.gz

About: AUCTEX is an extensible package for writing and formatting TeX files in GNU Emacs and XEmacs.

tex.el  (auctex-12.2):tex.el  (auctex-12.3)
;;; tex.el --- Support for TeX documents. ;;; tex.el --- Support for TeX documents.
;; Copyright (C) 1985-1987, 1991, 1993-2019 Free Software Foundation, Inc. ;; Copyright (C) 1985-2020 Free Software Foundation, Inc.
;; Maintainer: auctex-devel@gnu.org ;; Maintainer: auctex-devel@gnu.org
;; Keywords: tex ;; Keywords: tex
;; This file is part of AUCTeX. ;; This file is part of AUCTeX.
;; AUCTeX is free software; you can redistribute it and/or modify it ;; AUCTeX is free software; you can redistribute it and/or modify it
;; under the terms of the GNU General Public License as published by ;; under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 3, or (at your option) ;; the Free Software Foundation; either version 3, or (at your option)
;; any later version. ;; any later version.
skipping to change at line 38 skipping to change at line 38
;;; Code: ;;; Code:
(when (< emacs-major-version 24) (when (< emacs-major-version 24)
(error "AUCTeX requires Emacs 24 or later")) (error "AUCTeX requires Emacs 24 or later"))
(require 'custom) (require 'custom)
(require 'tex-site) (require 'tex-site)
(eval-when-compile (eval-when-compile
(require 'cl-lib)) (require 'cl-lib))
(require 'texmathp)
;; Silence the compiler for functions:
(declare-function dbus-ignore-errors "ext:dbus"
(&rest body))
(declare-function dbus-get-unique-name "ext:dbusbind.c"
(bus))
(declare-function dbus-ping "ext:dbus"
(bus service &optional timeout))
(declare-function dbus-introspect-get-method "ext:dbus"
(bus service path interface method))
(declare-function dbus-call-method "ext:dbus"
(bus service path interface method &rest args))
(declare-function dbus-register-signal "ext:dbus"
(bus service path interface signal handler &rest args))
(declare-function TeX-output-extension "tex-buf"
nil)
(declare-function TeX-command-expand "tex-buf"
(command file &optional list))
(declare-function TeX-active-master "tex-buf"
(&optional extension nondirectory ignore))
(declare-function TeX-pop-to-buffer "tex-buf"
(buffer &optional other-window norecord))
(declare-function LaTeX-environment-list "latex"
nil)
(declare-function tex--prettify-symbols-compose-p "ext:tex-mode"
(start end match))
;; spell-buffer was removed in 2008 in favor of ispell
(declare-function spell-buffer "ext:text-mode"
t)
;; Silence the compiler for variables:
;; tex.el: Variables defined somewhere in this file:
(defvar TeX-PDF-from-DVI)
(defvar TeX-PDF-mode)
(defvar TeX-PDF-mode-parsed)
(defvar TeX-all-extensions)
(defvar TeX-command-default)
(defvar TeX-default-extension)
(defvar TeX-esc)
(defvar TeX-interactive-mode)
(defvar TeX-macro-global)
(defvar TeX-mode-map)
(defvar TeX-mode-p)
(defvar TeX-output-extension)
(defvar TeX-output-extension)
(defvar TeX-source-correlate-mode)
(defvar TeX-source-specials-places)
(defvar TeX-source-specials-tex-flags)
(defvar TeX-synctex-tex-flags)
;; Variables defined in other AUCTeX libraries:
;; latex.el:
(defvar BibLaTeX-global-style-files)
(defvar BibTeX-global-files)
(defvar BibTeX-global-style-files)
(defvar LaTeX-default-verb-delimiter)
(defvar LaTeX-global-class-files)
(defvar LaTeX-optcl)
(defvar LaTeX-optop)
(defvar TeX-Biber-global-files)
(defvar TeX-global-input-files)
;; tex-buf.el
(defvar TeX-current-process-region-p)
(defvar TeX-region)
(defvar TeX-region-orig-buffer)
;; tex-ispell.el
(defvar TeX-ispell-verb-delimiters)
;; graphicx.el
(defvar LaTeX-includegraphics-global-files)
;; Others:
(defvar tex--prettify-symbols-alist) ; tex-mode.el
(defvar Info-file-list-for-emacs) ; info.el
(defgroup TeX-file nil (defgroup TeX-file nil
"Files used by AUCTeX." "Files used by AUCTeX."
:group 'AUCTeX) :group 'AUCTeX)
(defgroup TeX-command nil (defgroup TeX-command nil
"Calling external commands from AUCTeX." "Calling external commands from AUCTeX."
:group 'AUCTeX) :group 'AUCTeX)
(defgroup LaTeX nil (defgroup LaTeX nil
skipping to change at line 1164 skipping to change at line 1236
;; "(featurep 'pdf-tools)", but that doesn't play well with deferred loading. ;; "(featurep 'pdf-tools)", but that doesn't play well with deferred loading.
(unless (fboundp 'pdf-tools-install) (unless (fboundp 'pdf-tools-install)
(error "PDF Tools are not available")) (error "PDF Tools are not available"))
(unless TeX-PDF-mode (unless TeX-PDF-mode
(error "PDF Tools only work with PDF output")) (error "PDF Tools only work with PDF output"))
(add-hook 'pdf-sync-backward-redirect-functions (add-hook 'pdf-sync-backward-redirect-functions
#'TeX-source-correlate-handle-TeX-region) #'TeX-source-correlate-handle-TeX-region)
(if (and TeX-source-correlate-mode (if (and TeX-source-correlate-mode
(fboundp 'pdf-sync-forward-search)) (fboundp 'pdf-sync-forward-search))
(with-current-buffer (or (when TeX-current-process-region-p (with-current-buffer (or (when TeX-current-process-region-p
(get-file-buffer (TeX-region-file t))) (get-file-buffer (TeX-region-file t)))
(current-buffer)) (current-buffer))
(pdf-sync-forward-search)) (pdf-sync-forward-search))
(let ((pdf (concat file "." (TeX-output-extension)))) (let ((pdf (concat file "." (TeX-output-extension))))
(pop-to-buffer (or (find-buffer-visiting pdf) (pop-to-buffer (or (find-buffer-visiting pdf)
(find-file-noselect pdf)))))) (find-file-noselect pdf))))))
(defcustom TeX-view-evince-keep-focus nil (defcustom TeX-view-evince-keep-focus nil
"Whether Emacs retains the focus when viewing PDF files with Evince. "Whether Emacs retains the focus when viewing PDF files with Evince.
When calling `TeX-evince-sync-view', Evince normally captures the When calling `TeX-evince-sync-view', Evince normally captures the
skipping to change at line 2999 skipping to change at line 3071
(TeX-run-style-hooks (TeX-master-file))) (TeX-run-style-hooks (TeX-master-file)))
(if (and TeX-parse-self (if (and TeX-parse-self
(null (cdr-safe (assoc (TeX-strip-extension nil nil t) (null (cdr-safe (assoc (TeX-strip-extension nil nil t)
TeX-style-hook-list)))) TeX-style-hook-list))))
(TeX-auto-apply)) (TeX-auto-apply))
(run-hooks 'TeX-update-style-hook) (run-hooks 'TeX-update-style-hook)
(message "Applying style hooks...done"))) (message "Applying style hooks...done")))
(defvar TeX-remove-style-hook nil (defvar TeX-remove-style-hook nil
"List of hooks to call when we remove the style specific information.") "List of hooks to call when we remove the style specific information.")
(make-variable-buffer-local 'TeX-remove-style-hook)
(defun TeX-remove-style () (defun TeX-remove-style ()
"Remove all style specific information." "Remove all style specific information."
(setq TeX-style-hook-applied-p nil) (setq TeX-style-hook-applied-p nil)
(run-hooks 'TeX-remove-style-hook) (run-hooks 'TeX-remove-style-hook)
(setq TeX-active-styles (list TeX-virgin-style))) (setq TeX-active-styles (list TeX-virgin-style)))
(defun TeX-style-list () (defun TeX-style-list ()
"Return a list of all styles (subfiles) used by the current document." "Return a list of all styles (subfiles) used by the current document."
(TeX-update-style) (TeX-update-style)
skipping to change at line 5839 skipping to change at line 5910
(save-excursion (save-excursion
(goto-char (cdr texmathp-why)) (goto-char (cdr texmathp-why))
(if (pos-visible-in-window-p) (if (pos-visible-in-window-p)
(sit-for blink-matching-delay) (sit-for blink-matching-delay)
(message "Matches %s" (message "Matches %s"
(buffer-substring (buffer-substring
(point) (progn (end-of-line) (point)))))))) (point) (progn (end-of-line) (point))))))))
(t (t
;; Math mode was not entered with dollar - we cannot finish it with one. ;; Math mode was not entered with dollar - we cannot finish it with one.
(message "Math mode started with `%s' cannot be closed with dollar" (message "Math mode started with `%s' cannot be closed with dollar"
(car texmathp-why)) (car texmathp-why)))))
(insert "$"))))
(t (t
;; Just somewhere in the text. ;; Just somewhere in the text.
(cond (cond
((and TeX-electric-math (TeX-active-mark)) ((and TeX-electric-math (TeX-active-mark))
(if (> (point) (mark)) (if (> (point) (mark))
(exchange-point-and-mark)) (exchange-point-and-mark))
(cond (cond
;; $...$ to $$...$$ ;; $...$ to $$...$$
((and (eq last-command 'TeX-insert-dollar) ((and (eq last-command 'TeX-insert-dollar)
(re-search-forward "\\=\\$\\([^$][^z-a]*[^$]\\)\\$" (mark) t)) (re-search-forward "\\=\\$\\([^$][^z-a]*[^$]\\)\\$" (mark) t))
 End of changes. 5 change blocks. 
5 lines changed or deleted 75 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)