From: ueno <ueno>
Date: Fri, 26 May 2006 10:20:54 +0000 (+0000)
Subject: (epa-insert-keys): Renamed from epa-list-keys-1; don't
X-Git-Tag: epg-0_0_2~17
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d00ee5e0ec545a77b645d8faaf6961deb7073346;p=elisp%2Fepg.git

(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
--- 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
--- 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