diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2018-08-22 14:11:25 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2018-08-22 14:14:21 -0700 |
| commit | be5fe6183e95f3afe3a62ec43504b99df90bc794 (patch) | |
| tree | d06885f6064bb22038dee94d9a1b31eb19d86730 | |
| parent | ae38a3b8208a71c32f723776297290ee5096d8d4 (diff) | |
| download | emacs-be5fe6183e95f3afe3a62ec43504b99df90bc794.tar.gz | |
Undo part of previous change
Issue spotted by Pip Cet in:
https://lists.gnu.org/r/emacs-devel/2018-08/msg00758.html
* lisp/vc/vc-hg.el (vc-hg--raw-dirstate-search):
Go back to using eq on flen, since it must be a fixnum.
| -rw-r--r-- | lisp/vc/vc-hg.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/vc/vc-hg.el b/lisp/vc/vc-hg.el index d11dc4c5f41..76eec884a17 100644 --- a/lisp/vc/vc-hg.el +++ b/lisp/vc/vc-hg.el @@ -629,7 +629,7 @@ Return the byte's value as an integer." ;; 1+4*4 is the length of the dirstate item header. (forward-char (1+ (* 3 4))) (let ((this-flen (vc-hg--read-u32-be))) - (if (and (or (eql this-flen flen) + (if (and (or (eq this-flen flen) (and (> this-flen flen) (eq (char-after (+ (point) flen)) 0))) (search-forward fname (+ (point) flen) t)) |