mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

(menu-bar-file-menu): Don't include the frame

Browse source 
commands in a non-frame version of Emacs.
This commit is contained in:
Richard M. Stallman 1994-10-10 21:47:33 +00:00
parent 1da3ef65ff
commit ca1a9692de
1 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/menu-bar.el
View file

@ -57,11 +57,15 @@
(define-key menu-bar-file-menu [rmail] '("Read Mail" . rmail)) (define-key menu-bar-file-menu [rmail] '("Read Mail" . rmail))
(define-key menu-bar-file-menu [gnus] '("Read Net News" . gnus)) (define-key menu-bar-file-menu [gnus] '("Read Net News" . gnus))
(define-key menu-bar-file-menu [separator-frames] (if (fboundp 'delete-frame)
'("--")) (progn
(define-key menu-bar-file-menu [separator-frames]
'("--"))
(define-key menu-bar-file-menu [delete-frame] '("Delete Frame" . delete-frame)) (define-key menu-bar-file-menu [delete-frame]
(define-key menu-bar-file-menu [make-frame] '("Make New Frame" . make-frame)) '("Delete Frame" . delete-frame))
(define-key menu-bar-file-menu [make-frame]
'("Make New Frame" . make-frame))))
(define-key menu-bar-file-menu [separator-buffers] (define-key menu-bar-file-menu [separator-buffers]
'("--")) '("--"))