diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2014-09-14 02:04:07 -0400 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2014-09-14 02:04:07 -0400 |
| commit | cf7e330f899a0fb15b36385aa62a8bd082702f7a (patch) | |
| tree | c01c337d7f3d89b58c31125f89971f8fb579573a /lisp | |
| parent | b725c8a98daf0ad14e4bf9db936977ce030e51d1 (diff) | |
| download | emacs.d-cf7e330f899a0fb15b36385aa62a8bd082702f7a.tar.gz | |
Include PDFs in km/org-open-file completions
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/init-org.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/init-org.el b/lisp/init-org.el index dafc0d4..fde2471 100644 --- a/lisp/init-org.el +++ b/lisp/init-org.el @@ -47,9 +47,13 @@ (user-error "No file at point")))) (defun km/org-open-file () - "Interactive version of `org-open-file'." + "Interactive version of `org-open-file'. +The value of `completion-ignored-extensions' is modified so that +PDF files are not ignored." (interactive) - (org-open-file (read-file-name "Open file" nil nil t))) + (let ((completion-ignored-extensions + (remove ".pdf" completion-ignored-extensions))) + (org-open-file (read-file-name "Open file" nil nil t)))) (defun km/org-open-annex-file () "Open a git annex file with `org-open-file'." |