emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

feature/package+vc 8b49d553b6 06/10: ; Avoid a type error on malformed "


From: Philip Kaludercic
Subject: feature/package+vc 8b49d553b6 06/10: ; Avoid a type error on malformed "elpa-packages.eld" input
Date: Sun, 30 Oct 2022 13:55:31 -0400 (EDT)

branch: feature/package+vc
commit 8b49d553b655ea589c80ac1de955e9c4d65627d3
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    ; 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(-)

diff --git a/lisp/emacs-lisp/package-vc.el b/lisp/emacs-lisp/package-vc.el
index 6597989777..ab1bffdd21 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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]