Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
8b4b171e
Commit
8b4b171e
authored
May 22, 1994
by
Richard M. Stallman
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(easy-menu-create-keymaps):
Renamed from easy-menu-keymap. Callers changed.
parent
a3dfa2c0
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
3 deletions
+3
-3
lisp/emacs-lisp/easymenu.el
lisp/emacs-lisp/easymenu.el
+3
-3
No files found.
lisp/emacs-lisp/easymenu.el
View file @
8b4b171e
...
...
@@ -58,7 +58,7 @@ menu item in the top-level menu. The cdr of the submenu list
is a list of menu items, as above."
(
`
(
let*
((
maps
(
,
maps
))
(
menu
(
,
menu
))
(
keymap
(
easy-menu-keymap
(
car
menu
)
(
cdr
menu
))))
(
keymap
(
easy-menu-
create-
keymap
s
(
car
menu
)
(
cdr
menu
))))
(
and
(
keymapp
maps
)
(
setq
maps
(
list
maps
)))
(
while
maps
(
define-key
(
car
maps
)
(
vector
'menu-bar
(
intern
(
car
menu
)))
...
...
@@ -69,7 +69,7 @@ is a list of menu items, as above."
;; Return a menu keymap corresponding to a Lucid-style menu list
;; MENU-ITEMS, and with name MENU-NAME.
(
defun
easy-menu-keymap
(
menu-name
menu-items
)
(
defun
easy-menu-
create-
keymap
s
(
menu-name
menu-items
)
(
let
((
menu
(
make-sparse-keymap
menu-name
)))
;; Process items in reverse order,
;; since the define-key loop reverses them again.
...
...
@@ -82,7 +82,7 @@ is a list of menu items, as above."
(
setq
command
nil
)
(
setq
name
(
if
(
string-match
"^-+$"
item
)
""
item
)))
((
consp
item
)
(
setq
command
(
easy-menu-keymap
(
car
item
)
(
cdr
item
)))
(
setq
command
(
easy-menu-
create-
keymap
s
(
car
item
)
(
cdr
item
)))
(
setq
name
(
car
item
)))
((
vectorp
item
)
(
setq
command
(
make-symbol
(
format
"menu-function-%d"
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment