From c5c2787ebba35bc0379ca9c2933f821596de8d89 Mon Sep 17 00:00:00 2001 From: ueno Date: Thu, 19 Oct 2000 06:09:49 +0000 Subject: [PATCH] * 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'. --- lisp/ChangeLog | 10 +++++++++- lisp/liece-commands.el | 6 ++++-- lisp/liece-ctcp.el | 4 ---- 3 files changed, 13 insertions(+), 7 deletions(-) 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 + * 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 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: ") -- 1.7.10.4