From 4b05c77fb72c349e4db1067a6fd3252a3b701be8 Mon Sep 17 00:00:00 2001 From: ueno Date: Wed, 5 Apr 2000 03:42:25 +0000 Subject: [PATCH] * liece-commands.el: Add autoload for liece-command-ctcp-version, liece-command-ctcp-userinfo,liece-command-ctcp-clientinfo, liece-command-ctcp-ping,liece-command-ctcp-time, liece-command-ctcp-x-face,liece-command-ctcp-comment, liece-command-ctcp-help. Suggested by: HARUYAMA Seigo . * liece-ctcp.el (liece-ctcp-make-menu-command-wrapper): Don't use `#'. (liece-ctcp-make-command-wrapper): Ditto. --- lisp/ChangeLog | 13 +++++++++++++ lisp/liece-commands.el | 9 +++++++++ lisp/liece-ctcp.el | 20 ++++++++++---------- 3 files changed, 32 insertions(+), 10 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7326bc9..69cf1f1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,16 @@ +2000-04-05 Daiki Ueno + + * liece-commands.el: Add autoload for liece-command-ctcp-version, + liece-command-ctcp-userinfo,liece-command-ctcp-clientinfo, + liece-command-ctcp-ping,liece-command-ctcp-time, + liece-command-ctcp-x-face,liece-command-ctcp-comment, + liece-command-ctcp-help. + Suggested by: HARUYAMA Seigo . + + * liece-ctcp.el + (liece-ctcp-make-menu-command-wrapper): Don't use `#'. + (liece-ctcp-make-command-wrapper): Ditto. + 2000-04-04 Daiki Ueno * liece.el (liece-client-query-keys): Rename all commands. diff --git a/lisp/liece-commands.el b/lisp/liece-commands.el index 861dcd0..3d9f564 100644 --- a/lisp/liece-commands.el +++ b/lisp/liece-commands.el @@ -42,6 +42,15 @@ (autoload 'liece-dcc-chat-send "liece-dcc") (autoload 'liece-window-configuration-pop "liece-window") +(autoload 'liece-command-ctcp-version "liece-ctcp" nil t) +(autoload 'liece-command-ctcp-userinfo "liece-ctcp" nil t) +(autoload 'liece-command-ctcp-clientinfo "liece-ctcp" nil t) +(autoload 'liece-command-ctcp-ping "liece-ctcp" nil t) +(autoload 'liece-command-ctcp-time "liece-ctcp" nil t) +(autoload 'liece-command-ctcp-x-face "liece-ctcp" nil t) +(autoload 'liece-command-ctcp-comment "liece-ctcp" nil t) +(autoload 'liece-command-ctcp-help "liece-ctcp" nil t) + (defun liece-command-poll-names () "Handler for polling NAMES." (when (liece-server-opened) diff --git a/lisp/liece-ctcp.el b/lisp/liece-ctcp.el index cdf9bfe..d7d2fc7 100644 --- a/lisp/liece-ctcp.el +++ b/lisp/liece-ctcp.el @@ -49,7 +49,7 @@ (defun liece-ctcp-make-menu-command-wrapper (symbol) (fset (intern (format "liece-menu-callback-ctcp-%s" symbol)) - `#'(lambda () + `(lambda () (interactive) (dolist (nick liece-nick-region-nicks) (funcall (symbol-function @@ -505,15 +505,15 @@ (defun liece-ctcp-make-command-wrapper (symbol) (fset (intern (format "liece-command-ctcp-%s" symbol)) - `#'(lambda (client) - (interactive (list (liece-complete-client))) - (setq client (liece-channel-real client) - liece-ctcp-last-nick client - ,@(if (eq symbol 'ping) - '(liece-ctcp-ping-time - (current-time)))) - (liece-send "PRIVMSG %s :\001%s\001" - client (upcase (symbol-name symbol)))))) + `(lambda (client) + (interactive (list (liece-complete-client))) + (setq client (liece-channel-real client) + liece-ctcp-last-nick client + ,@(if (eq symbol 'ping) + '(liece-ctcp-ping-time + (current-time)))) + (liece-send "PRIVMSG %s :\001%s\001" + client (upcase (symbol-name ,symbol)))))) (dolist (symbol liece-ctcp-supported-symbols) (liece-ctcp-make-command-wrapper symbol)) -- 1.7.10.4