projects
/
riece
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* riece-addon.el (riece-addon-list-mode-map): Bind riece-command-insinuate-addon...
[riece]
/
lisp
/
riece-toolbar.el
diff --git
a/lisp/riece-toolbar.el
b/lisp/riece-toolbar.el
index
7c80bee
..
ef466ce
100644
(file)
--- a/
lisp/riece-toolbar.el
+++ b/
lisp/riece-toolbar.el
@@
-1,4
+1,4
@@
-;;; riece-toolbar.el ---
show
toolbar icons
+;;; riece-toolbar.el ---
display
toolbar icons
;; Copyright (C) 1998-2004 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
;; Copyright (C) 1998-2004 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
@@
-24,13
+24,15
@@
;;; Commentary:
;;; Commentary:
-;; To use, add the following line to your ~/.riece/init.el:
-;; (add-to-list 'riece-addons 'riece-toolbar)
+;; NOTE: This is an add-on module for Riece.
;;; Code:
(require 'riece-menu)
;;; Code:
(require 'riece-menu)
+(defconst riece-toolbar-description
+ "Display toolbar icons.")
+
(defvar riece-toolbar-items
'(riece-command-quit
riece-command-join
(defvar riece-toolbar-items
'(riece-command-quit
riece-command-join
@@
-62,7
+64,7
@@
menu-item)
(while pointer
(setq file (locate-file (symbol-name (car pointer))
menu-item)
(while pointer
(setq file (locate-file (symbol-name (car pointer))
- load-path
+ (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))
'(".xpm" ".pbm" ".xbm"))
menu-item (riece-toolbar-find-menu-item (car pointer)))
(if (and file (file-exists-p file))