From: morioka <morioka>
Date: Mon, 15 Jan 1996 21:19:11 +0000 (+0000)
Subject: (mu-register/get-citation-name): new implementation by macro
X-Git-Tag: XEmacs-20_3-b27-viet~128
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=97a7a0e454b27e62675adabd05d428bf668db91d;p=elisp%2Fmu-cite.git

(mu-register/get-citation-name): new implementation by macro
---

diff --git a/mu-register.el b/mu-register.el
index a3f448d..f7d1d08 100644
--- a/mu-register.el
+++ b/mu-register.el
@@ -7,7 +7,7 @@
 ;;;         modified by MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Created: 1995/12/27 by MINOURA Makoto <minoura@leo.bekkoame.or.jp>
 ;;; Version:
-;;;	$Id: mu-register.el,v 1.7 1996-01-15 21:07:05 morioka Exp $
+;;;	$Id: mu-register.el,v 1.8 1996-01-15 21:19:11 morioka Exp $
 ;;;
 ;;; This file is part of tl (Tiny Library).
 ;;;
@@ -72,8 +72,8 @@
 ;;;
 
 ;; get citation-name from the database
-(defsubst mu-register/get-citation-name (from)
-  (cdr (assoc from mu-register/citation-name-alist)))
+(defmacro mu-register/get-citation-name (from)
+  (` (cdr (assoc (, from) mu-register/citation-name-alist))))
 
 ;; register citation-name to the database
 (defun mu-register/add-citation-name (name from)