From 4211dc66bfb3228367238ec68da318fa96b2491e Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 3 Sep 2007 04:13:06 +0000 Subject: [PATCH] (mu-cite-remove-text-properties, fill-column-for-fill-cited-region): Don't use old-style backquotes. --- ChangeLog | 5 +++++ mu-cite.el | 20 ++++++++++---------- 2 files changed, 15 insertions(+), 10 deletions(-) diff --git a/ChangeLog b/ChangeLog index 0776433..47f20c1 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2007-09-03 Katsumi Yamaoka + + * mu-cite.el (mu-cite-remove-text-properties) + (fill-column-for-fill-cited-region): Don't use old-style backquotes. + 2007-03-07 Katsumi Yamaoka * mu-cite.el (mu-cite-char-category): Rename from char-category of diff --git a/mu-cite.el b/mu-cite.el index 41f255b..38508bd 100644 --- a/mu-cite.el +++ b/mu-cite.el @@ -71,18 +71,18 @@ (defmacro mu-cite-remove-text-properties (string) "Remove text properties from STRING which is read from minibuffer." (cond ((featurep 'xemacs) - (` (let ((string (copy-sequence (, string)))) - (map-extents (function (lambda (extent maparg) - (delete-extent extent)) - string 0 (length string))) - string))) + `(let ((string (copy-sequence ,string))) + (map-extents (function (lambda (extent maparg) + (delete-extent extent)) + string 0 (length string))) + string)) ((or (boundp 'minibuffer-allow-text-properties);; Emacs 20.1 or later. (not (fboundp 'set-text-properties)));; under Emacs 19.7. string) (t - (` (let ((string (copy-sequence (, string)))) - (set-text-properties 0 (length string) nil string) - string))))) + `(let ((string (copy-sequence ,string))) + (set-text-properties 0 (length string) nil string) + string)))) ;;; @ set up @@ -470,8 +470,8 @@ ignored)." executed. If you wish people call you ****-san, you may set the value of `fill-column' to 60 in the buffer for message sending and set this to 70. :-)" - :type (` (choice (const :tag "Off" nil) - (integer (, default-fill-column)))) + :type `(choice (const :tag "Off" nil) + (integer ,default-fill-column)) :group 'mu-cite) ;;;###autoload -- 1.7.10.4