From a7ae2b41f597d0facc806dc659ecb82a51ec0463 Mon Sep 17 00:00:00 2001 From: ueno Date: Wed, 19 May 2004 08:17:41 +0000 Subject: [PATCH] * riece-400.el (riece-handle-read-string): Append "Quit" to prompt if user quits input. --- lisp/ChangeLog | 5 +++++ lisp/riece-400.el | 5 +++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0741de6..b4795bd 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,10 @@ 2004-05-19 Daiki Ueno + * riece-400.el (riece-handle-read-string): Append "Quit" to prompt + if user quits input. + +2004-05-19 Daiki Ueno + * riece-commands.el (riece-command-complete-user): New command. * riece.el: Bind riece-command-complete-user. 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 \" :Erroneous nickname\"." (let ((nickname -- 1.7.10.4