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) ,(cddr defn)) |
(append `(menu-item ,(car defn) ,(cdr defn)) |
212 |
(list :image image) props))))))) |
(list :image image) props))))))) |
213 |
|
|
214 |
;;; Set up some global items. Additions/deletions up for grabs. |
;;; Set up some global items. Additions/deletions up for grabs. |