|
Link Here
|
| 92 |
(defmacro easy-menu-define (symbol maps doc menu) |
92 |
(defmacro easy-menu-define (symbol maps doc menu) |
| 93 |
"Define SYMBOL to be a menu for keymaps MAPS. |
93 |
"Define SYMBOL to be a menu for keymaps MAPS. |
| 94 |
DOC is the documentation string, and MENU is a Lucid style menu." |
94 |
DOC is the documentation string, and MENU is a Lucid style menu." |
| 95 |
`( (progn |
95 |
`(progn |
| 96 |
(require 'auc-menu) ;For `easy-menu-do-define'. |
96 |
(require 'auc-menu) ;For `easy-menu-do-define'. |
| 97 |
(defvar (, symbol) nil (, doc)) |
97 |
(defvar (, symbol) nil (, doc)) |
| 98 |
(easy-menu-do-define (quote (, symbol)) (, maps) (, doc) (, menu))))) |
98 |
(easy-menu-do-define (quote (, symbol)) (, maps) (, doc) (, menu)))) |
| 99 |
|
99 |
|
| 100 |
(cond |
100 |
(cond |
| 101 |
|
101 |
|
|
Link Here
|
| 212 |
|
212 |
|
| 213 |
(defun easy-menu-do-define (symbol maps doc menu) |
213 |
(defun easy-menu-do-define (symbol maps doc menu) |
| 214 |
(set symbol (easy-menu-create-keymaps (car menu) (cdr menu))) |
214 |
(set symbol (easy-menu-create-keymaps (car menu) (cdr menu))) |
| 215 |
(fset symbol (` (lambda (event) (, doc) (interactive "@e") |
215 |
(fset symbol `(lambda (event) (, doc) (interactive "@e") |
| 216 |
(easy-popup-menu event (, symbol))))) |
216 |
(easy-popup-menu event (, symbol)))) |
| 217 |
(mapcar (function (lambda (map) |
217 |
(mapcar (function (lambda (map) |
| 218 |
(define-key map (vector 'menu-bar (intern (car menu))) |
218 |
(define-key map (vector 'menu-bar (intern (car menu))) |
| 219 |
(cons (car menu) (symbol-value symbol))))) |
219 |
(cons (car menu) (symbol-value symbol))))) |
