From: morioka <morioka>
Date: Tue, 16 Jan 1996 21:54:27 +0000 (+0000)
Subject: (mu-register/citation-name, mu-register/citation-name-quietly): use
X-Git-Tag: XEmacs-20_3-b27-viet~125
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b7baf6df823af33aa4fbe54f8288899ecfc22671;p=elisp%2Fmu-cite.git

(mu-register/citation-name, mu-register/citation-name-quietly): use
function `tl:read-string' instead of `read-string'.
---

diff --git a/mu-register.el b/mu-register.el
index bcb308f..676a54d 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.10 1996-01-16 17:42:01 morioka Exp $
+;;;	$Id: mu-register.el,v 1.11 1996-01-16 21:54:27 morioka Exp $
 ;;;
 ;;; This file is part of tl (Tiny Library).
 ;;;
@@ -122,9 +122,9 @@
     (if (null return1)
 	(setq return1 fullname))
     (setq return
-	  (read-string "Citation name? "
-		       return1
-		       'mu-register/minibuffer-history))
+	  (tl:read-string "Citation name? "
+			  return1
+			  'mu-register/minibuffer-history))
     (if (not (string-equal return return1))
 	(let ((ans)
 	      (cursor-in-echo-area t))
@@ -152,10 +152,9 @@
     (if (null return1)
 	(progn
 	  (setq return
-		(read-string "Citation name? "
-			     fullname
-			     'mu-register/minibuffer-history))
-	  
+		(tl:read-string "Citation name? "
+				fullname
+				'mu-register/minibuffer-history))
 	  (if (not (string-equal return return1))
 	      (let ((ans)
 		    (cursor-in-echo-area t))