diff options
| author | Lars Ingebrigtsen | 2019-06-26 01:15:06 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-06-26 01:15:06 +0200 |
| commit | e8d174304a99baef2da456e973d955005455507e (patch) | |
| tree | a7c1279e77eef58b66654764d4a53a4cb94b3d78 | |
| parent | 824f78418783ee0af1c804b0decb037a13a4365e (diff) | |
| download | emacs-e8d174304a99baef2da456e973d955005455507e.tar.gz emacs-e8d174304a99baef2da456e973d955005455507e.zip | |
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." | |||
| 559 | (goto-char (point-min)) | 559 | (goto-char (point-min)) |
| 560 | (while (not (eobp)) | 560 | (while (not (eobp)) |
| 561 | (when ,predicate | 561 | (when ,predicate |
| 562 | (unless (looking-at-p (char-to-string dired-marker-char)) | 562 | (unless (= (following-char) dired-marker-char) |
| 563 | (delete-char 1) | 563 | (delete-char 1) |
| 564 | (insert dired-marker-char) | 564 | (insert dired-marker-char) |
| 565 | (setq count (1+ count)))) | 565 | (setq count (1+ count)))) |