diff options
| author | Jan Djärv <jan.h.d@swipnet.se> | 2005-12-23 11:36:08 +0000 |
|---|---|---|
| committer | Jan Djärv <jan.h.d@swipnet.se> | 2005-12-23 11:36:08 +0000 |
| commit | 7b5836c7db984e967275e1768a25e55b84a7409c (patch) | |
| tree | e5beaebaf9df0864e2f944cd8071cf77b3c7fb0d /lisp/menu-bar.el | |
| parent | 90f2e16b151bc42305f352ab3bfcb25429125179 (diff) | |
| download | emacs-7b5836c7db984e967275e1768a25e55b84a7409c.tar.gz emacs-7b5836c7db984e967275e1768a25e55b84a7409c.tar.bz2 emacs-7b5836c7db984e967275e1768a25e55b84a7409c.zip | |
* menu-bar.el (menu-find-file-existing): New function.
(menu-bar-file-menu): Use menu-find-file-existing for Open.
* tool-bar.el (tool-bar-setup): open changed to menu-find-file-existing.
Diffstat (limited to 'lisp/menu-bar.el')
| -rw-r--r-- | lisp/menu-bar.el | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index afc207bc9f0..e005fc09df6 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -178,6 +178,17 @@ A large number or nil slows down menu responsiveness." (define-key menu-bar-file-menu [separator-save] '(menu-item "--")) +(defun menu-find-file-existing () + "Edit the existing file FILENAME." + (interactive) + (let* ((mustmatch (not (and (fboundp 'x-uses-old-gtk-dialog) + (x-uses-old-gtk-dialog)))) + (filename (car (find-file-read-args "Find file: " mustmatch)))) + (if mustmatch + (find-file-existing filename) + (find-file filename)))) + + (define-key menu-bar-file-menu [kill-buffer] '(menu-item "Close" kill-this-buffer :enable (kill-this-buffer-enabled-p) @@ -191,7 +202,7 @@ A large number or nil slows down menu responsiveness." :enable (menu-bar-non-minibuffer-window-p) :help "Read a directory, to operate on its files")) (define-key menu-bar-file-menu [open-file] - '(menu-item "Open File..." find-file-existing + '(menu-item "Open File..." menu-find-file-existing :enable (menu-bar-non-minibuffer-window-p) :help "Read an existing file into an Emacs buffer")) (define-key menu-bar-file-menu [new-file] |