From: morioka <morioka>
Date: Mon, 23 Aug 1999 06:03:30 +0000 (+0000)
Subject: 1999-08-19  TSUMURA Tomoaki  <tsumura@kuis.kyoto-u.ac.jp>
X-Git-Tag: clime-1_13_1~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5c433a18368682a2ac049f7551ed74c740fe1b39;p=elisp%2Fflim.git

1999-08-19  TSUMURA Tomoaki  <tsumura@kuis.kyoto-u.ac.jp>

	* mel-b-el.el (base64-num-to-char): Use <(` ...)> and
	<(, ...)> instead of <`...> and <,...>.
	(base64-char-to-num): Likewise.
---

diff --git a/mel-b-el.el b/mel-b-el.el
index f661853..4238015 100644
--- a/mel-b-el.el
+++ b/mel-b-el.el
@@ -100,7 +100,7 @@ external decoder is called."
   )
 
 (defmacro base64-num-to-char (n)
-  `(aref base64-characters ,n))
+  (` (aref base64-characters (, n))))
 
 (defun base64-encode-1 (pack)
   (let ((buf (make-string 4 ?=)))
@@ -170,7 +170,7 @@ external decoder is called."
       vec)))
 
 (defmacro base64-char-to-num (c)
-  `(aref base64-numbers ,c))
+  (` (aref base64-numbers (, c))))
 
 (defsubst base64-internal-decode (string buffer)
   (let* ((len (length string))