[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/org-contrib bb51b4d688: lisp/org-screenshot.el (org-screen
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/org-contrib bb51b4d688: lisp/org-screenshot.el (org-screenshot-rotation-init): Fix obsolete calls |
Date: |
Mon, 1 Jan 2024 06:59:59 -0500 (EST) |
branch: elpa/org-contrib
commit bb51b4d688779f5c1f3d5ae7cefb2892f9bac967
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>
lisp/org-screenshot.el (org-screenshot-rotation-init): Fix obsolete calls
---
lisp/org-screenshot.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/org-screenshot.el b/lisp/org-screenshot.el
index 6721667a8d..127aef3731 100644
--- a/lisp/org-screenshot.el
+++ b/lisp/org-screenshot.el
@@ -345,9 +345,9 @@ by most recent first"
(let ((mtime1 (nth 5 (file-attributes file1)))
(mtime2 (nth 5 (file-attributes file2))))
(setq mtime1 (+ (ash (first mtime1) 16)
- (second mtime1)))
+ (cl-second mtime1)))
(setq mtime2 (+ (ash (first mtime2) 16)
- (second mtime2)))
+ (cl-second mtime2)))
(> mtime1 mtime2)))))))
(let ((n -1) (list org-screenshot-file-list))
(while (and list (not (equal (pop list) lastfile)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [nongnu] elpa/org-contrib bb51b4d688: lisp/org-screenshot.el (org-screenshot-rotation-init): Fix obsolete calls,
ELPA Syncer <=