Fix previous patch to dired-mark-if

* lisp/dired.el (dired-mark-if): Don't use looking-at to check for
characters.
This commit is contained in:
Lars Ingebrigtsen 2019-06-26 01:15:06 +02:00
parent 824f784187
commit e8d174304a

View file

@ -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))))