diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-26 01:15:06 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-26 01:15:06 +0200 |
| commit | e8d174304a99baef2da456e973d955005455507e (patch) | |
| tree | a7c1279e77eef58b66654764d4a53a4cb94b3d78 | |
| parent | 824f78418783ee0af1c804b0decb037a13a4365e (diff) | |
| download | emacs-e8d174304a99baef2da456e973d955005455507e.tar.gz | |
Fix previous patch to dired-mark-if
* lisp/dired.el (dired-mark-if): Don't use looking-at to check for
characters.
| -rw-r--r-- | lisp/dired.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index 5618b25f6f9..38ba3734a61 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -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)))) |