Improve message when file to include is missing

* org.el (org-file-contents): Improve message when linked file does not exist.
This commit is contained in:
Sebastien Vauban 2014-01-24 11:43:52 +01:00 committed by Bastien Guerry
parent 240329465b
commit 8ad7b3888f
1 changed files with 4 additions and 2 deletions

View File

@ -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))))