* liece-commands.el: Add autoload for liece-command-ctcp-version,

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

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