Mercurial > emacs

comparison lisp/emacs-lisp/easymenu.el @ 16160:9acae440fe98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(easy-menu-do-define): Use `x-popup-menu' instead of non-existing `easy-popup-menu'.
author Richard M. Stallman <rms@gnu.org>
date Wed, 11 Sep 1996 03:47:43 +0000
parents 34acde979294
children af96712b7f5d
comparison
equal deleted inserted replaced
16159:d4b674c08fe1 16160:9acae440fe98
104 ;; `easy-menu-define' in order to make byte compiled files 104 ;; `easy-menu-define' in order to make byte compiled files
105 ;; compatible. Therefore everything interesting is done in this 105 ;; compatible. Therefore everything interesting is done in this
106 ;; function. 106 ;; function.
107 (set symbol (easy-menu-create-keymaps (car menu) (cdr menu))) 107 (set symbol (easy-menu-create-keymaps (car menu) (cdr menu)))
108 (fset symbol (` (lambda (event) (, doc) (interactive "@e") 108 (fset symbol (` (lambda (event) (, doc) (interactive "@e")
109 (easy-popup-menu event (, symbol))))) 109 (x-popup-menu event (, symbol)))))
110 (mapcar (function (lambda (map) 110 (mapcar (function (lambda (map)
111 (define-key map (vector 'menu-bar (intern (car menu))) 111 (define-key map (vector 'menu-bar (intern (car menu)))
112 (cons (car menu) (symbol-value symbol))))) 112 (cons (car menu) (symbol-value symbol)))))
113 (if (keymapp maps) (list maps) maps))) 113 (if (keymapp maps) (list maps) maps)))
114 114