Mercurial > emacs
comparison lisp/menu-bar.el @ 7366:01a3412f53dd
(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] |