/[emacs]/emacs/lisp/toolbar/tool-bar.el
ViewVC logotype

Diff of /emacs/lisp/toolbar/tool-bar.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.29 by rms, Fri Apr 19 00:09:20 2002 UTC revision 1.30 by rms, Sun May 5 03:06:51 2002 UTC
# Line 208  MAP must contain appropriate binding for Line 208  MAP must contain appropriate binding for
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    

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26