From: ueno <ueno>
Date: Thu, 19 Oct 2000 06:09:49 +0000 (+0000)
Subject: * liece-ctcp.el: Remove autoload cookies of
X-Git-Tag: liece-1_4_7~37
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c5c2787ebba35bc0379ca9c2933f821596de8d89;p=elisp%2Fliece.git

* liece-ctcp.el: Remove autoload cookies of
`liece-command-ctcp-generic',
`liece-command-ctcp-userinfo-from-minibuffer',
`liece-command-ctcp-x-face-from-xbm-file' and
`liece-command-send-file'.

* liece-commands.el: Add autoload setting for
`liece-command-ctcp-action',
`liece-command-ctcp-userinfo-from-minibuffer' and
`liece-command-ctcp-x-face-from-xbm-file'.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f992663..68ab7be 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,15 @@
 2000-10-19   Daiki Ueno  <ueno@unixuser.org>
 
+	* liece-ctcp.el: Remove autoload cookies of
+	`liece-command-ctcp-generic',
+	`liece-command-ctcp-userinfo-from-minibuffer',
+	`liece-command-ctcp-x-face-from-xbm-file' and
+	`liece-command-send-file'.
+
 	* liece-commands.el: Add autoload setting for
-	`liece-command-ctcp-action'.
+	`liece-command-ctcp-action',
+	`liece-command-ctcp-userinfo-from-minibuffer' and
+	`liece-command-ctcp-x-face-from-xbm-file'.
 
 2000-10-16   Daiki Ueno  <ueno@unixuser.org>
 
diff --git a/lisp/liece-commands.el b/lisp/liece-commands.el
index aa321a1..4ccf3ed 100644
--- a/lisp/liece-commands.el
+++ b/lisp/liece-commands.el
@@ -40,15 +40,17 @@
 
 (autoload 'liece-dcc-chat-send "liece-dcc")
 
+(autoload 'liece-command-ctcp-action "liece-ctcp" nil t)
 (autoload 'liece-command-ctcp-version "liece-ctcp" nil t)
 (autoload 'liece-command-ctcp-userinfo "liece-ctcp" nil t)
+(autoload 'liece-command-ctcp-userinfo-from-minibuffer "liece-ctcp" nil t)
+(autoload 'liece-command-ctcp-help "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-x-face-from-xbm-file "liece-ctcp" nil t)
 (autoload 'liece-command-ctcp-comment "liece-ctcp" nil t)
-(autoload 'liece-command-ctcp-help "liece-ctcp" nil t)
-(autoload 'liece-command-ctcp-action "liece-ctcp" nil t)
 
 (defun liece-command-poll-names ()
   "Handler for polling NAMES."
diff --git a/lisp/liece-ctcp.el b/lisp/liece-ctcp.el
index 1a0b605..238f8ec 100644
--- a/lisp/liece-ctcp.el
+++ b/lisp/liece-ctcp.el
@@ -544,7 +544,6 @@
 (define-obsolete-function-alias 'liece-command-send-action
   'liece-command-ctcp-action)
 
-;;;###liece-autoload
 (defun liece-command-ctcp-generic (nick command)
   "Ask about someones client clientinfo."
   (interactive (list (liece-complete-client) (liece-complete-query)))
@@ -555,14 +554,12 @@
       (setq liece-ctcp-ping-time (current-time)))
   (liece-send "PRIVMSG %s :\001%s\001" nick command))
 
-;;;###liece-autoload
 (defun liece-command-ctcp-userinfo-from-minibuffer (info)
   "Ask about someones client clientinfo."
   (interactive
    (list (read-from-minibuffer "New userinfo: " liece-ctcp-userinfo)))
   (setq liece-ctcp-userinfo info))
 
-;;;###liece-autoload
 (defun liece-command-ctcp-x-face-from-xbm-file (file)
   (interactive "fXBM File: ")
   (let (data)
@@ -571,7 +568,6 @@
 	 (setq liece-ctcp-x-face
 	       (replace-in-string (cadr (nth 3 data)) "[ \t\n]" "")))))
 
-;;;###liece-autoload
 (defun liece-command-send-file (file to)
   "Send a file to given  user."
   (interactive "fFile name: \nsTo whom: ")