diff options
| author | Juri Linkov | 2025-10-09 20:27:41 +0300 |
|---|---|---|
| committer | Juri Linkov | 2025-10-09 20:27:41 +0300 |
| commit | 7c7bfa625ee3cc0e7ae8aec2a989e1dc14bfe6a7 (patch) | |
| tree | 72a05916fd462deaeba664b393dec28136890adc | |
| parent | 0925e19064c20c4a62d09e7af5affd589f9552a7 (diff) | |
| download | emacs-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.el | 3 |
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)) |