mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

org.el (org-file-contents): Return an empty string instead of the message 

* org.el (org-file-contents): Return an empty string instead
of the message.
This commit is contained in:
Bastien Guerry 2014-02-05 16:15:55 +01:00
parent 240cd3cb40
commit a6f81047a4
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/org.el
View File

@ -5153,11 +5153,11 @@ Support for group tags is controlled by the option
(defun org-file-contents (file &optional noerror)
"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 (or (not file) (not (file-readable-p file)))
(if (not noerror)
(error "Cannot read file \"%s\"" file)
(message "Cannot read file \"%s\"" file)
"")
(with-temp-buffer
(insert-file-contents file)
(buffer-string))))