emacs-elpa-diffs
[Top][All Lists]
Advanced

[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")



reply via email to

[Prev in Thread] Current Thread [Next in Thread]