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:
parent
824f784187
commit
e8d174304a
1 changed files with 1 additions and 1 deletions
|
@ -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))))
|
||||
|
|
Loading…
Add table
Reference in a new issue