浏览代码

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

* org.el (org-file-contents): Make the message more prominent.
Bastien Guerry 12 年之前
父节点
当前提交
591d377e78
共有 1 个文件被更改,包括 4 次插入3 次删除
  1. 4 3
      lisp/org.el

+ 4 - 3
lisp/org.el

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