Mercurial > hg > xemacs-beta

comparison lisp/efs/dired-xemacs.el @ 40:7e54bd776075 r19-15b103

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b103
author cvs
date Mon, 13 Aug 2007 08:54:25 +0200
parents 4103f0995bd7
children 8b8b7f3559a2
comparison
equal deleted inserted replaced
39:06f275776fba 40:7e54bd776075
1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2 ;; 2 ;;
3 ;; File: dired-xemacs.el 3 ;; File: dired-xemacs.el
4 ;; Dired Version: $Revision: 1.1 $ 4 ;; Dired Version: $Revision: 7.9 $
5 ;; RCS: 5 ;; RCS:
6 ;; Description: dired functions for XEmacs 6 ;; Description: dired functions for XEmacs
7 ;; Author: Mike Sperber <sperber@informatik.uni-tuebingen.de> 7 ;; Author: Mike Sperber <sperber@informatik.uni-tuebingen.de>
8 ;; 8 ;;
9 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 9 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
272 272
273 (defun dired-install-menubar () 273 (defun dired-install-menubar ()
274 "Installs the Dired menu at the menubar." 274 "Installs the Dired menu at the menubar."
275 (if (null dired-help-menu) 275 (if (null dired-help-menu)
276 (dired-setup-menus)) 276 (dired-setup-menus))
277 (if current-menubar 277 (if (and (featurep 'menubar) current-menubar)
278 (progn 278 (progn
279 (let ((buffer-menubar (copy-sequence current-menubar))) 279 (let ((buffer-menubar (copy-sequence current-menubar)))
280 (delete (assoc "Edit" buffer-menubar) buffer-menubar) 280 (delete (assoc "Edit" buffer-menubar) buffer-menubar)
281 (set-buffer-menubar buffer-menubar) 281 (set-buffer-menubar buffer-menubar)
282 (mapcar 282 (mapcar