(mu-cite-remove-text-properties, fill-column-for-fill-cited-region): Don't use

 old-style backquotes.

diff --git a/ChangeLog b/ChangeLog
index 0776433..47f20c1 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2007-09-03  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * 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  <yamaoka@jpl.org>
 
        * mu-cite.el (mu-cite-char-category): Rename from char-category of
 2007-03-07  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * 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 (file)
--- 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)
 (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
        ((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
 
 
 ;;; @ 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. :-)"
 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
   :group 'mu-cite)
 
 ;;;###autoload