diff options
| -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)) |