[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 455f08c: Fix problem with `epa-list-keys' bugging out
From: |
Lars Ingebrigtsen |
Subject: |
master 455f08c: Fix problem with `epa-list-keys' bugging out |
Date: |
Mon, 18 Jan 2021 11:30:16 -0500 (EST) |
branch: master
commit 455f08c095c5c1606142144508fc91eab0860a6a
Author: Stephen Berman <stephen.berman@gmx.net>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Fix problem with `epa-list-keys' bugging out
* lisp/epa.el (epa--list-keys): Partially revert 517285f7cae which
removed the wrong property (bug#44134).
---
lisp/epa.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/lisp/epa.el b/lisp/epa.el
index db2b127..e909b1d 100644
--- a/lisp/epa.el
+++ b/lisp/epa.el
@@ -359,8 +359,8 @@ DOC is documentation text to insert at the start."
;; 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.
@@ -374,7 +374,7 @@ DOC is documentation text to insert at the start."
;; 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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 455f08c: Fix problem with `epa-list-keys' bugging out,
Lars Ingebrigtsen <=