procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix dired-guess-default logic after previous change

Browse source 
* lisp/dired-x.el (dired-guess-default): Restore previous logic --
require matches for all files (bug#48071).
This commit is contained in:
Lars Ingebrigtsen 2021-07-21 13:04:06 +02:00
parent e4f323a82a
commit bc0aca059d
2 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/dired-x.el
View file

@ -979,9 +979,10 @@ See `dired-guess-shell-alist-user'."
#'append
(mapcar #'cdr
(seq-filter (lambda (elem)
(seq-some (lambda (file)
(string-match-p (car elem) file))
files))
(seq-every-p
(lambda (file)
(string-match-p (car elem) file))
files))
(append dired-guess-shell-alist-user
dired-guess-shell-alist-default)))
nil))))

5
test/lisp/dired-x-tests.el
View file

@ -58,8 +58,9 @@
("\\.jpe?g\\'" "xloadimage"))))
(should (equal (dired-guess-default '("/tmp/foo.png")) "display"))
(should (equal (dired-guess-default '("/tmp/foo.gif"))
'("display" "xloadimage" "feh")))))
'("display" "xloadimage" "feh")))
(should (equal (dired-guess-default '("/tmp/foo.png" "/tmp/foo.txt"))
nil))))
(provide 'dired-x-tests)
;; dired-x-tests.el ends here