[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/auctex b292942 28/43: Remove some obsolete functions
From: |
Tassilo Horn |
Subject: |
[elpa] externals/auctex b292942 28/43: Remove some obsolete functions |
Date: |
Tue, 20 Mar 2018 11:34:10 -0400 (EDT) |
branch: externals/auctex
commit b292942e2a2edfaf14b8ca351dee6db2f89a0a94
Author: Alex Branham <address@hidden>
Commit: Mosè Giordano <address@hidden>
Remove some obsolete functions
* font-latex.el (font-latex-syntactic-face-function):
* preview.el.in (preview-gs-restart):
* tex-buf.el (TeX-run-background):
(TeX-run-silent):
* tex.el:
(TeX-source-correlate-handle-TeX-region):
(TeX-insert-macro):
(TeX-doc):
* texmathp.el (texmathp): Now that AuCTeX requires GNU Emacs 24.1 or
greater, we
can remove some functions that are obsolete in Emacs < 24.1
Signed-off-by: Mosè Giordano <address@hidden>
---
font-latex.el | 2 +-
preview.el.in | 2 +-
tex-buf.el | 4 ++--
tex.el | 13 ++++---------
texmathp.el | 2 +-
5 files changed, 9 insertions(+), 14 deletions(-)
diff --git a/font-latex.el b/font-latex.el
index 5202247..9b62198 100644
--- a/font-latex.el
+++ b/font-latex.el
@@ -1013,7 +1013,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.in b/preview.el.in
index f4dfa4e..e728de0 100644
--- a/preview.el.in
+++ b/preview.el.in
@@ -705,7 +705,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 a32eb2a..b8f901a 100644
--- a/tex-buf.el
+++ b/tex-buf.el
@@ -1273,7 +1273,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."
@@ -1286,7 +1286,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 6d946f0..94285ec 100644
--- a/tex.el
+++ b/tex.el
@@ -1318,12 +1318,7 @@ viewer."
:int32 (1+ (current-column)))
:uint32 0)
(when TeX-view-evince-keep-focus
- (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))))))
+ (select-frame-set-input-focus (selected-frame))))
(error "Couldn't find the %s instance for %s" (capitalize app) uri))))
(defun TeX-atril-sync-view ()
@@ -1861,7 +1856,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)))))))
@@ -3363,7 +3358,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 'any)
(setq TeX-default-macro symbol))
(TeX-parse-macro symbol (cdr-safe (assoc symbol (TeX-symbol-list))))
(run-hooks 'TeX-after-insert-macro-hook))
@@ -6419,7 +6414,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 'any)
(or (not name) (string= name "")))
(let ((symbol (thing-at-point 'symbol))
contained completions doc)
diff --git a/texmathp.el b/texmathp.el
index 3a26a9f..9f32179 100644
--- a/texmathp.el
+++ b/texmathp.el
@@ -310,7 +310,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 'any)
(message "math-mode is %s: %s begins at buffer position %d"
(if math-on "on" "off")
(or (car match) "new paragraph")
- [elpa] externals/auctex 7f9d64b 39/43: * font-latex.el (font-latex--get-script-props): Use `cl-case' instead of `case'., (continued)
- [elpa] externals/auctex 7f9d64b 39/43: * font-latex.el (font-latex--get-script-props): Use `cl-case' instead of `case'., Tassilo Horn, 2018/03/20
- [elpa] externals/auctex 5592c69 35/43: Improve flymake documentation, Tassilo Horn, 2018/03/20
- [elpa] externals/auctex f7a4622 16/43: Delte prv-xemacs.el, Tassilo Horn, 2018/03/20
- [elpa] externals/auctex 3cdfdc8 19/43: Remove compatibility code for XEmacs in font-latex.el, Tassilo Horn, 2018/03/20
- [elpa] externals/auctex 45d9e1b 13/43: Make sure `LaTeX-default-options' is honored, Tassilo Horn, 2018/03/20
- [elpa] externals/auctex 4b66b9f 27/43: Do not actually write bug report instructions, Tassilo Horn, 2018/03/20
- [elpa] externals/auctex 657c338 40/43: * tex.el (TeX-dwim-master): Prefer `cl-return' over `return'., Tassilo Horn, 2018/03/20
- [elpa] externals/auctex 8779f2d 33/43: * style/babel.el (LaTeX-babel-active-languages): Use `cl-pushnew'., Tassilo Horn, 2018/03/20
- [elpa] externals/auctex c1f04df 41/43: * style/amsmath.el ("amsmath"): Correct \cfrac spec., Tassilo Horn, 2018/03/20
- [elpa] externals/auctex 430025d 20/43: Remove compatibility code for XEmacs in toolbar-x.el, Tassilo Horn, 2018/03/20
- [elpa] externals/auctex b292942 28/43: Remove some obsolete functions,
Tassilo Horn <=
- [elpa] externals/auctex ba79584 32/43: Replace cl with cl-lib in other files, Tassilo Horn, 2018/03/20
- [elpa] externals/auctex 3d08a92 22/43: Restore some code erroneously removed from font-latex.el, Tassilo Horn, 2018/03/20
- [elpa] externals/auctex e769c3c 25/43: Make sure `process-environment' is recovered after temporal setenv, Tassilo Horn, 2018/03/20
- [elpa] externals/auctex 3e57fbe 26/43: ; * texmathp.el: Update comment header., Tassilo Horn, 2018/03/20
- [elpa] externals/auctex 06f704f 31/43: Explicitly require Emacs 24, Tassilo Horn, 2018/03/20
- [elpa] externals/auctex bd21b34 17/43: Remove code for compatibility with very old emacsens in bib-cite.el, Tassilo Horn, 2018/03/20
- [elpa] externals/auctex 4dfb98c 01/43: Remove XEmacs compatibility code in tex-buf.el, Tassilo Horn, 2018/03/20
- [elpa] externals/auctex 73cd17c 11/43: Add fontification for some core macros, Tassilo Horn, 2018/03/20
- [elpa] externals/auctex 688fae2 37/43: Remove cl from AUCTeX, Tassilo Horn, 2018/03/20
- [elpa] externals/auctex 4106f92 24/43: Add fontification for some core macros, Tassilo Horn, 2018/03/20