From: ueno <ueno>
Date: Wed, 5 Apr 2000 03:42:25 +0000 (+0000)
Subject: * liece-commands.el: Add autoload for liece-command-ctcp-version,
X-Git-Tag: liece-1_4_4-1~72
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4b05c77fb72c349e4db1067a6fd3252a3b701be8;p=elisp%2Fliece.git

* 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
--- 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
--- 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))