;; Author: Sebastian Kremer <sk@thp.uni-koeln.de>
;; Lawrence R. Dodd <dodd@roebling.poly.edu>
-;; Maintainer: nobody (want to volunteer?)
+;; Maintainer: Romain Francoise <rfrancoise@gnu.org>
;; Version: 2.37+
;; Date: 1994/08/18 19:27:42
;; Keywords: dired extensions files
-;; Copyright (C) 1993, 1994, 1997, 2001, 2003, 2004 Free Software Foundation, Inc.
+;; Copyright (C) 1993, 1994, 1997, 2001, 2002, 2003, 2004,
+;; 2005, 2006 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
(require 'dired-aux)
+(defvar vm-folder-directory)
+(eval-when-compile (require 'man))
+
;;; User-defined variables.
(defgroup dired-x nil
(define-minor-mode dired-omit-mode
"Toggle Dired-Omit mode.
With numeric ARG, enable Dired-Omit mode if ARG is positive, disable
-otherwise. Enabling and disabling is buffer-local.
+otherwise. Enabling and disabling is buffer-local.
If enabled, \"uninteresting\" files are not listed.
Uninteresting files are those whose filenames match regexp `dired-omit-files',
plus those ending with extensions in `dired-omit-extensions'."
If nil, Dired finds the directory as a subdirectory in some other buffer
if it is present as one.
-If there are several Dired buffers for a directory, the most recently
+If there are several dired buffers for a directory, the most recently
used is chosen.
Dired avoids switching to the current buffer, so that if you have
:group 'dired-x)
(defcustom dired-enable-local-variables t
- "*Control use of local-variables lists in dired.
+ "*Control use of local-variables lists in Dired.
The value can be t, nil or something else.
A value of t means local-variables lists are obeyed;
nil means they are ignored; anything else means query.
:group 'dired-x)
(defcustom dired-clean-up-buffers-too t
- "*Non-nil means offer to kill buffers visiting files and dirs deleted in dired."
+ "*Non-nil means offer to kill buffers visiting files and dirs deleted in Dired."
:type 'boolean
:group 'dired-x)
(if dired-bind-info
(define-key dired-mode-map "I" 'dired-info))
+;;; MENU BINDINGS
+
+(let ((menu-bar (lookup-key dired-mode-map [menu-bar])))
+ (let ((menu (lookup-key menu-bar [operate])))
+ (define-key-after
+ menu
+ [find-files]
+ '(menu-item
+ "Find files"
+ dired-do-find-marked-files
+ :help "Find current or marked files")
+ 'delete)
+ (define-key-after
+ menu
+ [relsymlink]
+ '(menu-item
+ "Relative symlink to..."
+ dired-do-relsymlink
+ :visible (fboundp 'make-symbolic-link)
+ :help "Make relative symbolic links for current or marked files")
+ 'symlink))
+ (let ((menu (lookup-key menu-bar [mark])))
+ (define-key-after
+ menu
+ [flag-extension]
+ '(menu-item
+ "Flag extension..."
+ dired-flag-extension
+ :help "Flag files with a certain extension for deletion")
+ 'garbage-files)
+ (define-key-after
+ menu
+ [mark-extension]
+ '(menu-item
+ "Mark extension..."
+ dired-mark-extension
+ :help "Mark files with a certain extension")
+ 'symlinks)
+ (define-key-after
+ menu
+ [mark-omitted]
+ '(menu-item
+ "Mark omitted"
+ dired-mark-omitted
+ :help "Mark files matching `dired-omit-files' and `dired-omit-extensions'")
+ 'mark-extension))
+ (let ((menu (lookup-key menu-bar [regexp])))
+ (define-key-after
+ menu
+ [relsymlink-regexp]
+ '(menu-item
+ "Relative symlink..."
+ dired-do-relsymlink-regexp
+ :visible (fboundp 'make-symbolic-link)
+ :help "Make relative symbolic links for files matching regexp")
+ 'symlink))
+ (let ((menu (lookup-key menu-bar [immediate])))
+ (define-key-after
+ menu
+ [omit-mode]
+ '(menu-item
+ "Omit mode" dired-omit-mode
+ :button (:toggle . dired-omit-mode)
+ :help "Enable or disable omitting \"uninteresting\" files")
+ 'dashes)))
+
;;; GLOBAL BINDING.
(if dired-bind-jump
(progn
(add-hook 'dired-after-readin-hook 'dired-omit-expunge)
(defun dired-extra-startup ()
- "Automatically put on `dired-mode-hook' to get extra dired features:
+ "Automatically put on `dired-mode-hook' to get extra Dired features:
\\<dired-mode-map>
\\[dired-do-run-mail]\t-- run mail on folder (see `dired-bind-vm')
\\[dired-info]\t-- run info on file
\\[dired-do-find-marked-files]\t-- visit all marked files simultaneously
\\[dired-omit-mode]\t-- toggle omitting of files
\\[dired-mark-sexp]\t-- mark by Lisp expression
- \\[dired-copy-filename-as-kill]\t-- copy the file or subdir names into the kill ring.
- \t You can feed it to other commands using \\[yank].
+ \\[dired-copy-filename-as-kill]\t-- copy the file or subdir names into the kill ring;
+ \t you can feed it to other commands using \\[yank]
For more features, see variables
;;; Mark files with some extension.
(defun dired-mark-extension (extension &optional marker-char)
"Mark all files with a certain EXTENSION for use in later commands.
-A `.' is not automatically prepended to the string entered."
+A `.' is *not* automatically prepended to the string entered."
;; EXTENSION may also be a list of extensions instead of a single one.
;; Optional MARKER-CHAR is marker to use.
(interactive "sMarking extension: \nP")
(defun dired-jump (&optional other-window)
"Jump to dired buffer corresponding to current buffer.
If in a file, dired the current directory and move to file's line.
-If in dired already, pop up a level and goto old directory's line.
+If in Dired already, pop up a level and goto old directory's line.
In case the proper dired file line cannot be found, refresh the dired
buffer and try again."
(interactive "P")
(dired-goto-file file))))))))
(defun dired-jump-other-window ()
- "Like \\[dired-jump] (dired-jump) but in other window."
+ "Like \\[dired-jump] (`dired-jump') but in other window."
(interactive)
(dired-jump t))
\f
;; sk 28-Aug-1991 09:37
(defvar dired-omit-localp 'no-dir
"The LOCALP argument `dired-omit-expunge' passes to `dired-get-filename'.
-If it is 'no-dir, omitting is much faster, but you can only match
+If it is `no-dir', omitting is much faster, but you can only match
against the non-directory part of the file name. Set it to nil if you
need to match the entire file name.")
REGEXP is matched against the entire file name.
Does not re-mark files which already have a mark.
With prefix argument, unflag all those files.
-Second optional argument LOCALP is as in `dired-get-filename'."
+Optional fourth argument LOCALP is as in `dired-get-filename'."
(interactive "P")
- (let ((dired-marker-char (if unflag-p ?\ dired-marker-char)))
+ (let ((dired-marker-char (if unflag-p ?\s dired-marker-char)))
(dired-mark-if
(and
;; not already marked
;;; For browsing `ls -lR' listings in a dired-like fashion.
-(fset 'virtual-dired 'dired-virtual)
+(defalias 'virtual-dired 'dired-virtual)
(defun dired-virtual (dirname &optional switches)
"Put this buffer into Virtual Dired mode.
If you have save a Dired buffer in a file you can use \\[dired-virtual] to
resume it in a later session.
-Type \\<dired-mode-map>\\[revert-buffer] in the
-Virtual Dired buffer and answer `y' to convert the virtual to a real
-dired buffer again. You don't have to do this, though: you can relist
-single subdirs using \\[dired-do-redisplay]."
+Type \\<dired-mode-map>\\[revert-buffer] \
+in the Virtual Dired buffer and answer `y' to convert
+the virtual to a real dired buffer again. You don't have to do this, though:
+you can relist single subdirs using \\[dired-do-redisplay]."
;; DIRNAME is the top level directory of the buffer. It will become
;; its `default-directory'. If nil, the old value of
;; decent subdir headerline:
(goto-char (point-min))
(or (looking-at dired-subdir-regexp)
- (dired-insert-headerline default-directory))
+ (insert " "
+ (directory-file-name (file-name-directory default-directory))
+ ":\n"))
(dired-mode dirname (or switches dired-listing-switches))
(setq mode-name "Virtual Dired"
revert-buffer-function 'dired-virtual-revert)
;; `buffer-contents-mode-alist'.
;; Or you use infer-mode.el and infer-mode-alist, same syntax.
(defun dired-virtual-mode ()
- "Put current buffer into virtual dired mode (see `dired-virtual').
+ "Put current buffer into Virtual Dired mode (see `dired-virtual').
Useful on `buffer-contents-mode-alist' (which see) with the regexp
\"^ \\(/[^ /]+\\)/?+:$\"
-to put saved dired buffers automatically into virtual dired mode.
+to put saved dired buffers automatically into Virtual Dired mode.
Also useful for `auto-mode-alist' (which see) like this:
default-directory))
(defun dired-smart-shell-command (cmd &optional insert)
- "Like function `shell-command', but in the current Tree Dired directory."
+ "Like function `shell-command', but in the current Virtual Dired directory."
(interactive (list (read-from-minibuffer "Shell command: "
nil nil nil 'shell-command-history)
current-prefix-arg))
(defvar dired-local-variables-file (convert-standard-filename ".dired")
"Filename, as string, containing local dired buffer variables to be hacked.
If this file found in current directory, then it will be inserted into dired
-buffer and `hack-local-variables' will be run. See Emacs Info pages for more
-information on local variables. See also `dired-enable-local-variables'.")
+buffer and `hack-local-variables' will be run. See Info node
+`(emacs)File Variables' for more information on local variables.
+See also `dired-enable-local-variables'.")
(defun dired-hack-local-variables ()
"Evaluate local variables in `dired-local-variables-file' for dired buffer."
(defun dired-omit-here-always ()
"Create `dired-local-variables-file' for omitting and reverts directory.
-Sets dired-omit-file-p to t in a local variables file that is readable by
+Sets `dired-omit-mode' to t in a local variables file that is readable by
dired."
(interactive)
(if (file-exists-p dired-local-variables-file)
" " dired-guess-shell-znew-switches))
;; The following four extensions are useful with dired-man ("N" key)
- (list "\\.[0-9]$" '(progn (require 'man)
+ (list "\\.\\(?:[0-9]\\|man\\)$" '(progn (require 'man)
(if (Man-support-local-filenames)
"man -l"
"cat * | tbl | nroff -man -h")))
- (list "\\.[0-9]\\.g?z$" '(progn (require 'man)
+ (list "\\.\\(?:[0-9]\\|man\\)\\.g?z$" '(progn (require 'man)
(if (Man-support-local-filenames)
"man -l"
"gunzip -qc * | tbl | nroff -man -h"))
\(REGEXP COMMAND...\)
-where each COMMAND can either be a string or a lisp expression that evaluates
+where each COMMAND can either be a string or a Lisp expression that evaluates
to a string. If several COMMANDs are given, the first one will be the default
and the rest will be added temporarily to the history and can be retrieved
with \\[previous-history-element] (M-p) .
(defun dired-man ()
"Run man on this file. Display old buffer if buffer name matches filename.
-Uses ../lisp/man.el of \\[manual-entry] fame."
+Uses `man.el' of \\[manual-entry] fame."
(interactive)
(require 'man)
(let* ((file (dired-get-filename))
;;; Run mail on mail folders.
-;;; (and (not (fboundp 'vm-visit-folder))
-;;; (defun vm-visit-folder (file &optional arg)
-;;; nil))
+;; Avoid compiler warning.
+(eval-when-compile
+ (when (not (fboundp 'vm-visit-folder))
+ (defun vm-visit-folder (file &optional arg)
+ nil)))
(defun dired-vm (&optional read-only)
"Run VM on this file.
(defun dired-initial-position (dirname)
"Where point should go in a new listing of DIRNAME.
Point assumed at beginning of new subdir line.
-You may redefine this function as you wish, e.g. like in dired-x.el."
+You may redefine this function as you wish, e.g. like in `dired-x.el'."
(end-of-line)
(if dired-find-subdir (dired-goto-subdir dirname)) ; new
(if dired-trivial-filenames (dired-goto-next-nontrivial-file)))
;; Karsten Wenger <kw@cis.uni-muenchen.de> fixed uid.
(setq uid (buffer-substring (+ (point) 1)
(progn (forward-word 1) (point))))
- (re-search-forward dired-move-to-filename-regexp)
+ (re-search-forward directory-listing-before-filename-regexp)
(goto-char (match-beginning 1))
(forward-char -1)
(setq size (string-to-number (buffer-substring (save-excursion
(defvar dired-x-hands-off-my-keys t
"*Non-nil means don't bind `dired-x-find-file' over `find-file' on keyboard.
Similarly for `dired-x-find-file-other-window' over `find-file-other-window'.
-If you change this variable after dired-x.el is loaded then do
+If you change this variable after `dired-x.el' is loaded then do
\\[dired-x-bind-find-file].")
;;; Bind `dired-x-find-file{-other-window}' over wherever
"Bind `dired-x-find-file' in place of `find-file' \(or reverse\).
Similarly for `dired-x-find-file-other-window' and `find-file-other-window'.
Binding direction based on `dired-x-hands-off-my-keys'.
-This function part of `after-init-hook'."
+This function is part of `after-init-hook'."
(interactive)
(if (interactive-p)
(setq dired-x-hands-off-my-keys
See the function `display-buffer'.
Identical to `find-file' except when called interactively, with a prefix arg
-\(e.g., \\[universal-argument]\), in which case it guesses filename near
-point. Useful for editing file mentioned in buffer you are viewing, or to
-test if that file exists. Use minibuffer after snatching filename."
+\(e.g., \\[universal-argument]\), in which case it guesses filename near point.
+Useful for editing file mentioned in buffer you are viewing,
+or to test if that file exists. Use minibuffer after snatching filename."
(interactive (list (read-filename-at-point "Find file: ")))
(find-file (expand-file-name filename)))
See the function `display-buffer'.
Identical to `find-file-other-window' except when called interactively, with a
-prefix arg \(e.g., \\[universal-argument]\), in which case it guesses filename
-near point. Useful for editing file mentioned in buffer you are viewing, or
-to test if that file exists. Use minibuffer after snatching filename."
+prefix arg \(e.g., \\[universal-argument]\), in which case it guesses filename near point.
+Useful for editing file mentioned in buffer you are viewing,
+or to test if that file exists. Use minibuffer after snatching filename."
(interactive (list (read-filename-at-point "Find file: ")))
(find-file-other-window (expand-file-name filename)))
"List of variables to be appended to reports sent by `dired-x-submit-report'.")
(defun dired-x-submit-report ()
- "Submit via reporter.el a bug report on program.
+ "Submit via `reporter.el' a bug report on program.
Send report on `dired-x-file' version `dired-x-version,' to
`dired-x-maintainer' at address `dired-x-help-address' listing
variables `dired-x-variable-list' in the message."
;; As Barry Warsaw would say: "This might be useful..."
(provide 'dired-x)
-;;; arch-tag: 71a43ba2-7a00-4793-a028-0613dd7765ae
+;; arch-tag: 71a43ba2-7a00-4793-a028-0613dd7765ae
;;; dired-x.el ends here