Explorar o código

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 %!s(int64=3) %!d(string=hai) anos
pai
achega
a78282746d
Modificáronse 1 ficheiros con 5 adicións e 1 borrados
  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.