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 (file)
--- 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))