瀏覽代碼

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.
Bastien Guerry 11 年之前
父節點
當前提交
a6f81047a4
共有 1 個文件被更改,包括 5 次插入5 次删除
  1. 5 5
      lisp/org.el

+ 5 - 5
lisp/org.el

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