diff options
| -rw-r--r-- | lisp/dired-x.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/dired-x.el b/lisp/dired-x.el index b7ec41aa95f..462fa4ee152 100644 --- a/lisp/dired-x.el +++ b/lisp/dired-x.el | |||
| @@ -629,9 +629,12 @@ Optional fifth argument CASE-FOLD-P specifies the value of | |||
| 629 | (let ((dired-marker-char (if unflag-p ?\s dired-marker-char))) | 629 | (let ((dired-marker-char (if unflag-p ?\s dired-marker-char))) |
| 630 | (dired-mark-if | 630 | (dired-mark-if |
| 631 | (and | 631 | (and |
| 632 | ;; not already marked | 632 | (if unflag-p |
| 633 | (= (following-char) ?\s) | 633 | ;; Already marked. |
| 634 | ;; uninteresting | 634 | (not (= (following-char) ?\s)) |
| 635 | ;; Not already marked. | ||
| 636 | (= (following-char) ?\s)) | ||
| 637 | ;; Interesting. | ||
| 635 | (let ((fn (dired-get-filename localp t)) | 638 | (let ((fn (dired-get-filename localp t)) |
| 636 | ;; Match patterns case-insensitively on case-insensitive | 639 | ;; Match patterns case-insensitively on case-insensitive |
| 637 | ;; systems | 640 | ;; systems |