Commit e8d17430 authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen

Fix previous patch to dired-mark-if

* lisp/dired.el (dired-mark-if): Don't use looking-at to check for
characters.
parent 824f7841
......@@ -559,7 +559,7 @@ Return value is the number of files marked, or nil if none were marked."
(goto-char (point-min))
(while (not (eobp))
(when ,predicate
(unless (looking-at-p (char-to-string dired-marker-char))
(unless (= (following-char) dired-marker-char)
(delete-char 1)
(insert dired-marker-char)
(setq count (1+ count))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment