Mercurial > emacs

comparison lisp/menu-bar.el @ 13506:6360f5543071

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(delete-frame): Don't use delete-frame as event name.
author Richard M. Stallman <rms@gnu.org>
date Sat, 11 Nov 1995 07:06:05 +0000
parents ddf1e34018d2
children 051b4ffca31f
comparison
equal deleted inserted replaced
13505:86470b361571 13506:6360f5543071
98 (define-key menu-bar-files-menu [split-window] 98 (define-key menu-bar-files-menu [split-window]
99 '("Split Window" . split-window-vertically)) 99 '("Split Window" . split-window-vertically))
100 100
101 (if (fboundp 'delete-frame) 101 (if (fboundp 'delete-frame)
102 (progn 102 (progn
103 (define-key menu-bar-files-menu [delete-frame] 103 ;; Don't use delete-frame as event name
104 ;; because that is a special event.
105 (define-key menu-bar-files-menu [delete-this-frame]
104 '("Delete Frame" . delete-frame)) 106 '("Delete Frame" . delete-frame))
105 (define-key menu-bar-files-menu [make-frame-on-display] 107 (define-key menu-bar-files-menu [make-frame-on-display]
106 '("Open New Display..." . make-frame-on-display)) 108 '("Open New Display..." . make-frame-on-display))
107 (define-key menu-bar-files-menu [make-frame] 109 (define-key menu-bar-files-menu [make-frame]
108 '("Make New Frame" . make-frame)))) 110 '("Make New Frame" . make-frame))))