208 |
(append (cdr defn) (list :image image) props)) |
(append (cdr defn) (list :image image) props)) |
209 |
(setq defn (cdr defn)) |
(setq defn (cdr defn)) |
210 |
(define-key-after in-map (vector key) |
(define-key-after in-map (vector key) |
211 |
(append `(menu-item ,(car defn) ,(cdr defn)) |
(let ((rest (cdr defn))) |
212 |
(list :image image) props))))))) |
;; 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)))))))) |
218 |
|
|
219 |
;;; Set up some global items. Additions/deletions up for grabs. |
;;; Set up some global items. Additions/deletions up for grabs. |
220 |
|
|