[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/org-contrib 46ee0464f0: lisp/org-screenshot.el: Fix obsole
|
From: |
ELPA Syncer |
|
Subject: |
[nongnu] elpa/org-contrib 46ee0464f0: lisp/org-screenshot.el: Fix obsolete `first' calls |
|
Date: |
Tue, 2 Jan 2024 07:00:08 -0500 (EST) |
branch: elpa/org-contrib
commit 46ee0464f0640ee75960c6d21db95b5cef6684f2
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>
lisp/org-screenshot.el: Fix obsolete `first' calls
* lisp/org-screenshot.el (org-screenshot-rotation-init):
---
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 127aef3731..440bb6c99e 100644
--- a/lisp/org-screenshot.el
+++ b/lisp/org-screenshot.el
@@ -344,9 +344,9 @@ by most recent first"
(lambda (file1 file2)
(let ((mtime1 (nth 5 (file-attributes file1)))
(mtime2 (nth 5 (file-attributes file2))))
- (setq mtime1 (+ (ash (first mtime1) 16)
+ (setq mtime1 (+ (ash (cl-first mtime1) 16)
(cl-second mtime1)))
- (setq mtime2 (+ (ash (first mtime2) 16)
+ (setq mtime2 (+ (ash (cl-first mtime2) 16)
(cl-second mtime2)))
(> mtime1 mtime2)))))))
(let ((n -1) (list org-screenshot-file-list))
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- [nongnu] elpa/org-contrib 46ee0464f0: lisp/org-screenshot.el: Fix obsolete `first' calls,
ELPA Syncer <=