From 4e33c2dabd200fd9d6d5196efcad4d4b26b333f6 Mon Sep 17 00:00:00 2001 From: ueno Date: Sun, 22 Apr 2007 06:05:24 +0000 Subject: [PATCH] Suppress byte-compile warnings. --- lisp/riece-400.el | 1 + lisp/riece-ctcp.el | 1 + lisp/riece-lsdb.el | 1 + lisp/riece-shrink-buffer.el | 1 + lisp/riece-toolbar.el | 111 ++++++++++++++++++++++--------------------- lisp/riece-twitter.el | 2 + lisp/riece-url.el | 1 + 7 files changed, 63 insertions(+), 55 deletions(-) diff --git a/lisp/riece-400.el b/lisp/riece-400.el index 6386375..02ded58 100644 --- a/lisp/riece-400.el +++ b/lisp/riece-400.el @@ -27,6 +27,7 @@ (require 'riece-globals) (require 'riece-misc) (require 'riece-mcat) +(require 'riece-commands) (eval-when-compile (autoload 'riece-default-handle-numeric-reply "riece-handle")) diff --git a/lisp/riece-ctcp.el b/lisp/riece-ctcp.el index 854e416..e0e60a9 100644 --- a/lisp/riece-ctcp.el +++ b/lisp/riece-ctcp.el @@ -34,6 +34,7 @@ (require 'riece-display) (require 'riece-debug) (require 'riece-mcat) +(require 'riece-message) (defface riece-ctcp-action-face '((((class color) diff --git a/lisp/riece-lsdb.el b/lisp/riece-lsdb.el index eae8c44..22bbbed 100644 --- a/lisp/riece-lsdb.el +++ b/lisp/riece-lsdb.el @@ -29,6 +29,7 @@ ;;; Code: (require 'riece-identity) +(require 'riece-misc) (eval-when-compile (autoload 'lsdb-maybe-load-hash-tables "lsdb") diff --git a/lisp/riece-shrink-buffer.el b/lisp/riece-shrink-buffer.el index acbb510..6bc9481 100644 --- a/lisp/riece-shrink-buffer.el +++ b/lisp/riece-shrink-buffer.el @@ -29,6 +29,7 @@ ;;; Code: (require 'riece-globals) +(require 'derived) (defgroup riece-shrink-buffer nil "Free old IRC messages to save memory usage." diff --git a/lisp/riece-toolbar.el b/lisp/riece-toolbar.el index 75bcb2f..48c3909 100644 --- a/lisp/riece-toolbar.el +++ b/lisp/riece-toolbar.el @@ -54,60 +54,61 @@ (setq pointer (cdr pointer)))) item)) -(if (featurep 'xemacs) - (if (featurep 'toolbar) - (progn - (defun riece-make-toolbar-from-menu (items menu-items map) - (let ((pointer items) - toolbar - file - menu-item) - (while pointer - (setq file (locate-file (symbol-name (car pointer)) - (cons riece-data-directory load-path) - '(".xpm" ".pbm" ".xbm")) - menu-item (riece-toolbar-find-menu-item (car pointer))) - (if (and file (file-exists-p file)) - (setq toolbar - (toolbar-add-item - toolbar - (toolbar-new-button - file - (car pointer) - (if menu-item - (aref menu-item 0) - (symbol-name (car pointer))))))) - (setq pointer (cdr pointer))) - toolbar)) - (defvar riece-toolbar-original-toolbar nil) - (defun riece-set-toolbar (toolbar) - (make-local-variable 'riece-toolbar-original-toolbar) - (setq riece-toolbar-original-toolbar - (specifier-specs default-toolbar (current-buffer))) - (set-specifier default-toolbar toolbar (current-buffer))) - (defun riece-unset-toolbar () - (if riece-toolbar-original-toolbar - (set-specifier default-toolbar riece-toolbar-original-toolbar - (current-buffer)) - (remove-specifier default-toolbar (current-buffer))) - (kill-local-variable 'riece-toolbar-original-toolbar))) - (defalias 'riece-make-toolbar-from-menu 'ignore) - (defalias 'riece-set-toolbar 'ignore) - (defalias 'riece-unset-toolbar 'ignore)) - (defun riece-make-toolbar-from-menu (items menu-items map) - (let ((pointer items) - (tool-bar-map (make-sparse-keymap))) - (while pointer - (tool-bar-add-item-from-menu (car pointer) - (symbol-name (car pointer)) - map) - (setq pointer (cdr pointer))) - tool-bar-map)) - (defun riece-set-toolbar (toolbar) - (make-local-variable 'tool-bar-map) - (setq tool-bar-map toolbar)) - (defun riece-unset-toolbar () - (kill-local-variable 'tool-bar-map))) +(eval-and-compile + (if (featurep 'xemacs) + (if (featurep 'toolbar) + (progn + (defun riece-make-toolbar-from-menu (items menu-items map) + (let ((pointer items) + toolbar + file + menu-item) + (while pointer + (setq file (locate-file (symbol-name (car pointer)) + (cons riece-data-directory load-path) + '(".xpm" ".pbm" ".xbm")) + menu-item (riece-toolbar-find-menu-item (car pointer))) + (if (and file (file-exists-p file)) + (setq toolbar + (toolbar-add-item + toolbar + (toolbar-new-button + file + (car pointer) + (if menu-item + (aref menu-item 0) + (symbol-name (car pointer))))))) + (setq pointer (cdr pointer))) + toolbar)) + (defvar riece-toolbar-original-toolbar nil) + (defun riece-set-toolbar (toolbar) + (make-local-variable 'riece-toolbar-original-toolbar) + (setq riece-toolbar-original-toolbar + (specifier-specs default-toolbar (current-buffer))) + (set-specifier default-toolbar toolbar (current-buffer))) + (defun riece-unset-toolbar () + (if riece-toolbar-original-toolbar + (set-specifier default-toolbar riece-toolbar-original-toolbar + (current-buffer)) + (remove-specifier default-toolbar (current-buffer))) + (kill-local-variable 'riece-toolbar-original-toolbar))) + (defalias 'riece-make-toolbar-from-menu 'ignore) + (defalias 'riece-set-toolbar 'ignore) + (defalias 'riece-unset-toolbar 'ignore)) + (defun riece-make-toolbar-from-menu (items menu-items map) + (let ((pointer items) + (tool-bar-map (make-sparse-keymap))) + (while pointer + (tool-bar-add-item-from-menu (car pointer) + (symbol-name (car pointer)) + map) + (setq pointer (cdr pointer))) + tool-bar-map)) + (defun riece-set-toolbar (toolbar) + (make-local-variable 'tool-bar-map) + (setq tool-bar-map toolbar)) + (defun riece-unset-toolbar () + (kill-local-variable 'tool-bar-map)))) (defvar riece-command-mode-map) (defun riece-toolbar-command-mode-hook () @@ -136,4 +137,4 @@ (provide 'riece-toolbar) -;;; riece-toolbar.el ends here \ No newline at end of file +;;; riece-toolbar.el ends here diff --git a/lisp/riece-twitter.el b/lisp/riece-twitter.el index a581ddc..9e23607 100644 --- a/lisp/riece-twitter.el +++ b/lisp/riece-twitter.el @@ -1,3 +1,5 @@ +(require 'riece-message) + (defvar riece-twitter-credential nil) (defun riece-twitter-message-filter (message) diff --git a/lisp/riece-url.el b/lisp/riece-url.el index 946139c..1c2f4dd 100644 --- a/lisp/riece-url.el +++ b/lisp/riece-url.el @@ -30,6 +30,7 @@ (require 'riece-options) (require 'riece-menu) ;riece-menu-items +(require 'easymenu) (autoload 'browse-url "browse-url") (defvar browse-url-browser-function) -- 1.7.10.4