From cf7e330f899a0fb15b36385aa62a8bd082702f7a Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Sun, 14 Sep 2014 02:04:07 -0400 Subject: Include PDFs in km/org-open-file completions --- lisp/init-org.el | 8 ++++++-- 1 file 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'." -- cgit v1.2.3