* menu-bar.el (menu-bar-file-menu): Add the same :enable to

"Open Directory" as for "Open File".

* menu-bar.el (menu-bar-file-menu): Add the same :enable to
"Open Directory" as for "Open File".
bf7970c5 · Jan Djärv · 0251bafb · bf7970c5 · bf7970c5
Commit bf7970c5 authored Mar 06, 2005 by Jan Djärv
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 0 deletions

lisp/ChangeLog lisp/ChangeLog +5 -0

lisp/menu-bar.el lisp/menu-bar.el +2 -0

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+2005-03-06  Jan Dj,Ad(Brv  <jan.h.d@swipnet.se>
+
+	* menu-bar.el (menu-bar-file-menu): Add the same :enable to
+	"Open Directory" as for "Open File".
+
 2005-03-06  Chong Yidong  <cyd@stupidchicken.com>
  
 	* simple.el (activate-mark-hook, deactivate-mark-hook): Add defvars.

--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -184,6 +184,8 @@ A large number or nil slows down menu responsiveness."
 	      :help "Insert another file into current buffer"))
 (define-key menu-bar-file-menu [dired]
  '(menu-item "Open Directory..." dired
+	      :enable (not (window-minibuffer-p
+			    (frame-selected-window menu-updating-frame)))
 	      :help "Read a directory, operate on its files"))
 (define-key menu-bar-file-menu [open-file]
  '(menu-item "Open File..." find-file-existing