diff options
| author | Jan Djärv | 2005-03-06 20:18:06 +0000 |
|---|---|---|
| committer | Jan Djärv | 2005-03-06 20:18:06 +0000 |
| commit | bf7970c5645ce057c15de09217cf8ae46a9271df (patch) | |
| tree | 504ddb8a8f483564e86e5991b49c27f48a0d7ecd | |
| parent | 0251bafb90e63cc7f428e1b91db436c32ad2677c (diff) | |
| download | emacs-bf7970c5645ce057c15de09217cf8ae46a9271df.tar.gz emacs-bf7970c5645ce057c15de09217cf8ae46a9271df.zip | |
* menu-bar.el (menu-bar-file-menu): Add the same :enable to
"Open Directory" as for "Open File".
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/menu-bar.el | 2 |
2 files changed, 7 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f41aa23695c..a3826bf9a4b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2005-03-06 Jan Dj,Ad(Brv <jan.h.d@swipnet.se> | ||
| 2 | |||
| 3 | * menu-bar.el (menu-bar-file-menu): Add the same :enable to | ||
| 4 | "Open Directory" as for "Open File". | ||
| 5 | |||
| 1 | 2005-03-06 Chong Yidong <cyd@stupidchicken.com> | 6 | 2005-03-06 Chong Yidong <cyd@stupidchicken.com> |
| 2 | 7 | ||
| 3 | * simple.el (activate-mark-hook, deactivate-mark-hook): Add defvars. | 8 | * simple.el (activate-mark-hook, deactivate-mark-hook): Add defvars. |
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 093969d5725..8dfb6a792df 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el | |||
| @@ -184,6 +184,8 @@ A large number or nil slows down menu responsiveness." | |||
| 184 | :help "Insert another file into current buffer")) | 184 | :help "Insert another file into current buffer")) |
| 185 | (define-key menu-bar-file-menu [dired] | 185 | (define-key menu-bar-file-menu [dired] |
| 186 | '(menu-item "Open Directory..." dired | 186 | '(menu-item "Open Directory..." dired |
| 187 | :enable (not (window-minibuffer-p | ||
| 188 | (frame-selected-window menu-updating-frame))) | ||
| 187 | :help "Read a directory, operate on its files")) | 189 | :help "Read a directory, operate on its files")) |
| 188 | (define-key menu-bar-file-menu [open-file] | 190 | (define-key menu-bar-file-menu [open-file] |
| 189 | '(menu-item "Open File..." find-file-existing | 191 | '(menu-item "Open File..." find-file-existing |