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

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/org-contrib e114f7dfc7: lisp/org-screenshot.el: Fix compil


From: ELPA Syncer
Subject: [nongnu] elpa/org-contrib e114f7dfc7: lisp/org-screenshot.el: Fix compiler warning
Date: Sun, 28 Jan 2024 10:00:04 -0500 (EST)

branch: elpa/org-contrib
commit e114f7dfc7732a61105d071068b6126844918f60
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    lisp/org-screenshot.el: Fix compiler warning
    
    * lisp/org-screenshot.el (org-screenshot-show-unused): Explicitly tell
    the compiler that we ignore the return value of `dired-mark-if'.
---
 lisp/org-screenshot.el | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/lisp/org-screenshot.el b/lisp/org-screenshot.el
index 440bb6c99e..50f781a8a4 100644
--- a/lisp/org-screenshot.el
+++ b/lisp/org-screenshot.el
@@ -518,12 +518,13 @@ entered, at which point event will be unread"
     (setq dired-buffer (dired-noselect (org-screenshot-image-directory)))
     (with-current-buffer dired-buffer
       (dired-unmark-all-files ?\r)
-      (dired-mark-if
-       (let ((file (dired-get-filename 'no-dir t))) 
-        (and file (string-match image-re file)
-             (not (member file files-in-buffer))
-             (setq had-any t)))
-       "Unused screenshot"))
+      (ignore
+       (dired-mark-if
+       (let ((file (dired-get-filename 'no-dir t)))
+         (and file (string-match image-re file)
+              (not (member file files-in-buffer))
+              (setq had-any t)))
+       "Unused screenshot")))
     (when had-any (pop-to-buffer dired-buffer))))
 
 (provide 'org-screenshot)



reply via email to

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