Suppress byte-compile warnings.
authorueno <ueno>
Sun, 22 Apr 2007 06:05:24 +0000 (06:05 +0000)
committerueno <ueno>
Sun, 22 Apr 2007 06:05:24 +0000 (06:05 +0000)
lisp/riece-400.el
lisp/riece-ctcp.el
lisp/riece-lsdb.el
lisp/riece-shrink-buffer.el
lisp/riece-toolbar.el
lisp/riece-twitter.el
lisp/riece-url.el

index 6386375..02ded58 100644 (file)
@@ -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"))
index 854e416..e0e60a9 100644 (file)
@@ -34,6 +34,7 @@
 (require 'riece-display)
 (require 'riece-debug)
 (require 'riece-mcat)
+(require 'riece-message)
 
 (defface riece-ctcp-action-face
   '((((class color)
index eae8c44..22bbbed 100644 (file)
@@ -29,6 +29,7 @@
 ;;; Code:
 
 (require 'riece-identity)
+(require 'riece-misc)
 
 (eval-when-compile
   (autoload 'lsdb-maybe-load-hash-tables "lsdb")
index acbb510..6bc9481 100644 (file)
@@ -29,6 +29,7 @@
 ;;; Code:
 
 (require 'riece-globals)
+(require 'derived)
 
 (defgroup riece-shrink-buffer nil
   "Free old IRC messages to save memory usage."
index 75bcb2f..48c3909 100644 (file)
        (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 ()
 
 (provide 'riece-toolbar)
 
-;;; riece-toolbar.el ends here
\ No newline at end of file
+;;; riece-toolbar.el ends here
index a581ddc..9e23607 100644 (file)
@@ -1,3 +1,5 @@
+(require 'riece-message)
+
 (defvar riece-twitter-credential nil)
 
 (defun riece-twitter-message-filter (message)
index 946139c..1c2f4dd 100644 (file)
@@ -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)