X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=epa.el;h=b9eb487199d561068c283b5a75c913d218b4fb94;hb=d00ee5e0ec545a77b645d8faaf6961deb7073346;hp=75cb7541a431df108592eefc9dd5db8458ea2e45;hpb=74b46a0ecaa2cf2e877ae29ea9f4196f812688fd;p=elisp%2Fepg.git

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