branch: elpa/org-contrib
commit e114f7dfc7732a61105d071068b6126844918f60
Author: Ihor Radchenko <[email protected]>
Commit: Ihor Radchenko <[email protected]>
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)
