diff options
| author | Stephen Berman <stephen.berman@gmx.net> | 2021-01-18 17:29:41 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-01-18 17:29:41 +0100 |
| commit | 455f08c095c5c1606142144508fc91eab0860a6a (patch) | |
| tree | ed094d2acd5039bcbdc1323e82e03c1f8a442024 | |
| parent | 36d33776c21b3765b8a611f09ae7d86417abee8a (diff) | |
| download | emacs-455f08c095c5c1606142144508fc91eab0860a6a.tar.gz | |
Fix problem with `epa-list-keys' bugging out
* lisp/epa.el (epa--list-keys): Partially revert 517285f7cae which
removed the wrong property (bug#44134).
| -rw-r--r-- | lisp/epa.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/epa.el b/lisp/epa.el index db2b1271473..e909b1d8698 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)) |