瀏覽代碼

org-persist.el/org-persist--read-index: Provide warning if reader fails

* lisp/org-persist.el (org-persist--read-index): Inform user when
reader fails to read existing index file.
Ihor Radchenko 3 年之前
父節點
當前提交
a78282746d
共有 1 個文件被更改,包括 5 次插入1 次删除
  1. 5 1
      lisp/org-persist.el

+ 5 - 1
lisp/org-persist.el

@@ -111,7 +111,11 @@ When BUFFER is nil, return plist for global VAR."
               (condition-case err
                   (read (current-buffer))
                 ;; Recover gracefully if index file is corrupted.
-                (error nil)))))))
+                (error
+                 (warn "Emacs reader failed to read data for `org-persist--index' from %S. The error was: %S"
+                       (org-file-name-concat org-persist-directory org-persist-index-file)
+                       (error-message-string err))
+                 nil)))))))
 
 (cl-defun org-persist-register (var &optional buffer &key inherit)
   "Register VAR in BUFFER to be persistent.