Commits

Anonymous committed b773f36

Use easymenu

  • Participants
  • Parent commits 3b3d912

Comments (0)

Files changed (3)

+1998-05-05  SL Baur  <steve@altair.xemacs.org>
+
+	* dired-xemacs.el (dired-install-menubar): Use easy-menu for
+	adding menus to menubar.
+
 1998-02-17  Michael Sperber [Mr. Preprocessor]  <sperber@informatik.uni-tuebingen.de>
 
 	* diff.el: Region stays for diff-beginning-of-buffer and
 
 include Makefile.dired
 
-VERSION = 1.0
+VERSION = 1.01
 AUTHOR_VERSION = 7.9
 MAINTAINER = Mike Sperber <sperber@informatik.uni-tuebingen.de>
 PACKAGE = dired
   "Installs the Dired menu at the menubar."
   (if (null dired-help-menu)
       (dired-setup-menus))
-  (if (and (featurep 'menubar) current-menubar)
-      (progn
-	(let ((buffer-menubar (copy-sequence current-menubar)))
-	  (set-buffer-menubar buffer-menubar)
-	  (mapcar
-	   (function
-	    (lambda (pair)
-	      (let ((name (car pair))
-		    (menu (symbol-value (cdr pair))))
-		(add-submenu nil (cons name menu)))))
-	   dired-menubar-menus))
-	(add-menu-button '("Help") (list "---"))
-	(add-submenu '("Help") (cons "Dired" dired-help-menu)))))
+  (when (and (featurep 'menubar) current-menubar)
+    (mapcar
+     (function
+      (lambda (pair)
+	(let ((name (car pair))
+	      (menu (symbol-value (cdr pair))))
+	  (easy-menu-add (cons name menu)))))
+     dired-menubar-menus)
+    (unless (featurep 'infodock)
+      (add-menu-button '("Help") (list "---"))
+      (add-submenu '("Help") (cons "Dired" dired-help-menu)))))
 
 (add-hook 'dired-mode-hook 'dired-install-menubar)