diff options
Diffstat (limited to 'ibuffer.el')
| -rw-r--r-- | ibuffer.el | 19 |
1 files changed, 11 insertions, 8 deletions
@@ -420,14 +420,16 @@ value of `default-directory' in that buffer." (:description "directory name" :reader (read-from-minibuffer "Filter by directory name (regex): ")) - (ibuffer-aif (with-current-buffer buf (ibuffer-buffer-file-name)) - (let ((dirname (expand-file-name (file-name-directory it)))) - (cond (dirname (string-match-p qualifier dirname)))) - (when (buffer-local-value default-directory buf) - (string-match-p - qualifier - (expand-file-name - (buffer-local-value buf default-directory)))))) + (let ((buf-name (with-current-buffer buf (ibuffer-buffer-file-name)))) + (cond (buf-name + (let ((dirname + (expand-file-name (file-name-directory buf-name)))) + (cond (dirname (string-match-p qualifier dirname))))) + ((buffer-local-value default-directory buf) + (string-match-p + qualifier + (expand-file-name + (buffer-local-value buf default-directory))))))) ;;;###autoload (defun durand-bongo-set-filter () @@ -443,6 +445,7 @@ value of `default-directory' in that buffer." (cons "ELisp" '((mode . emacs-lisp-mode))) (cons "EWW" '((mode . eww-mode))) (cons "PDF" '((mode . pdf-view-mode))) + (cons "DICT" '((mode . dudict-mode))) (cons "Eshell" '((mode . eshell-mode))) (cons "Org" '((mode . org-mode))) (cons "Roman" '((mode . novel-read-mode))))) |