epg: Fix callback argument type check

* epg.el (epg-context-set-passphrase-callback)
(epg-context-set-progress-callback): Check if the CALLBACK
argument is a function, instead of a cons.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 928c89cc8483d164ba2d33d48fff8b0d14c11107..2670a66a7c72e08cc2e85a5064b4a68f77c3a66c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2014-11-18  Daiki Ueno  <ueno@gnu.org>
+
+       * epg.el (epg-context-set-passphrase-callback)
+       (epg-context-set-progress-callback): Check if the CALLBACK
+       argument is a function, instead of a cons.
+
 2014-11-18  Daiki Ueno  <ueno@gnu.org>
 
        * epa-file.el (epa-file-insert-file-contents)

diff --git a/lisp/epg.el b/lisp/epg.el
index e4d8c1e1a024d134733c86d8c3ca252de4fca21a..20e678506937d7d3c9b70cb8f9ea1be0fd1bc64b 100644 (file)
--- a/lisp/epg.el
+++ b/lisp/epg.el
@@ -252,9 +252,9 @@ installing GnuPG 1.x _along with_ GnuPG 2.x, which does passphrase
 query by itself and Emacs can intercept them."
   ;; (declare (obsolete setf "25.1"))
   (setf (epg-context-passphrase-callback context)
-        (if (consp passphrase-callback) ;FIXME: functions can also be consp!
-            passphrase-callback
-          (list passphrase-callback))))
+        (if (functionp passphrase-callback)
+           (list passphrase-callback)
+         passphrase-callback)))
 
 (defun epg-context-set-progress-callback (context
                                          progress-callback)
@@ -268,9 +268,9 @@ description, the character to display a progress unit, the
 current amount done, the total amount to be done, and the
 callback data (if any)."
   (setf (epg-context-progress-callback context)
-        (if (consp progress-callback) ;FIXME: could be a function!
-            progress-callback
-          (list progress-callback))))
+        (if (functionp progress-callback)
+            (list progress-callback)
+          progress-callback)))
 
 (defun epg-context-set-signers (context signers)
   "Set the list of key-id for signing."