From: Daiki Ueno <ueno@unixuser.org>
Date: Wed, 19 May 2004 08:17:41 +0000 (+0000)
Subject: * riece-400.el (riece-handle-read-string): Append "Quit" to prompt
X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=6c8611183c009716570d6628fa12b53d85e437f0;p=riece

* riece-400.el (riece-handle-read-string): Append "Quit" to prompt
if user quits input.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0741de6..b4795bd 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-05-19  Daiki Ueno  <ueno@unixuser.org>
+
+	* riece-400.el (riece-handle-read-string): Append "Quit" to prompt
+	if user quits input.
+
 2004-05-19  Daiki Ueno  <ueno@unixuser.org>
 
 	* riece-commands.el (riece-command-complete-user): New command.
diff --git a/lisp/riece-400.el b/lisp/riece-400.el
index 1c302f2..9681607 100644
--- a/lisp/riece-400.el
+++ b/lisp/riece-400.el
@@ -37,8 +37,9 @@
   (condition-case nil
       (let (inhibit-quit)
 	(read-string prompt))
-    (quit)))
-  
+    (quit
+     (ignore (message "%s" (concat prompt "Quit"))))))
+
 (defun riece-handle-432-message (prefix number name string)
   "ERR_ERRONEUSNICKNAME	\"<nick> :Erroneous nickname\"."
   (let ((nickname