From: yamaoka <yamaoka>
Date: Tue, 3 Aug 1999 05:32:59 +0000 (+0000)
Subject: (mu-bbdb-get-prefix-register-verbose-method): Bind
X-Git-Tag: mu-cite-8_0~6
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0245f3f94b4a56c2ca4a22dd0ee6701cb63c9a80;p=elisp%2Fmu-cite.git

(mu-bbdb-get-prefix-register-verbose-method): Bind
`minibuffer-allow-text-properties' to nil;
use `mu-cite-remove-text-properties'.
(mu-bbdb-get-prefix-register-method): Ditto.
---

diff --git a/mu-bbdb.el b/mu-bbdb.el
index 738ae96..4efa3cd 100644
--- a/mu-bbdb.el
+++ b/mu-bbdb.el
@@ -79,11 +79,13 @@ Notice that please use (mu-cite-get-value 'bbdb-prefix-register)
 instead of call the function directly."
   (let ((addr (mu-cite-get-value 'address)))
     (or (mu-bbdb-get-attr addr)
-	(let ((return
-	       (read-string "Citation name? "
-			    (or (mu-cite-get-value 'x-attribution)
-				(mu-cite-get-value 'full-name))
-			    'mu-bbdb-history)))
+	(let* ((minibuffer-allow-text-properties nil)
+	       (return
+		(mu-cite-remove-text-properties
+		 (read-string "Citation name? "
+			      (or (mu-cite-get-value 'x-attribution)
+				  (mu-cite-get-value 'full-name))
+			      'mu-bbdb-history))))
 	  (if (and (not (string-equal return ""))
 		   (y-or-n-p (format "Register \"%s\"? " return)))
 	      (mu-bbdb-set-attr return addr))
@@ -102,11 +104,13 @@ Notice that please use (mu-cite-get-value 'bbdb-prefix-register-verbose)
 instead of call the function directly."
   (let* ((addr (mu-cite-get-value 'address))
 	 (attr (mu-bbdb-get-attr addr))
-	 (return (read-string "Citation name? "
-			      (or attr
-				  (mu-cite-get-value 'x-attribution)
-				  (mu-cite-get-value 'full-name))
-			      'mu-bbdb-history)))
+	 (minibuffer-allow-text-properties nil)
+	 (return (mu-cite-remove-text-properties
+		  (read-string "Citation name? "
+			       (or attr
+				   (mu-cite-get-value 'x-attribution)
+				   (mu-cite-get-value 'full-name))
+			       'mu-bbdb-history))))
     (if (and (not (string-equal return ""))
 	     (not (string-equal return attr))
 	     (y-or-n-p (format "Register \"%s\"? " return)))