I noticed that AuCTeX recently dropped support for Emacs older than 24; this
patch removes some functions that are obsolete in Emacs 24+
>From 82d89c77547d02bdbea900c5136b60d0cc59ce9f Mon Sep 17 00:00:00 2001
From: Alex Branham <address@hidden>
Date: Wed, 17 Jan 2018 13:23:36 -0600
Subject: [PATCH] Remove some obsolete functions
Now that AuCTeX requires GNU Emacs 24.1 or greater, we can remove some
functions that are obsolete in Emacs < 24.1
---
font-latex.el | 2 +-
preview.el | 2 +-
tex-buf.el | 4 ++--
tex.el | 10 ++++------
texmathp.el | 2 +-
5 files changed, 9 insertions(+), 11 deletions(-)
diff --git a/font-latex.el b/font-latex.el
index c3dda00d..894a380c 100644
--- a/font-latex.el
+++ b/font-latex.el
@@ -1048,7 +1048,7 @@ have changed."
((not char) 'font-lock-comment-face)
((eq char ?$) 'font-latex-math-face)
(t
- (when (char-valid-p char)
+ (when (characterp char)
;; This is a \verb?...? construct. Let's find the end and mark it.
(save-excursion
(skip-chars-forward (string ?^ char)) ;; Use `end' ?
diff --git a/preview.el b/preview.el
index f9382214..16a71dac 100644
--- a/preview.el
+++ b/preview.el
@@ -713,7 +713,7 @@ Gets the usual PROCESS and STRING parameters, see
preview-gs-command-line)
" ") "''\n")
(setq preview-gs-answer "")
- (process-kill-without-query process)
+ (set-process-query-on-exit-flag process nil)
(set-process-sentinel process #'preview-gs-sentinel)
(set-process-filter process #'preview-gs-filter)
(process-send-string process preview-gs-init-string)
diff --git a/tex-buf.el b/tex-buf.el
index f458651c..7911779e 100644
--- a/tex-buf.el
+++ b/tex-buf.el
@@ -1285,7 +1285,7 @@ With support for MS-DOS, especially when dviout is used
with PC-9801 series."
(if TeX-after-start-process-function
(funcall TeX-after-start-process-function process))
(set-process-filter process #'TeX-background-filter)
- (process-kill-without-query process))))
+ (set-process-query-on-exit-flag process nil))))
(defun TeX-run-silent (name command _file)
"Start process with second argument."
@@ -1298,7 +1298,7 @@ With support for MS-DOS, especially when dviout is used
with PC-9801 series."
TeX-shell-command-option command)))
(if TeX-after-start-process-function
(funcall TeX-after-start-process-function process))
- (process-kill-without-query process))))
+ (set-process-query-on-exit-flag process nil))))
(defun TeX-run-interactive (name command file)
"Run TeX interactively.
diff --git a/tex.el b/tex.el
index 5ee02b4c..d3aeecd2 100644
--- a/tex.el
+++ b/tex.el
@@ -1358,9 +1358,7 @@ viewer."
(cond ((fboundp #'select-frame-set-input-focus)
(select-frame-set-input-focus (selected-frame)))
((fboundp #'x-focus-frame)
- (x-focus-frame (selected-frame)))
- ((fboundp #'focus-frame)
- (focus-frame (selected-frame))))))
+ (x-focus-frame (selected-frame))))))
(error "Couldn't find the %s instance for %s" (capitalize app) uri))))
(defun TeX-atril-sync-view ()
@@ -1904,7 +1902,7 @@ file and LINE to (+ LINE offset-of-region). Else, return
nil."
;; Same regexp used in `preview-parse-messages'. XXX: XEmacs doesn't
;; support regexp classes, so we can't use "[:digit:]" here.
(when (re-search-forward "!offset(\\([---0-9]+\\))" nil t)
- (let ((offset (string-to-int (match-string-no-properties 1))))
+ (let ((offset (string-to-number (match-string-no-properties 1))))
(when TeX-region-orig-buffer
(list (expand-file-name (buffer-file-name TeX-region-orig-buffer))
(+ line offset) col)))))))
@@ -3413,7 +3411,7 @@ is called with \\[universal-argument]."
TeX-esc)
(TeX-symbol-list-filtered) nil nil nil
'TeX-macro-history TeX-default-macro)))
- (when (interactive-p)
+ (when (called-interactively-p)
(setq TeX-default-macro symbol))
(TeX-parse-macro symbol (cdr-safe (assoc symbol (TeX-symbol-list))))
(run-hooks 'TeX-after-insert-macro-hook))
@@ -6531,7 +6529,7 @@ NAME may be a package, a command, or a document."
;; Give up.
(message "No documentation found")))
;; Ask the user about the package, command, or document.
- (when (and (interactive-p)
+ (when (and (called-interactively-p)
(or (not name) (string= name "")))
(let ((symbol (thing-at-point 'symbol))
contained completions doc)
diff --git a/texmathp.el b/texmathp.el
index 23e72f8e..a1fb1f48 100644
--- a/texmathp.el
+++ b/texmathp.el
@@ -302,7 +302,7 @@ See the variable `texmathp-tex-commands' about which
commands are checked."
;; Store info, show as message when interactive, and return
(setq texmathp-why match)
- (and (interactive-p)
+ (and (called-interactively-p)
(message "math-mode is %s: %s begins at buffer position %d"
(if math-on "on" "off")
(or (car match) "new paragraph")
--
2.15.1
0001-Remove-some-obsolete-functions.patch
Description: Text Data
--- End Message ---