(epa-insert-keys): Renamed from epa-list-keys-1; don't

disable inhibit-quit here; make text-properties nonsticky.

diff --git a/ChangeLog b/ChangeLog
index 748dd99..ae017b9 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,7 +1,7 @@
 2006-05-26  Daiki Ueno  <ueno@unixuser.org>
 
        * 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 (file)
--- 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