diff options
author | Mattias EngdegÄrd <mattiase@acm.org> | 2023-04-10 11:15:57 +0200 |
---|---|---|
committer | Mattias EngdegÄrd <mattiase@acm.org> | 2023-04-10 11:45:09 +0200 |
commit | 3faf43137a376631c49b1300e693acc83e20d9c1 (patch) | |
tree | eea191b6d79b9880366599377e9ed4185cd2f901 | |
parent | c753a9592345e2084d69e9e2cc458c16db2e4141 (diff) | |
download | emacs-3faf43137a376631c49b1300e693acc83e20d9c1.tar.gz |
; Eliminate warning when `dired-map-over-marks` value is unused
* lisp/dired.el (dired-map-over-marks): Reformulate.
-rw-r--r-- | lisp/dired.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index 8e3244356fe..d1471e993a1 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -927,9 +927,9 @@ marked file, return (t FILENAME) instead of (FILENAME)." (lambda () (if ,show-progress (sit-for 0)) (setq results (cons ,body results)))) - (if (< ,arg 0) - (nreverse results) - results)) + (when (< ,arg 0) + (setq results (nreverse results))) + results) ;; non-nil, non-integer, non-marked ARG means use current file: (list ,body)) (let ((regexp (dired-marker-regexp)) next-position) |