فهرست منبع

org-persist.el/org-persist--get-index: Do not show warning

* lisp/org-persist.el (org-persist--read-index): Disable warning when
`org-persist-index-file' does not exist.  The warning would spam the
users with disabled cache persistance unnecessarily.

Link: https://list.orgmode.org/87o87kb64s.fsf@yandex.com/T/#u
Ihor Radchenko 3 سال پیش
والد
کامیت
350fa065b4
1فایلهای تغییر یافته به همراه4 افزوده شده و 6 حذف شده
  1. 4 6
      lisp/org-persist.el

+ 4 - 6
lisp/org-persist.el

@@ -104,12 +104,10 @@ When BUFFER is nil, return plist for global VAR."
 (defun org-persist--read-index ()
   "Read `org-persist--index'"
   (unless org-persist--index
-    (if (file-exists-p (org-file-name-concat org-persist-directory org-persist-index-file))
-        (with-temp-buffer
-          (insert-file-contents (org-file-name-concat org-persist-directory org-persist-index-file))
-          (setq org-persist--index (read (current-buffer))))
-      (warn "Cannot read org-persist index from %s."
-            (org-file-name-concat org-persist-directory org-persist-index-file)))))
+    (when (file-exists-p (org-file-name-concat org-persist-directory org-persist-index-file))
+      (with-temp-buffer
+        (insert-file-contents (org-file-name-concat org-persist-directory org-persist-index-file))
+        (setq org-persist--index (read (current-buffer)))))))
 
 (cl-defun org-persist-register (var &optional buffer &key inherit)
   "Register VAR in BUFFER to be persistent.