diff options
author | Sebastien Vauban <sva-news-D0wtAvR13HarG/iDocfnWg@public.gmane.org> | 2014-01-24 11:43:52 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2014-01-24 12:15:08 +0100 |
commit | 8ad7b3888fae00ca003f8bac299da6bfbff78005 (patch) | |
tree | 64a3b656822a1663f980040faacb5d384720c4c6 | |
parent | 240329465b466584f4bf80f24eb881fb3c9285cf (diff) | |
download | org-mode-8ad7b3888fae00ca003f8bac299da6bfbff78005.tar.gz |
Improve message when file to include is missing
* org.el (org-file-contents): Improve message when linked file does not exist.
-rw-r--r-- | lisp/org.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/org.el b/lisp/org.el index a225bae..787a09f 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -5235,8 +5235,10 @@ Support for group tags is controlled by the option (if (or (not file) (not (file-readable-p file))) (if noerror - (message "Cannot read file \"%s\"" file) - (error "Cannot read file \"%s\"" file)) + (message "Cannot read file \"%s\" referenced in file \"%s\"" + file (buffer-file-name)) + (error "Cannot read file \"%s\" referenced in file \"%s\"" + file (buffer-file-name))) (with-temp-buffer (insert-file-contents file) (buffer-string)))) |