From d00ee5e0ec545a77b645d8faaf6961deb7073346 Mon Sep 17 00:00:00 2001 From: ueno Date: Fri, 26 May 2006 10:20:54 +0000 Subject: [PATCH] (epa-insert-keys): Renamed from epa-list-keys-1; don't disable inhibit-quit here; make text-properties nonsticky. --- ChangeLog | 2 +- epa.el | 14 ++++++++++++-- 2 files changed, 13 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index 748dd99..ae017b9 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,7 +1,7 @@ 2006-05-26 Daiki Ueno * epa.el (epa-insert-keys): Renamed from epa-list-keys-1; don't - disable inhibit-quit here. + disable inhibit-quit here; make text-properties nonsticky. * epg.el (epg-make-context): New slot "operation". (epg-passphrase-callback-function): Confirm passphrase when diff --git a/epa.el b/epa.el index 75cb754..b9eb487 100644 --- a/epa.el +++ b/epa.el @@ -300,11 +300,21 @@ (while keys (setq point (point)) (insert " ") - (put-text-property point (point) 'epa-key (car keys)) + (add-text-properties point (point) + (list 'epa-key (car keys) + 'front-sticky nil + 'rear-nonsticky t + 'start-open t + 'end-open t)) (widget-create 'epa-key :value (car keys)) (insert "\n") (setq keys (cdr keys)))) - (put-text-property (point-min) (point-max) 'epa-list-keys t)))) + (add-text-properties (point-min) (point-max) + (list 'epa-list-keys t + 'front-sticky nil + 'rear-nonsticky t + 'start-open t + 'end-open t))))) (defun epa-marked-keys () (or (save-excursion -- 1.7.10.4