tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org.el (org-file-contents): Make the message more prominent 

* org.el (org-file-contents): Make the message more prominent.
This commit is contained in:
Bastien Guerry 2013-04-06 22:31:13 +02:00
parent fe93daa72a
commit 591d377e78
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/org.el
View File

@ -5145,9 +5145,10 @@ Support for group tags is controlled by the option
"Return the contents of FILE, as a string."
(if (or (not file)
(not (file-readable-p file)))
(if noerror
(message "Cannot read file \"%s\"" file)
(error "Cannot read file \"%s\"" file))
(if (not noerror)
(error "Cannot read file \"%s\"" file)
(message "Cannot read file \"%s\"" file)
(sit-for 3))
(with-temp-buffer
(insert-file-contents file)
(buffer-string))))