[Emacs-diffs] master 2b288eb: ; Merge from emacs-26

[Noam Postavsky]

branch: master
commit 2b288eb9006ed897e7323212408bd25b4bfe2230
Merge: d3090a3 4c8157c
Author: Noam Postavsky <address@hidden>
Commit: Noam Postavsky <address@hidden>

    ; Merge from emacs-26
    
    4c8157cfe0 ; Let files-tests.el pass multiple times in a session
    99251ab62e ; Avoid process kill query during term tests
---
 test/lisp/files-tests.el | 22 ++++++++++------------
 test/lisp/term-tests.el  | 22 +++++++---------------
 2 files changed, 17 insertions(+), 27 deletions(-)

diff --git a/test/lisp/files-tests.el b/test/lisp/files-tests.el
index 90e5ebf..5f42b90 100644
--- a/test/lisp/files-tests.el
+++ b/test/lisp/files-tests.el
@@ -139,18 +139,16 @@ form.")
 
 (ert-deftest files-test-local-variables ()
   "Test the file-local variables implementation."
-  (unwind-protect
-      (progn
-       (defadvice hack-local-variables-confirm (around files-test activate)
-         (setq files-test-result 'query)
-         nil)
-       (dolist (test files-test-local-variable-data)
-         (let ((str (concat "text\n\n;; Local Variables:\n;; "
-                            (mapconcat 'identity (car test) "\n;; ")
-                            "\n;; End:\n")))
-           (dolist (subtest (cdr test))
-             (should (file-test--do-local-variables-test str subtest))))))
-    (ad-disable-advice 'hack-local-variables-confirm 'around 'files-test)))
+  (cl-letf (((symbol-function 'hack-local-variables-confirm)
+             (lambda (&rest _)
+               (setq files-test-result 'query)
+               nil)))
+    (dolist (test files-test-local-variable-data)
+      (let ((str (concat "text\n\n;; Local Variables:\n;; "
+                         (mapconcat 'identity (car test) "\n;; ")
+                         "\n;; End:\n")))
+        (dolist (subtest (cdr test))
+          (should (file-test--do-local-variables-test str subtest)))))))
 
 (defvar files-test-bug-18141-file
   (expand-file-name "data/files-bug18141.el.gz" (getenv 
"EMACS_TEST_DIRECTORY"))
diff --git a/test/lisp/term-tests.el b/test/lisp/term-tests.el
index 16466ea..234dfa1 100644
--- a/test/lisp/term-tests.el
+++ b/test/lisp/term-tests.el
@@ -42,21 +42,13 @@
     ;; control chunking, and we don't have to worry about wrestling
     ;; with stty settings.
     (let ((proc (get-buffer-process (current-buffer))))
-      (unwind-protect
-          (prog2 (if (consp input)
-                     (mapc (lambda (input) (term-emulate-terminal proc input)) 
input)
-                   (term-emulate-terminal proc input))
-              (if return-var (buffer-local-value return-var (current-buffer))
-                (buffer-substring-no-properties (point-min) (point-max)))
-            ;; End the process to avoid query on buffer kill.
-            (process-send-eof proc)
-            (accept-process-output proc))
-        ;; Make extra sure we don't get stuck in case we hit some
-        ;; error before sending eof.
-        (when (process-live-p proc)
-          (kill-process proc)
-          ;; Let Emacs update process status.
-          (accept-process-output proc))))))
+      ;; Don't get stuck when we close the buffer.
+      (set-process-query-on-exit-flag proc nil)
+      (if (consp input)
+                (mapc (lambda (input) (term-emulate-terminal proc input)) 
input)
+              (term-emulate-terminal proc input))
+      (if return-var (buffer-local-value return-var (current-buffer))
+        (buffer-substring-no-properties (point-min) (point-max))))))
 
 (ert-deftest term-simple-lines ()
   (let ((str "\