Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
59836110
Commit
59836110
authored
Sep 02, 2000
by
Eli Zaretskii
Browse files
(mouse-popup-menubar): Supply the prompt string for
minor-mode keymaps, if they don't have one.
parent
5514ba5c
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
28 additions
and
5 deletions
+28
-5
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/mouse.el
lisp/mouse.el
+23
-5
No files found.
lisp/ChangeLog
View file @
59836110
2000-09-02 Eli Zaretskii <eliz@is.elta.co.il>
* mouse.el (mouse-popup-menubar): Supply the prompt string for
minor-mode keymaps, if they don't have one.
2000-09-02 Eli Zaretskii <eliz@is.elta.co.il>
* eshell/esh-module.el (eval-when-compile): Don't lose if
...
...
lisp/mouse.el
View file @
59836110
...
...
@@ -170,13 +170,31 @@ not it is actually displayed."
(
let*
((
local-menu
(
and
(
current-local-map
)
(
lookup-key
(
current-local-map
)
[menu-bar]
)))
(
global-menu
(
lookup-key
global-map
[menu-bar]
))
;; If a keymap doesn't have a prompt string (a lazy
;; programmer didn't bother to provide one), create it and
;; insert it into the keymap; each keymap gets its own
;; prompt. This is required for non-toolkit versions to
;; display non-empty menu pane names.
(
minor-mode-menus
(
mapcar
(
function
(
lambda
(
menu
)
(
let*
((
minor-mode
(
car
menu
))
(
menu
(
cdr
menu
))
(
title-or-map
(
cadr
menu
)))
(
or
(
stringp
title-or-map
)
(
setq
menu
(
cons
'keymap
(
cons
(
concat
(
capitalize
(
subst-char-in-string
?-
?\
(
symbol-name
minor-mode
)))
" Menu"
)
(
cdr
menu
)))))
menu
)))
(
minor-mode-key-binding
[menu-bar]
)))
(
local-title-or-map
(
and
local-menu
(
cadr
local-menu
)))
(
minor-mode-menus
(
mapcar
#'
cdr
(
minor-mode-key-binding
[menu-bar]
)))
(
global-title-or-map
(
cadr
global-menu
)))
;; If the keymaps don't have prompt string (a lazy programmer
;; didn't bother to provide one), create it and insert it into the
;; keymaps; each keymap gets its own prompt. This is required for
;; non-toolkit versions to display non-empty menu pane names.
(
or
(
null
local-menu
)
(
stringp
local-title-or-map
)
(
setq
local-menu
(
cons
'keymap
...
...
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