diff options
| author | Stefan Kangas <stefan@marxist.se> | 2021-11-16 05:06:48 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2021-11-16 05:07:32 +0100 |
| commit | 1d3381ae352d97f69d649a5140286cf8f39e0d2b (patch) | |
| tree | c8740233e7fc5b73768b3dcb79e355e890d79c1e /test/lisp/wdired-tests.el | |
| parent | 7cfc3f34bb138def9a1e5b5bce2173b7bb884ad5 (diff) | |
| download | emacs-1d3381ae352d97f69d649a5140286cf8f39e0d2b.tar.gz | |
Fix recently changed wdired test on MS-Windows
* test/lisp/wdired-tests.el (wdired-test-bug34915): Don't try to
create a local socket on MS-Windows, as it is not supported on that
platform. Problem reported by Robert Pluim <rpluim@gmail.com>.
Diffstat (limited to 'test/lisp/wdired-tests.el')
| -rw-r--r-- | test/lisp/wdired-tests.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/test/lisp/wdired-tests.el b/test/lisp/wdired-tests.el index 9678fce84d0..47ed26f609d 100644 --- a/test/lisp/wdired-tests.el +++ b/test/lisp/wdired-tests.el @@ -146,11 +146,12 @@ wdired-get-filename before and after editing." (make-symbolic-link "foo" "bar") (make-directory "foodir") (dired-smart-shell-command "mkfifo foopipe") - (setq proc (make-network-process - :name "foo" - :family 'local - :server t - :service (expand-file-name "foosocket" test-dir))) + (when (featurep 'make-network-process '(:family local)) + (setq proc (make-network-process + :name "foo" + :family 'local + :server t + :service (expand-file-name "foosocket" test-dir)))) (kill-buffer buf)) (dired test-dir) (dired-toggle-read-only) |