Mercurial > emacs

comparison lisp/menu-bar.el @ 7366:01a3412f53dd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(menu-bar-file-menu): Change new-frame to make-frame, to agree with the keyboard binding.
author Karl Heuer <kwzh@gnu.org>
date Fri, 06 May 1994 20:31:51 +0000
parents 385ac6718f28
children 969e565dffff
comparison
equal deleted inserted replaced
7365:8c2f150f2880 7366:01a3412f53dd
53 (define-key menu-bar-file-menu [write-file] 53 (define-key menu-bar-file-menu [write-file]
54 '("Save Buffer As..." . write-file)) 54 '("Save Buffer As..." . write-file))
55 (define-key menu-bar-file-menu [save-buffer] '("Save Buffer" . save-buffer)) 55 (define-key menu-bar-file-menu [save-buffer] '("Save Buffer" . save-buffer))
56 (define-key menu-bar-file-menu [dired] '("Open Directory..." . dired)) 56 (define-key menu-bar-file-menu [dired] '("Open Directory..." . dired))
57 (define-key menu-bar-file-menu [open-file] '("Open File..." . find-file)) 57 (define-key menu-bar-file-menu [open-file] '("Open File..." . find-file))
58 (define-key menu-bar-file-menu [new-frame] '("New Frame" . new-frame)) 58 (define-key menu-bar-file-menu [new-frame] '("New Frame" . make-frame))
59 59
60 (define-key menu-bar-edit-menu [spell] '("Spell" . ispell-menu-map)) 60 (define-key menu-bar-edit-menu [spell] '("Spell" . ispell-menu-map))
61 (define-key menu-bar-edit-menu [fill] '("Fill" . fill-region)) 61 (define-key menu-bar-edit-menu [fill] '("Fill" . fill-region))
62 (define-key menu-bar-edit-menu [clear] '("Clear" . delete-region)) 62 (define-key menu-bar-edit-menu [clear] '("Clear" . delete-region))
63 (define-key menu-bar-edit-menu [query-replace] 63 (define-key menu-bar-edit-menu [query-replace]