From 0b670aa8e8a9a8c539fb46e64be43ca8ec162398 Mon Sep 17 00:00:00 2001 From: Ihor Radchenko Date: Mon, 20 Dec 2021 13:46:55 +0800 Subject: [PATCH] org-persist: Support old Emacs without file-attribute-inode-number * lisp/org-persist.el (org-persist--get-index): Check is `file-attribute-inode-number' function exists. It was not there in Emacs 25. Fixes https://list.orgmode.org/CAJcAo8s21R1dRrxpaHV=h68RtWctLd6giFskw1vpt9fQh81dDw@mail.gmail.com/T/#u --- lisp/org-persist.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/org-persist.el b/lisp/org-persist.el index 90f9a3bc9..43978d857 100644 --- a/lisp/org-persist.el +++ b/lisp/org-persist.el @@ -94,7 +94,9 @@ When BUFFER is nil, return plist for global VAR." (org-persist--read-index) (let* ((buffer-file (when buffer (buffer-file-name (or (buffer-base-buffer buffer) buffer)))) - (inode (when buffer-file (file-attribute-inode-number (file-attributes buffer-file)))) + (inode (when buffer-file + (and (fboundp 'file-attribute-inode-number) + (file-attribute-inode-number (file-attributes buffer-file))))) (buffer-hash (when buffer (secure-hash 'md5 buffer)))) (let ((result (seq-find (lambda (plist) (and (or (memq var (plist-get plist :variable))