[AUCTeX-diffs] GNU AUCTeX branch, master, updated. b292942e2a2edfaf14b8ca351dee6db2f89a0a94

[Mosè Giordano]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU AUCTeX".

The branch, master has been updated
       via  b292942e2a2edfaf14b8ca351dee6db2f89a0a94 (commit)
      from  4b66b9f60e3ce4a552bd4f3230b659347add1446 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit b292942e2a2edfaf14b8ca351dee6db2f89a0a94
Author: Alex Branham <address@hidden>
Date:   Wed Jan 17 13:23:36 2018 -0600

    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>

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

-----------------------------------------------------------------------

Summary of changes:
 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(-)


hooks/post-receive
-- 
GNU AUCTeX