* liece-compat.el: Require `wid-edit'.

[elisp/liece.git] / lisp / liece-ctcp.el

diff --git a/lisp/liece-ctcp.el b/lisp/liece-ctcp.el
index f7bf96b..1a0b605 100644 (file)
--- a/lisp/liece-ctcp.el
+++ b/lisp/liece-ctcp.el
@@ -133,9 +133,7 @@
          after-hook
          (intern-soft
           (concat "liece-after-ctcp-" message "-hook")))
-    (if (condition-case nil
-           (run-hook-with-args-until-success hook from chnl data)
-         (error nil))
+    (if (run-hook-with-args-until-success hook from chnl data)
        (return-from liece-ctcp-message rest))
     (let ((func
           (liece-handler-find-function
@@ -143,7 +141,7 @@
       (if func
          (funcall func from chnl data)
        (liece-ctcp-messages message from chnl data))
-      (ignore-errors (run-hook-with-args after-hook from chnl data)))
+      (run-hook-with-args after-hook from chnl data))
     rest))
 
 (defun liece-ctcp-messages (message from chnl rest)
@@ -281,9 +279,7 @@
          after-hook
          (intern-soft
           (concat "liece-after-ctcp-" message "-notice-hook")))
-    (if (condition-case nil
-           (run-hook-with-args-until-success hook prefix data)
-         (error nil))
+    (if (run-hook-with-args-until-success hook prefix data)
        (return-from liece-ctcp-notice rest))
     (let ((func
           (liece-handler-find-function
@@ -291,7 +287,7 @@
       (if func
          (funcall func prefix data)
        (liece-ctcp-notices message prefix data)))
-    (ignore-errors (run-hook-with-args after-hook prefix data))
+    (run-hook-with-args after-hook prefix data)
     rest))
 
 (defun liece-ctcp-notices (message prefix rest)
@@ -322,16 +318,14 @@
             (intern-soft
              (concat "liece-after-file-" message "-hook")))
            func)
-       (if (condition-case nil
-               (run-hook-with-args-until-success hook prefix name)
-             (error nil))
+       (if (run-hook-with-args-until-success hook prefix name)
            (return-from liece-ctcp-file-notice))
        (setq func (liece-handler-find-function
                    message '(prefix name data) 'ctcp-file))
        (if func
            (funcall func prefix name data)
          (liece-file-notices message prefix name data))
-       (ignore-errors (run-hook-with-args after-hook prefix name))))))
+       (run-hook-with-args after-hook prefix name)))))
 
 (defun liece-file-notices (message prefix name data)
   (liece-message
@@ -479,8 +473,8 @@
 
 (defmacro liece-complete-client ()
   '(let ((completion-ignore-case t) (nick liece-ctcp-last-nick))
-     (liece-minibuffer-completing-default-read
-      (_ "Whose client: ") liece-nick-alist nil nil
+     (liece-minibuffer-completing-read
+      (_ "Whose client: ") liece-nick-alist nil nil nil nil
       (if nick (liece-channel-virtual nick)))))
 
 (defun liece-minibuffer-complete-client-query ()
@@ -529,10 +523,10 @@
     (if arg
        (setq liece-privmsg-partner 
              (liece-channel-virtual
-              (liece-minibuffer-completing-default-read 
+              (liece-minibuffer-completing-read 
                (_ "To whom: ")
                (append liece-nick-alist liece-channel-alist)
-               nil nil liece-privmsg-partner))))
+               nil nil nil nil liece-privmsg-partner))))
     (beginning-of-line)
     (setq message (buffer-substring (point)(progn (end-of-line)(point))))
     (if (string= message "")
@@ -559,7 +553,7 @@
        liece-ctcp-last-command command)
   (if (string-equal-ignore-case liece-ctcp-last-command "ping")
       (setq liece-ctcp-ping-time (current-time)))
-  (liece-send "PRIVMSG %s :\001%s\001%s" nick command))
+  (liece-send "PRIVMSG %s :\001%s\001" nick command))
 
 ;;;###liece-autoload
 (defun liece-command-ctcp-userinfo-from-minibuffer (info)