Merge pull request #1297 from mychris/fix/directory-mode-mark-regex-keep-old

Make DIRECTORY-MODE-MARK-REGEXP keep old marks.

Author: cxxxr

src/ext/directory-mode.lisp

@@ -434,9 +434,11 @@
   (filter-marks (current-point) (constantly nil)))
 
 (define-command directory-mode-mark-regexp (regex) ("sRegex: ")
-  (filter-marks (current-point)
-                (lambda (p)
-                  (ppcre:scan regex (get-name p)))))
+  (let ((scanner (ppcre:create-scanner regex)))
+    (filter-marks (current-point)
+                  (lambda (p)
+                    (or (get-mark p)
+                        (ppcre:scan scanner (get-name p)))))))
 
 (defun query-replace-marked-files (query-function)
   (destructuring-bind (before after)