From: ueno <ueno>
Date: Fri, 21 Apr 2000 18:00:38 +0000 (+0000)
Subject: * liece-ctcp.el (liece-ctcp-make-menu-command-wrapper): Quote CTCP subcommands.
X-Git-Tag: liece-1_4_4-1~63
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f65d2d228145b405e3b36153144560b66d601134;p=elisp%2Fliece.git

* liece-ctcp.el (liece-ctcp-make-menu-command-wrapper): Quote CTCP subcommands.
---

diff --git a/lisp/liece-ctcp.el b/lisp/liece-ctcp.el
index cadacc3..f7bf96b 100644
--- a/lisp/liece-ctcp.el
+++ b/lisp/liece-ctcp.el
@@ -53,7 +53,7 @@
 	   (interactive)
 	   (dolist (nick liece-nick-region-nicks)
 	     (funcall (symbol-function
-		       (intern (format "liece-command-ctcp-%s" ,symbol)))
+		       (intern (format "liece-command-ctcp-%s" ',symbol)))
 		      nick)))))
 
 (dolist (symbol liece-ctcp-supported-symbols)