Mercurial > hg > xemacs-beta

comparison lisp/toolbar.el @ 217:d44af0c54775 r20-4b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b7
author cvs
date Mon, 13 Aug 2007 10:08:34 +0200
parents 41ff10fd062f
children 41f2f0e326e9
comparison
equal deleted inserted replaced
216:43306a74e31c 217:d44af0c54775
67 (locate-data-directory "toolbar"))))) 67 (locate-data-directory "toolbar")))))
68 68
69 (defun init-toolbar-from-resources (locale) 69 (defun init-toolbar-from-resources (locale)
70 (if (and (featurep 'x) 70 (if (and (featurep 'x)
71 (or (eq locale 'global) 71 (or (eq locale 'global)
72 (eq 'x (device-or-frame-type locale))) 72 (eq 'x (device-or-frame-type locale))))
73 (x-init-toolbar-from-resources locale)))) 73 (x-init-toolbar-from-resources locale)))
74 74
75 75
76 ;; #### Is this actually needed or will the code in 76 ;; #### Is this actually needed or will the code in
77 ;; default-mouse-motion-handler suffice? 77 ;; default-mouse-motion-handler suffice?
78 (define-key global-map 'button1up 'release-toolbar-button) 78 (define-key global-map 'button1up 'release-toolbar-button)