From 8b49d553b655ea589c80ac1de955e9c4d65627d3 Mon Sep 17 00:00:00 2001 From: Philip Kaludercic Date: Sun, 30 Oct 2022 14:07:56 +0100 Subject: ; Avoid a type error on malformed "elpa-packages.eld" input * lisp/emacs-lisp/package-vc.el: Use 'eq' instead of '=' --- lisp/emacs-lisp/package-vc.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/emacs-lisp/package-vc.el') diff --git a/lisp/emacs-lisp/package-vc.el b/lisp/emacs-lisp/package-vc.el index 65979897777..ab1bffdd21d 100644 --- a/lisp/emacs-lisp/package-vc.el +++ b/lisp/emacs-lisp/package-vc.el @@ -203,8 +203,8 @@ This function is meant to be used as a hook for ;; :version 1 ;; :default-vc Git) (let ((spec (read (current-buffer)))) - (when (= package-vc-elpa-packages-version - (plist-get (cdr spec) :version)) + (when (eq package-vc-elpa-packages-version + (plist-get (cdr spec) :version)) (setf (alist-get (intern archive) package-vc-archive-spec-alist) (car spec))) (setf (alist-get (intern archive) package-vc-archive-data-alist) -- cgit v1.2.3