Mercurial > emacs
comparison lisp/toolbar/tool-bar.el @ 45133:1fa9ceaa1c5f
(tool-bar-local-item-from-menu): Handle both cases: when the menu item
has cached info and when it doesn't.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 05 May 2002 03:06:51 +0000 |
parents | 1537553adc43 |
children | 7ac43b3204b0 |
comparison
equal
deleted
inserted
replaced
45132:c26266baaba5 | 45133:1fa9ceaa1c5f |
---|---|
206 (if (eq (cadr defn) 'menu-item) | 206 (if (eq (cadr defn) 'menu-item) |
207 (define-key-after in-map (vector key) | 207 (define-key-after in-map (vector key) |
208 (append (cdr defn) (list :image image) props)) | 208 (append (cdr defn) (list :image image) props)) |
209 (setq defn (cdr defn)) | 209 (setq defn (cdr defn)) |
210 (define-key-after in-map (vector key) | 210 (define-key-after in-map (vector key) |
211 (append `(menu-item ,(car defn) ,(cdr defn)) | 211 (let ((rest (cdr defn))) |
212 (list :image image) props))))))) | 212 ;; If the rest of the definition starts |
213 ;; with a list of menu cache info, get rid of that. | |
214 (if (and (consp rest) (consp (car rest))) | |
215 (setq rest (cdr rest))) | |
216 (append `(menu-item ,(car defn) ,rest) | |
217 (list :image image) props)))))))) | |
213 | 218 |
214 ;;; Set up some global items. Additions/deletions up for grabs. | 219 ;;; Set up some global items. Additions/deletions up for grabs. |
215 | 220 |
216 (defun tool-bar-setup () | 221 (defun tool-bar-setup () |
217 ;; People say it's bad to have EXIT on the tool bar, since users | 222 ;; People say it's bad to have EXIT on the tool bar, since users |