aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuri Linkov2025-10-09 20:27:41 +0300
committerJuri Linkov2025-10-09 20:27:41 +0300
commit7c7bfa625ee3cc0e7ae8aec2a989e1dc14bfe6a7 (patch)
tree72a05916fd462deaeba664b393dec28136890adc
parent0925e19064c20c4a62d09e7af5affd589f9552a7 (diff)
downloademacs-7c7bfa625ee3cc0e7ae8aec2a989e1dc14bfe6a7.tar.gz
emacs-7c7bfa625ee3cc0e7ae8aec2a989e1dc14bfe6a7.zip
* lisp/xdg.el (xdg-mime-apps): Fix recent regression.
After the change that introduced 'hash-table-contains-p' it's necessary to keep setting 'files' to the hash value.
-rw-r--r--lisp/xdg.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/xdg.el b/lisp/xdg.el
index a9f443c3d73..1e1495f8c7f 100644
--- a/lisp/xdg.el
+++ b/lisp/xdg.el
@@ -385,7 +385,8 @@ Results are cached in `xdg-mime-table'."
385 (when (null (assoc type xdg-mime-table)) 385 (when (null (assoc type xdg-mime-table))
386 (push (cons type (make-hash-table :test #'equal)) xdg-mime-table)) 386 (push (cons type (make-hash-table :test #'equal)) xdg-mime-table))
387 (if (let ((table (cdr (assoc type xdg-mime-table)))) 387 (if (let ((table (cdr (assoc type xdg-mime-table))))
388 (hash-table-contains-p subtype table)) 388 (and (hash-table-contains-p subtype table)
389 (setq files (gethash subtype table))))
389 files 390 files
390 (and files (setq files nil)) 391 (and files (setq files nil))
391 (let ((dirs (mapcar (lambda (dir) (expand-file-name "applications" dir)) 392 (let ((dirs (mapcar (lambda (dir) (expand-file-name "applications" dir))