[Top][All Lists]

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

[elpa] externals/embark 552dc4f 3/4: Fix warnings

From: ELPA Syncer
Subject: [elpa] externals/embark 552dc4f 3/4: Fix warnings
Date: Fri, 19 Nov 2021 07:57:19 -0500 (EST)

branch: externals/embark
commit 552dc4f8bf2eca8e9e32cca2ab43b2e77abb8fe8
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Fix warnings
 embark.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/embark.el b/embark.el
index e148308..fc59008 100644
--- a/embark.el
+++ b/embark.el
@@ -2171,6 +2171,7 @@ This function is used as :after advice for 
 (autoload 'package-delete "package")
 (declare-function package--from-builtin "package")
 (declare-function package-desc-extras "package")
+(declare-function package-desc-name "package")
 (defvar package--builtins)
 (defvar package-alist)
 (defvar package-archive-contents)
@@ -2911,13 +2912,13 @@ PRED is a predicate function used to filter the items."
   ;; We advise the serialization in order to avoid errors for nonserializable 
   (cl-letf* ((ht (make-hash-table :test #'equal))
              (orig-read (symbol-function #'read))
-             (orig-write (symbol-function #'widget-sexp-value-to-internal))
+             (orig-write (symbol-function 'widget-sexp-value-to-internal))
              ((symbol-function #'read)
               (lambda (&optional str)
                 (condition-case nil
                     (funcall orig-read str)
                   (error (gethash str ht)))))
-             ((symbol-function #'widget-sexp-value-to-internal)
+             ((symbol-function 'widget-sexp-value-to-internal)
               (lambda (widget val)
                 (let ((str (funcall orig-write widget val)))
                   (puthash str val ht)

reply via email to

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