From 6c8611183c009716570d6628fa12b53d85e437f0 Mon Sep 17 00:00:00 2001 From: Daiki 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,3 +1,8 @@ +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. 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 -- 2.25.1