* 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 <haruyama@unixuser.org>.

* liece-ctcp.el
(liece-ctcp-make-menu-command-wrapper): Don't use `#'.
(liece-ctcp-make-command-wrapper): Ditto.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7326bc9..69cf1f1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,16 @@
+2000-04-05   Daiki Ueno  <ueno@unixuser.org>
+
+       * 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 <haruyama@unixuser.org>.
+
+       * liece-ctcp.el
+       (liece-ctcp-make-menu-command-wrapper): Don't use `#'.
+       (liece-ctcp-make-command-wrapper): Ditto.
+
 2000-04-04   Daiki Ueno  <ueno@unixuser.org>
 
        * 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 (file)
--- 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 (file)
--- 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))