From 0245f3f94b4a56c2ca4a22dd0ee6701cb63c9a80 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 3 Aug 1999 05:32:59 +0000 Subject: [PATCH] (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. --- mu-bbdb.el | 24 ++++++++++++++---------- 1 file changed, 14 insertions(+), 10 deletions(-) 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))) -- 1.7.10.4