From b7baf6df823af33aa4fbe54f8288899ecfc22671 Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 16 Jan 1996 21:54:27 +0000 Subject: [PATCH] (mu-register/citation-name, mu-register/citation-name-quietly): use function `tl:read-string' instead of `read-string'. --- mu-register.el | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) 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 ;;; Created: 1995/12/27 by MINOURA Makoto ;;; 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)) -- 1.7.10.4