* riece-400.el (riece-handle-read-string): Append "Quit" to prompt
authorueno <ueno>
Wed, 19 May 2004 08:17:41 +0000 (08:17 +0000)
committerueno <ueno>
Wed, 19 May 2004 08:17:41 +0000 (08:17 +0000)
if user quits input.

lisp/ChangeLog
lisp/riece-400.el

index 0741de6..b4795bd 100644 (file)
@@ -1,5 +1,10 @@
 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.
        * riece.el: Bind riece-command-complete-user.
 
index 1c302f2..9681607 100644 (file)
@@ -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