/[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.28 by rms, Mon Apr 1 16:28:16 2002 UTC revision 1.29 by rms, Fri Apr 19 00:09:20 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) ,(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.

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

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