From 4660d6d552470b0a2c5bbb33323026b6ec32a772 Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Sat, 13 Mar 2004 16:50:26 +0000 Subject: [PATCH 1/1] * riece-ctcp.el: "Error occurred in XXX" -> "Error in XXX". * riece-filter.el: "Error occurred in XXX" -> "Error in XXX". * riece-signal.el: "Error occurred in XXX" -> "Error in XXX". --- lisp/ChangeLog | 6 ++++++ lisp/riece-ctcp.el | 12 ++++++------ lisp/riece-filter.el | 8 ++++---- lisp/riece-signal.el | 4 ++-- 4 files changed, 18 insertions(+), 12 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c0fc4b5..e85fe98 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2004-03-13 Daiki Ueno + + * riece-ctcp.el: "Error occurred in XXX" -> "Error in XXX". + * riece-filter.el: "Error occurred in XXX" -> "Error in XXX". + * riece-signal.el: "Error occurred in XXX" -> "Error in XXX". + 2004-03-09 Daiki Ueno * Riece: Version 0.2.1 released. diff --git a/lisp/riece-ctcp.el b/lisp/riece-ctcp.el index 8f19673..79a22da 100644 --- a/lisp/riece-ctcp.el +++ b/lisp/riece-ctcp.el @@ -90,21 +90,21 @@ hook prefix (car targets) message) (error (if riece-debug - (message "Error occurred in `%S': %S" hook error)) + (message "Error in `%S': %S" hook error)) nil)) (if function (condition-case error (funcall function prefix (car targets) message) (error (if riece-debug - (message "Error occurred in `%S': %S" + (message "Error in `%S': %S" function error)))))) (condition-case error (run-hook-with-args-until-success after-hook prefix (car targets) message) (error (if riece-debug - (message "Error occurred in `%S': %S" + (message "Error in `%S': %S" after-hook error))))) t))))) @@ -225,21 +225,21 @@ hook prefix (car targets) message) (error (if riece-debug - (message "Error occurred in `%S': %S" hook error)) + (message "Error in `%S': %S" hook error)) nil)) (if function (condition-case error (funcall function prefix (car targets) message) (error (if riece-debug - (message "Error occurred in `%S': %S" + (message "Error in `%S': %S" function error)))))) (condition-case error (run-hook-with-args-until-success after-hook prefix (car targets) message) (error (if riece-debug - (message "Error occurred in `%S': %S" + (message "Error in `%S': %S" after-hook error))))) t))))) diff --git a/lisp/riece-filter.el b/lisp/riece-filter.el index f888921..5c1b42b 100644 --- a/lisp/riece-filter.el +++ b/lisp/riece-filter.el @@ -48,7 +48,7 @@ (riece-decode-coding-string string)) (error (if riece-debug - (message "Error occurred in `%S': %S" function error))))))) + (message "Error in `%S': %S" function error))))))) (defun riece-default-handle-numeric-reply (client-prefix prefix number name string) @@ -74,19 +74,19 @@ (run-hook-with-args-until-success hook prefix string) (error (if riece-debug - (message "Error occurred in `%S': %S" hook error)) + (message "Error in `%S': %S" hook error)) nil)) (if function (condition-case error (funcall function prefix string) (error (if riece-debug - (message "Error occurred in `%S': %S" function error))))) + (message "Error in `%S': %S" function error))))) (condition-case error (run-hook-with-args-until-success after-hook prefix string) (error (if riece-debug - (message "Error occurred in `%S': %S" after-hook error))))))) + (message "Error in `%S': %S" after-hook error))))))) (defun riece-filter (process input) (save-excursion diff --git a/lisp/riece-signal.el b/lisp/riece-signal.el index 7fedd2f..08d9d52 100644 --- a/lisp/riece-signal.el +++ b/lisp/riece-signal.el @@ -93,14 +93,14 @@ This function is for internal use only." (error (if riece-debug (message - "Error occurred in signal filter for \"%S\": %S" + "Error in signal filter for \"%S\": %S" signal-name error))) nil)) (funcall (riece-slot-function (car slots)) signal (riece-slot-handback (car slots)))) (error (if riece-debug - (message "Error occurred in slot function for \"%S\": %S" + (message "Error in slot function for \"%S\": %S" signal-name error)))) (setq slots (cdr slots)))))) -- 2.25.1