Check (featurep 'toolbar).
authorDaiki Ueno <ueno@unixuser.org>
Sun, 12 Dec 2004 02:32:06 +0000 (02:32 +0000)
committerDaiki Ueno <ueno@unixuser.org>
Sun, 12 Dec 2004 02:32:06 +0000 (02:32 +0000)
lisp/riece-toolbar.el

index bd410a6..c335a74 100644 (file)
     item))
 
 (if (featurep 'xemacs)
     item))
 
 (if (featurep 'xemacs)
-    (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))
-                                   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))
-      (defun riece-set-toolbar (toolbar)
-       (set-specifier default-toolbar toolbar (current-buffer))))
+    (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))
+                                       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))
+         (defun riece-set-toolbar (toolbar)
+           (set-specifier default-toolbar toolbar (current-buffer))))
+      (defalias 'riece-make-toolbar-from-menu 'ignore)
+      (defalias 'riece-set-toolbar 'ignore))
   (defun riece-make-toolbar-from-menu (items menu-items map)
     (let ((pointer items)
          (tool-bar-map (make-sparse-keymap)))
   (defun riece-make-toolbar-from-menu (items menu-items map)
     (let ((pointer items)
          (tool-bar-map (make-sparse-keymap)))