emacs-elpa-diffs
[Top][All Lists]
Advanced

[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))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]