set the save-as menu shortcut to s and the prefix to shift
This commit is contained in:
parent
00696cbfac
commit
3b4ba31d74
|
@ -245,8 +245,8 @@
|
|||
(make-an-item 'file-menu 'save-as
|
||||
'(string-constant save-as-info)
|
||||
'(λ (item control) (void))
|
||||
#f
|
||||
'(get-default-shortcut-prefix)
|
||||
#\s
|
||||
'(cons 'shift (get-default-shortcut-prefix))
|
||||
'(string-constant save-as-menu-item)
|
||||
on-demand-do-nothing
|
||||
#f)
|
||||
|
|
|
@ -671,8 +671,8 @@
|
|||
(let ((file-menu:save-as-callback
|
||||
(λ (item evt) (file-menu:save-as-callback item evt))))
|
||||
file-menu:save-as-callback))
|
||||
(shortcut #f)
|
||||
(shortcut-prefix (get-default-shortcut-prefix))
|
||||
(shortcut #\s)
|
||||
(shortcut-prefix (cons 'shift (get-default-shortcut-prefix)))
|
||||
(help-string (file-menu:save-as-help-string))
|
||||
(demand-callback
|
||||
(λ (menu-item) (file-menu:save-as-on-demand menu-item))))))
|
||||
|
|
Loading…
Reference in New Issue
Block a user