[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org 0b670aa 3/3: org-persist: Support old Emacs without
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org 0b670aa 3/3: org-persist: Support old Emacs without file-attribute-inode-number |
Date: |
Mon, 20 Dec 2021 10:06:15 -0500 (EST) |
branch: externals/org
commit 0b670aa8e8a9a8c539fb46e64be43ca8ec162398
Author: Ihor Radchenko <yantar92@gmail.com>
Commit: Ihor Radchenko <yantar92@gmail.com>
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 90f9a3b..43978d8 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))