GNU bug report logs - #44134
28.0.50; epa-list-keys failing with ‘wrong type argument: interger-or-marker-p, nil’

Previous Next

Full log

Message #11 received at 44134 <at> debbugs.gnu.org (full text, mbox):

From: Stephen Berman <stephen.berman <at> gmx.net>
To: Colin Baxter <m43cap <at> yandex.com>
Cc: 44134 <at> debbugs.gnu.org
Subject: Re: bug#44134: 28.0.50; epa-list-keys failing with
 ‘wrong type
 argument: interger-or-marker-p, nil’
Date: Thu, 22 Oct 2020 10:49:27 +0200

[Message part 1 (text/plain, inline)]

On Thu, 22 Oct 2020 09:23:35 +0100 Colin Baxter <m43cap <at> yandex.com> wrote:

>>>>>> Pankaj Jangid <pankaj.jangid <at> codeisgreat.com> writes:
>
>     > Steps: 1. M-x epa-list-keys RET ⇒ (lists keys) 2. q 3. M-x
>     > epa-list-keys RET ⇒ Wrong type argument: interger-or-marker-p, nil
>
> Works for me using emacs-28.0.50 and emacs-27.1.

It works in emacs-27 but AFAICT it cannot work with emacs -Q from
master.  If you did use -Q with emacs-28, did you perhaps kill the
buffer is step 2 instead of typing `q'?

Here's a patch for master, but someone who knows epa.el well should
verify it:

[Message part 2 (text/x-patch, inline)]

diff --git a/lisp/epa.el b/lisp/epa.el
index 25e055c201..74a72ee6f8 100644
--- a/lisp/epa.el
+++ b/lisp/epa.el
@@ -360,8 +360,8 @@ epa--list-keys

     ;; Find the end of the documentation text at the start.
     ;; Set POINT to where it ends, or nil if ends at eob.
-    (unless (get-text-property point 'epa-list-keys)
-      (setq point (next-single-property-change point 'epa-list-keys)))
+    (unless (get-text-property point 'epa-key)
+      (setq point (next-single-property-change point 'epa-key)))

     ;; If caller specified documentation text for that, replace the old
     ;; documentation text (if any) with what was specified.
@@ -375,7 +375,7 @@ epa--list-keys
     ;; Now delete the key description text, if any.
     (when point
       (delete-region point
-		     (or (next-single-property-change point 'epa-list-keys)
+		     (or (next-single-property-change point 'epa-key)
 			 (point-max)))
       (goto-char point))

[Message part 3 (text/plain, inline)]

Steve Berman

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.