[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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [nongnu] elpa/org-contrib e114f7dfc7: lisp/org-screenshot.el: Fix compiler warning,
ELPA Syncer <=