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

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/cpio-mode 12a3c73 43/61: Fixes to (cdmt-*reset).


From: Stefan Monnier
Subject: [elpa] externals/cpio-mode 12a3c73 43/61: Fixes to (cdmt-*reset).
Date: Fri, 11 Jan 2019 15:25:31 -0500 (EST)

branch: externals/cpio-mode
commit 12a3c73826d2b0cd4271170c2bfd322f90cfd190
Author: dlewan <address@hidden>
Commit: GitHub <address@hidden>

    Fixes to (cdmt-*reset).
    
    Automated tests now pass again.
---
 cpio-dired-crc-test.el | 4 ++--
 cpio-dired-odc-test.el | 4 ++--
 cpio-dired-test.el     | 2 +-
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/cpio-dired-crc-test.el b/cpio-dired-crc-test.el
index a70f769..06809ef 100644
--- a/cpio-dired-crc-test.el
+++ b/cpio-dired-crc-test.el
@@ -6520,7 +6520,7 @@ If MAKE is non-nil, then run 'make crc' as part of the 
reset."
                             *cdmt-crc-large-archive*)))
     (cd run-dir)
     (mapc (lambda (an)
-           (setq cpio-archive-buffer (find-file-noselect an 'no-warn))
+           (setq cpio-archive-buffer (find-file-noselect an nil nil))
            (if (and (file-exists-p an)
                     (buffer-live-p (get-buffer cpio-archive-buffer)))
                (with-current-buffer cpio-archive-buffer
@@ -6540,7 +6540,7 @@ If MAKE is non-nil, then run 'make crc' as part of the 
reset."
                         *cdmt-crc-small-archive*))
 
     (delete-other-windows)
-    (with-current-buffer (setq cpio-archive-buffer (find-file-noselect 
archive-name 'no-warn))
+    (with-current-buffer (setq cpio-archive-buffer (find-file-noselect 
archive-name nil nil))
       (if (string-match "/test_data/.+/test_data/" (buffer-file-name))
          (error "Bogus archive!"))
       (cpio-mode))
diff --git a/cpio-dired-odc-test.el b/cpio-dired-odc-test.el
index 64be57c..c5456ab 100644
--- a/cpio-dired-odc-test.el
+++ b/cpio-dired-odc-test.el
@@ -6627,7 +6627,7 @@ If MAKE is non-nil, then run 'make odc' as part of the 
reset."
                             *cdmt-odc-large-archive*)))
     (cd run-dir)
     (mapc (lambda (an)
-           (setq cpio-archive-buffer (find-file-noselect an 'no-warn))
+           (setq cpio-archive-buffer (find-file-noselect an nil nil))
            (if (and (file-exists-p an)
                     (buffer-live-p (get-buffer cpio-archive-buffer)))
                (with-current-buffer cpio-archive-buffer
@@ -6647,7 +6647,7 @@ If MAKE is non-nil, then run 'make odc' as part of the 
reset."
                         *cdmt-odc-small-archive*))
 
     (delete-other-windows)
-    (with-current-buffer (setq cpio-archive-buffer (find-file-noselect 
archive-name 'no-warn))
+    (with-current-buffer (setq cpio-archive-buffer (find-file-noselect 
archive-name nil nil))
       (if (string-match "/test_data/.+/test_data/" (buffer-file-name))
          (error "Bogus archive!"))
       (cpio-mode))
diff --git a/cpio-dired-test.el b/cpio-dired-test.el
index 30cc014..83b9088 100644
--- a/cpio-dired-test.el
+++ b/cpio-dired-test.el
@@ -6557,7 +6557,7 @@ If MAKE is non-nil, then run 'make newc' as part of the 
reset."
                         *cdmt-small-archive*))
 
     (delete-other-windows)
-    (with-current-buffer (setq cpio-archive-buffer (find-file-noselect 
archive-name 'no-warn))
+    (with-current-buffer (setq cpio-archive-buffer (find-file-noselect 
archive-name nil nil))
       (if (string-match "/test_data/.+/test_data/" (buffer-file-name))
          (error "Bogus archive!"))
       (cpio-mode))



reply via email to

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