mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-15 21:46:27 +00:00
Code Releases Activity

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

Browse source 
* 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

8
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
(if (or (not file) (not (file-readable-p file)))
(if (not noerror)
(error "Cannot read file \"%s\"" file)
(message "Cannot read file \"%s\"" file)
(error "Cannot read file \"%s\"" file))
"")
(with-temp-buffer
(insert-file-contents file)
(buffer-string))))