From c74f3e5a51cedcb5784a6ea5c6e912a2f43e8e06 Mon Sep 17 00:00:00 2001 From: ueno Date: Fri, 12 Aug 2005 13:00:59 +0000 Subject: [PATCH] Fixed error location. --- lisp/riece-filter.el | 16 ++++++++++++---- 1 file changed, 12 insertions(+), 4 deletions(-) diff --git a/lisp/riece-filter.el b/lisp/riece-filter.el index a07d0c6..7f739be 100644 --- a/lisp/riece-filter.el +++ b/lisp/riece-filter.el @@ -41,7 +41,9 @@ (format "riece-handle-default-%03d-message" base-number)))) (if (and function (symbol-function function)) - (riece-funcall-ignore-errors (symbol-name function) + (riece-funcall-ignore-errors (if (symbolp function) + (symbol-name function) + (format "numeric-reply-%d" number)) function prefix number name (riece-decode-coding-string string))))) @@ -56,12 +58,18 @@ (let ((function (intern-soft (concat "riece-handle-" message "-message"))) (hook (intern (concat "riece-" message "-hook"))) (after-hook (intern (concat "riece-after-" message "-hook")))) - (unless (riece-ignore-errors (symbol-name hook) + (unless (riece-ignore-errors (if (symbolp hook) + (symbol-name hook) + (format "%s-hook" message)) (run-hook-with-args-until-success hook prefix string)) (if function - (riece-funcall-ignore-errors (symbol-name function) + (riece-funcall-ignore-errors (if (symbolp function) + (symbol-name function) + (format "message-%s" message)) function prefix string)) - (riece-ignore-errors (symbol-name after-hook) + (riece-ignore-errors (if (symbolp after-hook) + (symbol-name after-hook) + (format "%s-after-hook" message)) (run-hook-with-args-until-success after-hook prefix string))))) (defsubst riece-chomp-string (string) -- 1.7.10.4