2011-02-11 22:30:02 +00:00
|
|
|
|
;;; dired.el --- directory-browsing commands -*- lexical-binding: t -*-
|
1992-07-21 22:40:10 +00:00
|
|
|
|
|
2011-01-25 04:08:28 +00:00
|
|
|
|
;; Copyright (C) 1985-1986, 1992-1997, 2000-2011
|
2009-01-27 03:53:07 +00:00
|
|
|
|
;; Free Software Foundation, Inc.
|
1992-07-27 02:56:28 +00:00
|
|
|
|
|
1994-02-06 18:11:59 +00:00
|
|
|
|
;; Author: Sebastian Kremer <sk@thp.uni-koeln.de>
|
|
|
|
|
|
;; Maintainer: FSF
|
2001-08-29 15:02:01 +00:00
|
|
|
|
;; Keywords: files
|
2010-08-29 16:17:13 +00:00
|
|
|
|
;; Package: emacs
|
1992-05-30 23:52:26 +00:00
|
|
|
|
|
|
|
|
|
|
;; This file is part of GNU Emacs.
|
|
|
|
|
|
|
2008-05-06 08:06:51 +00:00
|
|
|
|
;; GNU Emacs is free software: you can redistribute it and/or modify
|
1992-05-30 23:52:26 +00:00
|
|
|
|
;; it under the terms of the GNU General Public License as published by
|
2008-05-06 08:06:51 +00:00
|
|
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
|
|
|
|
;; (at your option) any later version.
|
1992-05-30 23:52:26 +00:00
|
|
|
|
|
|
|
|
|
|
;; GNU Emacs is distributed in the hope that it will be useful,
|
|
|
|
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
|
;; GNU General Public License for more details.
|
|
|
|
|
|
|
|
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
2008-05-06 08:06:51 +00:00
|
|
|
|
;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
|
1992-05-30 23:52:26 +00:00
|
|
|
|
|
1992-07-21 22:40:10 +00:00
|
|
|
|
;;; Commentary:
|
|
|
|
|
|
|
2010-12-14 04:32:14 +00:00
|
|
|
|
;; This is a major mode for directory browsing and editing.
|
|
|
|
|
|
;; It is documented in the Emacs manual.
|
1993-03-22 03:27:18 +00:00
|
|
|
|
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;; Rewritten in 1990/1991 to add tree features, file marking and
|
|
|
|
|
|
;; sorting by Sebastian Kremer <sk@thp.uni-koeln.de>.
|
|
|
|
|
|
;; Finished up by rms in 1992.
|
|
|
|
|
|
|
1992-07-21 22:40:10 +00:00
|
|
|
|
;;; Code:
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
2008-04-30 03:40:37 +00:00
|
|
|
|
(eval-when-compile (require 'cl))
|
|
|
|
|
|
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;;; Customizable variables
|
|
|
|
|
|
|
1997-05-25 18:08:23 +00:00
|
|
|
|
(defgroup dired nil
|
|
|
|
|
|
"Directory editing."
|
2004-03-23 21:44:31 +00:00
|
|
|
|
:link '(custom-manual "(emacs)Dired")
|
2002-09-01 13:27:47 +00:00
|
|
|
|
:group 'files)
|
1997-05-25 18:08:23 +00:00
|
|
|
|
|
|
|
|
|
|
(defgroup dired-mark nil
|
2001-11-12 17:05:13 +00:00
|
|
|
|
"Handling marks in Dired."
|
1997-05-25 18:08:23 +00:00
|
|
|
|
:prefix "dired-"
|
|
|
|
|
|
:group 'dired)
|
|
|
|
|
|
|
|
|
|
|
|
|
1992-05-30 23:52:26 +00:00
|
|
|
|
;;;###autoload
|
2009-11-11 05:49:09 +00:00
|
|
|
|
(defcustom dired-listing-switches (purecopy "-al")
|
2008-12-03 05:48:14 +00:00
|
|
|
|
"Switches passed to `ls' for Dired. MUST contain the `l' option.
|
1992-06-24 02:13:56 +00:00
|
|
|
|
May contain all other options that don't contradict `-l';
|
1994-02-06 18:11:59 +00:00
|
|
|
|
may contain even `F', `b', `i' and `s'. See also the variable
|
2001-11-20 09:38:55 +00:00
|
|
|
|
`dired-ls-F-marks-symlinks' concerning the `F' switch.
|
|
|
|
|
|
On systems such as MS-DOS and MS-Windows, which use `ls' emulation in Lisp,
|
|
|
|
|
|
some of the `ls' switches are not supported; see the doc string of
|
2007-01-27 23:17:19 +00:00
|
|
|
|
`insert-directory' in `ls-lisp.el' for more details."
|
1997-05-25 18:08:23 +00:00
|
|
|
|
:type 'string
|
|
|
|
|
|
:group 'dired)
|
1992-05-30 23:52:26 +00:00
|
|
|
|
|
2010-12-14 04:32:14 +00:00
|
|
|
|
(defcustom dired-subdir-switches nil
|
2004-06-06 02:22:41 +00:00
|
|
|
|
"If non-nil, switches passed to `ls' for inserting subdirectories.
|
2010-12-14 04:32:14 +00:00
|
|
|
|
If nil, `dired-listing-switches' is used."
|
|
|
|
|
|
:group 'dired
|
|
|
|
|
|
:type '(choice (const :tag "Use dired-listing-switches" nil)
|
|
|
|
|
|
(string :tag "Switches")))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
2010-12-14 04:32:14 +00:00
|
|
|
|
(defcustom dired-chown-program
|
|
|
|
|
|
(purecopy (cond ((executable-find "chown") "chown")
|
|
|
|
|
|
((file-executable-p "/usr/sbin/chown") "/usr/sbin/chown")
|
|
|
|
|
|
((file-executable-p "/etc/chown") "/etc/chown")
|
|
|
|
|
|
(t "chown")))
|
|
|
|
|
|
"Name of chown command (usually `chown')."
|
|
|
|
|
|
:group 'dired
|
|
|
|
|
|
:type 'file)
|
|
|
|
|
|
|
|
|
|
|
|
(defcustom dired-use-ls-dired 'unspecified
|
2011-07-13 17:34:31 +00:00
|
|
|
|
"Non-nil means Dired should pass the \"--dired\" option to \"ls\".
|
2010-12-04 22:10:12 +00:00
|
|
|
|
The special value of `unspecified' means to check explicitly, and
|
|
|
|
|
|
save the result in this variable. This is performed the first
|
2011-07-13 17:34:31 +00:00
|
|
|
|
time `dired-insert-directory' is called.
|
|
|
|
|
|
|
|
|
|
|
|
Note that if you set this option to nil, either through choice or
|
|
|
|
|
|
because your \"ls\" program does not support \"--dired\", Dired
|
|
|
|
|
|
will fail to parse some \"unusual\" file names, e.g. those with leading
|
|
|
|
|
|
spaces. You might want to install ls from GNU Coreutils, which does
|
|
|
|
|
|
support this option. Alternatively, you might want to use Emacs's
|
|
|
|
|
|
own emulation of \"ls\", by using:
|
|
|
|
|
|
\(setq ls-lisp-use-insert-directory-program nil)
|
|
|
|
|
|
\(require 'ls-lisp)
|
|
|
|
|
|
This is used by default on MS Windows, which does not have an \"ls\" program.
|
|
|
|
|
|
Note that `ls-lisp' does not support as many options as GNU ls, though.
|
|
|
|
|
|
For more details, see Info node `(emacs)ls in Lisp'."
|
2010-12-14 04:32:14 +00:00
|
|
|
|
:group 'dired
|
|
|
|
|
|
:type '(choice (const :tag "Check for --dired support" unspecified)
|
|
|
|
|
|
(const :tag "Do not use --dired" nil)
|
|
|
|
|
|
(other :tag "Use --dired" t)))
|
|
|
|
|
|
|
|
|
|
|
|
(defcustom dired-chmod-program "chmod"
|
|
|
|
|
|
"Name of chmod command (usually `chmod')."
|
|
|
|
|
|
:group 'dired
|
|
|
|
|
|
:type 'file)
|
|
|
|
|
|
|
|
|
|
|
|
(defcustom dired-touch-program "touch"
|
|
|
|
|
|
"Name of touch command (usually `touch')."
|
|
|
|
|
|
:group 'dired
|
|
|
|
|
|
:type 'file)
|
2004-03-31 16:29:46 +00:00
|
|
|
|
|
1997-05-25 18:08:23 +00:00
|
|
|
|
(defcustom dired-ls-F-marks-symlinks nil
|
2008-12-03 05:48:14 +00:00
|
|
|
|
"Informs Dired about how `ls -lF' marks symbolic links.
|
1996-01-11 16:37:29 +00:00
|
|
|
|
Set this to t if `ls' (or whatever program is specified by
|
|
|
|
|
|
`insert-directory-program') with `-lF' marks the symbolic link
|
1992-06-24 02:13:56 +00:00
|
|
|
|
itself with a trailing @ (usually the case under Ultrix).
|
1992-05-30 23:52:26 +00:00
|
|
|
|
|
1992-06-24 02:13:56 +00:00
|
|
|
|
Example: if `ln -s foo bar; ls -F bar' gives `bar -> foo', set it to
|
|
|
|
|
|
nil (the default), if it gives `bar@ -> foo', set it to t.
|
|
|
|
|
|
|
|
|
|
|
|
Dired checks if there is really a @ appended. Thus, if you have a
|
|
|
|
|
|
marking `ls' program on one host and a non-marking on another host, and
|
|
|
|
|
|
don't care about symbolic links which really end in a @, you can
|
1997-05-25 18:08:23 +00:00
|
|
|
|
always set this variable to t."
|
|
|
|
|
|
:type 'boolean
|
|
|
|
|
|
:group 'dired-mark)
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
2009-11-11 19:24:20 +00:00
|
|
|
|
(defcustom dired-trivial-filenames (purecopy "^\\.\\.?$\\|^#")
|
2008-12-03 05:48:14 +00:00
|
|
|
|
"Regexp of files to skip when finding first file of a directory.
|
1992-06-24 02:13:56 +00:00
|
|
|
|
A value of nil means move to the subdir line.
|
1997-05-25 18:08:23 +00:00
|
|
|
|
A value of t means move to first file."
|
|
|
|
|
|
:type '(choice (const :tag "Move to subdir" nil)
|
|
|
|
|
|
(const :tag "Move to first" t)
|
|
|
|
|
|
regexp)
|
|
|
|
|
|
:group 'dired)
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
1997-05-25 18:08:23 +00:00
|
|
|
|
(defcustom dired-keep-marker-rename t
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;; Use t as default so that moved files "take their markers with them".
|
2008-12-03 05:48:14 +00:00
|
|
|
|
"Controls marking of renamed files.
|
1992-06-24 02:13:56 +00:00
|
|
|
|
If t, files keep their previous marks when they are renamed.
|
|
|
|
|
|
If a character, renamed files (whether previously marked or not)
|
1997-05-25 18:08:23 +00:00
|
|
|
|
are afterward marked with that character."
|
|
|
|
|
|
:type '(choice (const :tag "Keep" t)
|
|
|
|
|
|
(character :tag "Mark"))
|
|
|
|
|
|
:group 'dired-mark)
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
1997-05-25 18:08:23 +00:00
|
|
|
|
(defcustom dired-keep-marker-copy ?C
|
2008-12-03 05:48:14 +00:00
|
|
|
|
"Controls marking of copied files.
|
1992-06-24 02:13:56 +00:00
|
|
|
|
If t, copied files are marked if and as the corresponding original files were.
|
1997-05-25 18:08:23 +00:00
|
|
|
|
If a character, copied files are unconditionally marked with that character."
|
|
|
|
|
|
:type '(choice (const :tag "Keep" t)
|
|
|
|
|
|
(character :tag "Mark"))
|
|
|
|
|
|
:group 'dired-mark)
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
1997-05-25 18:08:23 +00:00
|
|
|
|
(defcustom dired-keep-marker-hardlink ?H
|
2008-12-03 05:48:14 +00:00
|
|
|
|
"Controls marking of newly made hard links.
|
1992-06-24 02:13:56 +00:00
|
|
|
|
If t, they are marked if and as the files linked to were marked.
|
1997-05-25 18:08:23 +00:00
|
|
|
|
If a character, new links are unconditionally marked with that character."
|
|
|
|
|
|
:type '(choice (const :tag "Keep" t)
|
|
|
|
|
|
(character :tag "Mark"))
|
|
|
|
|
|
:group 'dired-mark)
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
1997-05-25 18:08:23 +00:00
|
|
|
|
(defcustom dired-keep-marker-symlink ?Y
|
2008-12-03 05:48:14 +00:00
|
|
|
|
"Controls marking of newly made symbolic links.
|
1992-06-24 02:13:56 +00:00
|
|
|
|
If t, they are marked if and as the files linked to were marked.
|
1997-05-25 18:08:23 +00:00
|
|
|
|
If a character, new links are unconditionally marked with that character."
|
|
|
|
|
|
:type '(choice (const :tag "Keep" t)
|
|
|
|
|
|
(character :tag "Mark"))
|
|
|
|
|
|
:group 'dired-mark)
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
1997-05-25 18:08:23 +00:00
|
|
|
|
(defcustom dired-dwim-target nil
|
2008-12-03 05:48:14 +00:00
|
|
|
|
"If non-nil, Dired tries to guess a default target directory.
|
1992-06-24 02:13:56 +00:00
|
|
|
|
This means: if there is a dired buffer displayed in the next window,
|
|
|
|
|
|
use its current subdir, instead of the current subdir of this dired buffer.
|
|
|
|
|
|
|
1997-05-25 18:08:23 +00:00
|
|
|
|
The target is used in the prompt for file copy, rename etc."
|
|
|
|
|
|
:type 'boolean
|
|
|
|
|
|
:group 'dired)
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
1997-05-25 18:08:23 +00:00
|
|
|
|
(defcustom dired-copy-preserve-time t
|
2008-12-03 05:48:14 +00:00
|
|
|
|
"If non-nil, Dired preserves the last-modified time in a file copy.
|
1997-05-25 18:08:23 +00:00
|
|
|
|
\(This works on only some systems.)"
|
|
|
|
|
|
:type 'boolean
|
|
|
|
|
|
:group 'dired)
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
2001-12-21 19:38:25 +00:00
|
|
|
|
; These variables were deleted and the replacements are on files.el.
|
|
|
|
|
|
; We leave aliases behind for back-compatibility.
|
|
|
|
|
|
(defvaralias 'dired-free-space-program 'directory-free-space-program)
|
|
|
|
|
|
(defvaralias 'dired-free-space-args 'directory-free-space-args)
|
|
|
|
|
|
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;;; Hook variables
|
|
|
|
|
|
|
2002-02-04 19:40:08 +00:00
|
|
|
|
(defcustom dired-load-hook nil
|
(dired-align-file, dired-flag-backup-files, dired-change-marks,
dired-unmark-all-files): "?\ " -> "?\s".
(dired-listing-switches, dired-ls-F-marks-symlinks, dired-dwim-target,
dired-load-hook, dired-mode-hook, dired-directory, dired-faces, dired,
dired-revert, dired-mode, dired-summary, dired-view-file,
dired-copy-filename-as-kill, dired-delete-file, dired-no-confirm,
dired-unmark-all-marks, dired-sort-by-date-regexp, dired-sort-by-name-regexp,
dired-sort-inhibit, dired-sort-other): Fix typos in docstrings.
(dired-undo, dired-get-file-for-visit, dired-sort-toggle-or-edit):
Fix typos in message strings.
2005-07-20 14:08:39 +00:00
|
|
|
|
"Run after loading Dired.
|
2002-02-04 19:40:08 +00:00
|
|
|
|
You can customize key bindings or load extensions with this."
|
|
|
|
|
|
:group 'dired
|
|
|
|
|
|
:type 'hook)
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
2002-02-04 19:40:08 +00:00
|
|
|
|
(defcustom dired-mode-hook nil
|
(dired-align-file, dired-flag-backup-files, dired-change-marks,
dired-unmark-all-files): "?\ " -> "?\s".
(dired-listing-switches, dired-ls-F-marks-symlinks, dired-dwim-target,
dired-load-hook, dired-mode-hook, dired-directory, dired-faces, dired,
dired-revert, dired-mode, dired-summary, dired-view-file,
dired-copy-filename-as-kill, dired-delete-file, dired-no-confirm,
dired-unmark-all-marks, dired-sort-by-date-regexp, dired-sort-by-name-regexp,
dired-sort-inhibit, dired-sort-other): Fix typos in docstrings.
(dired-undo, dired-get-file-for-visit, dired-sort-toggle-or-edit):
Fix typos in message strings.
2005-07-20 14:08:39 +00:00
|
|
|
|
"Run at the very end of `dired-mode'."
|
2002-02-04 19:40:08 +00:00
|
|
|
|
:group 'dired
|
|
|
|
|
|
:type 'hook)
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
2002-02-04 19:40:08 +00:00
|
|
|
|
(defcustom dired-before-readin-hook nil
|
|
|
|
|
|
"This hook is run before a dired buffer is read in (created or reverted)."
|
|
|
|
|
|
:group 'dired
|
|
|
|
|
|
:type 'hook)
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
2002-02-04 19:40:08 +00:00
|
|
|
|
(defcustom dired-after-readin-hook nil
|
1992-06-24 02:13:56 +00:00
|
|
|
|
"Hook run after each time a file or directory is read by Dired.
|
|
|
|
|
|
After each listing of a file or directory, this hook is run
|
2002-02-04 19:40:08 +00:00
|
|
|
|
with the buffer narrowed to the listing."
|
|
|
|
|
|
:group 'dired
|
|
|
|
|
|
:type 'hook)
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;; Note this can't simply be run inside function `dired-ls' as the hook
|
|
|
|
|
|
;; functions probably depend on the dired-subdir-alist to be OK.
|
|
|
|
|
|
|
2005-05-11 19:32:51 +00:00
|
|
|
|
(defcustom dired-dnd-protocol-alist
|
|
|
|
|
|
'(("^file:///" . dired-dnd-handle-local-file)
|
|
|
|
|
|
("^file://" . dired-dnd-handle-file)
|
|
|
|
|
|
("^file:" . dired-dnd-handle-local-file))
|
|
|
|
|
|
"The functions to call when a drop in `dired-mode' is made.
|
|
|
|
|
|
See `dnd-protocol-alist' for more information. When nil, behave
|
2006-04-03 17:53:24 +00:00
|
|
|
|
as in other buffers. Changing this option is effective only for
|
2006-04-03 17:27:06 +00:00
|
|
|
|
new dired buffers."
|
2005-05-11 19:32:51 +00:00
|
|
|
|
:type '(choice (repeat (cons (regexp) (function)))
|
|
|
|
|
|
(const :tag "Behave as in other buffers" nil))
|
|
|
|
|
|
:version "22.1"
|
|
|
|
|
|
:group 'dired)
|
|
|
|
|
|
|
2002-09-16 17:13:16 +00:00
|
|
|
|
;; Internal variables
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
|
|
|
|
|
(defvar dired-marker-char ?* ; the answer is 42
|
|
|
|
|
|
;; so that you can write things like
|
|
|
|
|
|
;; (let ((dired-marker-char ?X))
|
|
|
|
|
|
;; ;; great code using X markers ...
|
|
|
|
|
|
;; )
|
|
|
|
|
|
;; For example, commands operating on two sets of files, A and B.
|
|
|
|
|
|
;; Or marking files with digits 0-9. This could implicate
|
|
|
|
|
|
;; concentric sets or an order for the marked files.
|
|
|
|
|
|
;; The code depends on dynamic scoping on the marker char.
|
|
|
|
|
|
"In Dired, the current mark character.
|
2005-07-09 20:44:05 +00:00
|
|
|
|
This is what the do-commands look for, and what the mark-commands store.")
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
|
|
|
|
|
(defvar dired-del-marker ?D
|
|
|
|
|
|
"Character used to flag files for deletion.")
|
|
|
|
|
|
|
(dired-align-file, dired-flag-backup-files, dired-change-marks,
dired-unmark-all-files): "?\ " -> "?\s".
(dired-listing-switches, dired-ls-F-marks-symlinks, dired-dwim-target,
dired-load-hook, dired-mode-hook, dired-directory, dired-faces, dired,
dired-revert, dired-mode, dired-summary, dired-view-file,
dired-copy-filename-as-kill, dired-delete-file, dired-no-confirm,
dired-unmark-all-marks, dired-sort-by-date-regexp, dired-sort-by-name-regexp,
dired-sort-inhibit, dired-sort-other): Fix typos in docstrings.
(dired-undo, dired-get-file-for-visit, dired-sort-toggle-or-edit):
Fix typos in message strings.
2005-07-20 14:08:39 +00:00
|
|
|
|
(defvar dired-shrink-to-fit t
|
1992-07-27 02:56:28 +00:00
|
|
|
|
;; I see no reason ever to make this nil -- rms.
|
|
|
|
|
|
;; (> baud-rate search-slow-speed)
|
1992-06-24 02:13:56 +00:00
|
|
|
|
"Non-nil means Dired shrinks the display buffer to fit the marked files.")
|
|
|
|
|
|
|
1992-07-27 02:56:28 +00:00
|
|
|
|
(defvar dired-file-version-alist)
|
|
|
|
|
|
|
2003-02-13 19:34:17 +00:00
|
|
|
|
;;;###autoload
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(defvar dired-directory nil
|
(dired-align-file, dired-flag-backup-files, dired-change-marks,
dired-unmark-all-files): "?\ " -> "?\s".
(dired-listing-switches, dired-ls-F-marks-symlinks, dired-dwim-target,
dired-load-hook, dired-mode-hook, dired-directory, dired-faces, dired,
dired-revert, dired-mode, dired-summary, dired-view-file,
dired-copy-filename-as-kill, dired-delete-file, dired-no-confirm,
dired-unmark-all-marks, dired-sort-by-date-regexp, dired-sort-by-name-regexp,
dired-sort-inhibit, dired-sort-other): Fix typos in docstrings.
(dired-undo, dired-get-file-for-visit, dired-sort-toggle-or-edit):
Fix typos in message strings.
2005-07-20 14:08:39 +00:00
|
|
|
|
"The directory name or wildcard spec that this dired directory lists.
|
1993-04-08 16:35:59 +00:00
|
|
|
|
Local to each dired buffer. May be a list, in which case the car is the
|
2002-09-15 01:52:54 +00:00
|
|
|
|
directory name and the cdr is the list of files to mention.
|
|
|
|
|
|
The directory name must be absolute, but need not be fully expanded.")
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
2011-03-01 03:25:24 +00:00
|
|
|
|
;; Beware of "-l;reboot" etc. See bug#3230.
|
2011-03-01 03:10:11 +00:00
|
|
|
|
(defun dired-safe-switches-p (switches)
|
2011-03-01 03:25:24 +00:00
|
|
|
|
"Return non-nil if string SWITCHES does not look risky for dired."
|
|
|
|
|
|
(or (not switches)
|
|
|
|
|
|
(and (stringp switches)
|
|
|
|
|
|
(< (length switches) 100) ; arbitrary
|
|
|
|
|
|
(string-match "\\` *-[- [:alnum:]]+\\'" switches))))
|
2011-03-01 03:10:11 +00:00
|
|
|
|
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(defvar dired-actual-switches nil
|
|
|
|
|
|
"The value of `dired-listing-switches' used to make this buffer's text.")
|
|
|
|
|
|
|
2011-03-01 03:25:24 +00:00
|
|
|
|
(put 'dired-actual-switches 'safe-local-variable 'dired-safe-switches-p)
|
|
|
|
|
|
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(defvar dired-re-inode-size "[0-9 \t]*"
|
|
|
|
|
|
"Regexp for optional initial inode and file size as made by `ls -i -s'.")
|
|
|
|
|
|
|
|
|
|
|
|
;; These regexps must be tested at beginning-of-line, but are also
|
|
|
|
|
|
;; used to search for next matches, so neither omitting "^" nor
|
|
|
|
|
|
;; replacing "^" by "\n" (to make it slightly faster) will work.
|
|
|
|
|
|
|
|
|
|
|
|
(defvar dired-re-mark "^[^ \n]")
|
|
|
|
|
|
;; "Regexp matching a marked line.
|
|
|
|
|
|
;; Important: the match ends just after the marker."
|
|
|
|
|
|
(defvar dired-re-maybe-mark "^. ")
|
1999-09-06 11:22:43 +00:00
|
|
|
|
;; The [^:] part after "d" and "l" is to avoid confusion with the
|
|
|
|
|
|
;; DOS/Windows-style drive letters in directory names, like in "d:/foo".
|
|
|
|
|
|
(defvar dired-re-dir (concat dired-re-maybe-mark dired-re-inode-size "d[^:]"))
|
|
|
|
|
|
(defvar dired-re-sym (concat dired-re-maybe-mark dired-re-inode-size "l[^:]"))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(defvar dired-re-exe;; match ls permission string of an executable file
|
|
|
|
|
|
(mapconcat (function
|
|
|
|
|
|
(lambda (x)
|
|
|
|
|
|
(concat dired-re-maybe-mark dired-re-inode-size x)))
|
|
|
|
|
|
'("-[-r][-w][xs][-r][-w].[-r][-w]."
|
|
|
|
|
|
"-[-r][-w].[-r][-w][xs][-r][-w]."
|
|
|
|
|
|
"-[-r][-w].[-r][-w].[-r][-w][xst]")
|
|
|
|
|
|
"\\|"))
|
1994-09-26 23:18:19 +00:00
|
|
|
|
(defvar dired-re-perms "[-bcdlps][-r][-w].[-r][-w].[-r][-w].")
|
2003-06-10 04:03:03 +00:00
|
|
|
|
(defvar dired-re-dot "^.* \\.\\.?/?$")
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
2004-06-06 02:22:41 +00:00
|
|
|
|
;; The subdirectory names in the next two lists are expanded.
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(defvar dired-subdir-alist nil
|
|
|
|
|
|
"Association list of subdirectories and their buffer positions.
|
|
|
|
|
|
Each subdirectory has an element: (DIRNAME . STARTMARKER).
|
1992-09-19 19:40:38 +00:00
|
|
|
|
The order of elements is the reverse of the order in the buffer.
|
|
|
|
|
|
In simple cases, this list contains one element.")
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
2004-06-06 02:22:41 +00:00
|
|
|
|
(defvar dired-switches-alist nil
|
|
|
|
|
|
"Keeps track of which switches to use for inserted subdirectories.
|
|
|
|
|
|
This is an alist of the form (SUBDIR . SWITCHES).")
|
|
|
|
|
|
(make-variable-buffer-local 'dired-switches-alist)
|
|
|
|
|
|
|
2006-01-19 17:50:15 +00:00
|
|
|
|
(defvaralias 'dired-move-to-filename-regexp
|
|
|
|
|
|
'directory-listing-before-filename-regexp)
|
|
|
|
|
|
|
1994-04-13 23:22:34 +00:00
|
|
|
|
(defvar dired-subdir-regexp "^. \\([^\n\r]+\\)\\(:\\)[\n\r]"
|
1992-06-24 02:13:56 +00:00
|
|
|
|
"Regexp matching a maybe hidden subdirectory line in `ls -lR' output.
|
|
|
|
|
|
Subexpression 1 is the subdirectory proper, no trailing colon.
|
|
|
|
|
|
The match starts at the beginning of the line and ends after the end
|
|
|
|
|
|
of the line (\\n or \\r).
|
|
|
|
|
|
Subexpression 2 must end right before the \\n or \\r.")
|
|
|
|
|
|
|
(dired-faces): New defgroup.
(dired-header, dired-mark, dired-marked, dired-flagged)
(dired-warning, dired-directory, dired-symlink, dired-ignored):
New faces.
(dired-header-face, dired-mark-face, dired-marked-face)
(dired-flagged-face, dired-warning-face, dired-directory-face)
(dired-symlink-face, dired-ignored-face): New face variables.
(dired-font-lock-keywords): Use them instead of font-lock faces.
Split the rule for dired marks into 3 separate rules: for marks,
marked file names and flagged file names.
2004-04-11 09:51:52 +00:00
|
|
|
|
(defgroup dired-faces nil
|
(dired-align-file, dired-flag-backup-files, dired-change-marks,
dired-unmark-all-files): "?\ " -> "?\s".
(dired-listing-switches, dired-ls-F-marks-symlinks, dired-dwim-target,
dired-load-hook, dired-mode-hook, dired-directory, dired-faces, dired,
dired-revert, dired-mode, dired-summary, dired-view-file,
dired-copy-filename-as-kill, dired-delete-file, dired-no-confirm,
dired-unmark-all-marks, dired-sort-by-date-regexp, dired-sort-by-name-regexp,
dired-sort-inhibit, dired-sort-other): Fix typos in docstrings.
(dired-undo, dired-get-file-for-visit, dired-sort-toggle-or-edit):
Fix typos in message strings.
2005-07-20 14:08:39 +00:00
|
|
|
|
"Faces used by Dired."
|
(dired-faces): New defgroup.
(dired-header, dired-mark, dired-marked, dired-flagged)
(dired-warning, dired-directory, dired-symlink, dired-ignored):
New faces.
(dired-header-face, dired-mark-face, dired-marked-face)
(dired-flagged-face, dired-warning-face, dired-directory-face)
(dired-symlink-face, dired-ignored-face): New face variables.
(dired-font-lock-keywords): Use them instead of font-lock faces.
Split the rule for dired marks into 3 separate rules: for marks,
marked file names and flagged file names.
2004-04-11 09:51:52 +00:00
|
|
|
|
:group 'dired
|
|
|
|
|
|
:group 'faces)
|
|
|
|
|
|
|
|
|
|
|
|
(defface dired-header
|
|
|
|
|
|
'((t (:inherit font-lock-type-face)))
|
|
|
|
|
|
"Face used for directory headers."
|
|
|
|
|
|
:group 'dired-faces
|
2005-02-09 15:50:47 +00:00
|
|
|
|
:version "22.1")
|
(dired-faces): New defgroup.
(dired-header, dired-mark, dired-marked, dired-flagged)
(dired-warning, dired-directory, dired-symlink, dired-ignored):
New faces.
(dired-header-face, dired-mark-face, dired-marked-face)
(dired-flagged-face, dired-warning-face, dired-directory-face)
(dired-symlink-face, dired-ignored-face): New face variables.
(dired-font-lock-keywords): Use them instead of font-lock faces.
Split the rule for dired marks into 3 separate rules: for marks,
marked file names and flagged file names.
2004-04-11 09:51:52 +00:00
|
|
|
|
(defvar dired-header-face 'dired-header
|
|
|
|
|
|
"Face name used for directory headers.")
|
|
|
|
|
|
|
|
|
|
|
|
(defface dired-mark
|
|
|
|
|
|
'((t (:inherit font-lock-constant-face)))
|
|
|
|
|
|
"Face used for dired marks."
|
|
|
|
|
|
:group 'dired-faces
|
2005-02-09 15:50:47 +00:00
|
|
|
|
:version "22.1")
|
(dired-faces): New defgroup.
(dired-header, dired-mark, dired-marked, dired-flagged)
(dired-warning, dired-directory, dired-symlink, dired-ignored):
New faces.
(dired-header-face, dired-mark-face, dired-marked-face)
(dired-flagged-face, dired-warning-face, dired-directory-face)
(dired-symlink-face, dired-ignored-face): New face variables.
(dired-font-lock-keywords): Use them instead of font-lock faces.
Split the rule for dired marks into 3 separate rules: for marks,
marked file names and flagged file names.
2004-04-11 09:51:52 +00:00
|
|
|
|
(defvar dired-mark-face 'dired-mark
|
|
|
|
|
|
"Face name used for dired marks.")
|
|
|
|
|
|
|
|
|
|
|
|
(defface dired-marked
|
2011-08-18 11:36:19 +00:00
|
|
|
|
'((t (:inherit warning)))
|
(dired-faces): New defgroup.
(dired-header, dired-mark, dired-marked, dired-flagged)
(dired-warning, dired-directory, dired-symlink, dired-ignored):
New faces.
(dired-header-face, dired-mark-face, dired-marked-face)
(dired-flagged-face, dired-warning-face, dired-directory-face)
(dired-symlink-face, dired-ignored-face): New face variables.
(dired-font-lock-keywords): Use them instead of font-lock faces.
Split the rule for dired marks into 3 separate rules: for marks,
marked file names and flagged file names.
2004-04-11 09:51:52 +00:00
|
|
|
|
"Face used for marked files."
|
|
|
|
|
|
:group 'dired-faces
|
2005-02-09 15:50:47 +00:00
|
|
|
|
:version "22.1")
|
(dired-faces): New defgroup.
(dired-header, dired-mark, dired-marked, dired-flagged)
(dired-warning, dired-directory, dired-symlink, dired-ignored):
New faces.
(dired-header-face, dired-mark-face, dired-marked-face)
(dired-flagged-face, dired-warning-face, dired-directory-face)
(dired-symlink-face, dired-ignored-face): New face variables.
(dired-font-lock-keywords): Use them instead of font-lock faces.
Split the rule for dired marks into 3 separate rules: for marks,
marked file names and flagged file names.
2004-04-11 09:51:52 +00:00
|
|
|
|
(defvar dired-marked-face 'dired-marked
|
|
|
|
|
|
"Face name used for marked files.")
|
|
|
|
|
|
|
|
|
|
|
|
(defface dired-flagged
|
2011-08-18 11:36:19 +00:00
|
|
|
|
'((t (:inherit error)))
|
2011-07-13 21:27:13 +00:00
|
|
|
|
"Face used for files flagged for deletion."
|
(dired-faces): New defgroup.
(dired-header, dired-mark, dired-marked, dired-flagged)
(dired-warning, dired-directory, dired-symlink, dired-ignored):
New faces.
(dired-header-face, dired-mark-face, dired-marked-face)
(dired-flagged-face, dired-warning-face, dired-directory-face)
(dired-symlink-face, dired-ignored-face): New face variables.
(dired-font-lock-keywords): Use them instead of font-lock faces.
Split the rule for dired marks into 3 separate rules: for marks,
marked file names and flagged file names.
2004-04-11 09:51:52 +00:00
|
|
|
|
:group 'dired-faces
|
2005-02-09 15:50:47 +00:00
|
|
|
|
:version "22.1")
|
(dired-faces): New defgroup.
(dired-header, dired-mark, dired-marked, dired-flagged)
(dired-warning, dired-directory, dired-symlink, dired-ignored):
New faces.
(dired-header-face, dired-mark-face, dired-marked-face)
(dired-flagged-face, dired-warning-face, dired-directory-face)
(dired-symlink-face, dired-ignored-face): New face variables.
(dired-font-lock-keywords): Use them instead of font-lock faces.
Split the rule for dired marks into 3 separate rules: for marks,
marked file names and flagged file names.
2004-04-11 09:51:52 +00:00
|
|
|
|
(defvar dired-flagged-face 'dired-flagged
|
2011-07-13 21:27:13 +00:00
|
|
|
|
"Face name used for files flagged for deletion.")
|
(dired-faces): New defgroup.
(dired-header, dired-mark, dired-marked, dired-flagged)
(dired-warning, dired-directory, dired-symlink, dired-ignored):
New faces.
(dired-header-face, dired-mark-face, dired-marked-face)
(dired-flagged-face, dired-warning-face, dired-directory-face)
(dired-symlink-face, dired-ignored-face): New face variables.
(dired-font-lock-keywords): Use them instead of font-lock faces.
Split the rule for dired marks into 3 separate rules: for marks,
marked file names and flagged file names.
2004-04-11 09:51:52 +00:00
|
|
|
|
|
|
|
|
|
|
(defface dired-warning
|
2007-09-12 08:25:24 +00:00
|
|
|
|
;; Inherit from font-lock-warning-face since with min-colors 8
|
|
|
|
|
|
;; font-lock-comment-face is not colored any more.
|
|
|
|
|
|
'((t (:inherit font-lock-warning-face)))
|
(dired-faces): New defgroup.
(dired-header, dired-mark, dired-marked, dired-flagged)
(dired-warning, dired-directory, dired-symlink, dired-ignored):
New faces.
(dired-header-face, dired-mark-face, dired-marked-face)
(dired-flagged-face, dired-warning-face, dired-directory-face)
(dired-symlink-face, dired-ignored-face): New face variables.
(dired-font-lock-keywords): Use them instead of font-lock faces.
Split the rule for dired marks into 3 separate rules: for marks,
marked file names and flagged file names.
2004-04-11 09:51:52 +00:00
|
|
|
|
"Face used to highlight a part of a buffer that needs user attention."
|
|
|
|
|
|
:group 'dired-faces
|
2005-02-09 15:50:47 +00:00
|
|
|
|
:version "22.1")
|
(dired-faces): New defgroup.
(dired-header, dired-mark, dired-marked, dired-flagged)
(dired-warning, dired-directory, dired-symlink, dired-ignored):
New faces.
(dired-header-face, dired-mark-face, dired-marked-face)
(dired-flagged-face, dired-warning-face, dired-directory-face)
(dired-symlink-face, dired-ignored-face): New face variables.
(dired-font-lock-keywords): Use them instead of font-lock faces.
Split the rule for dired marks into 3 separate rules: for marks,
marked file names and flagged file names.
2004-04-11 09:51:52 +00:00
|
|
|
|
(defvar dired-warning-face 'dired-warning
|
|
|
|
|
|
"Face name used for a part of a buffer that needs user attention.")
|
|
|
|
|
|
|
2008-03-14 01:01:36 +00:00
|
|
|
|
(defface dired-perm-write
|
2007-10-13 20:14:23 +00:00
|
|
|
|
'((((type w32 pc)) :inherit default) ;; These default to rw-rw-rw.
|
2008-03-16 16:10:01 +00:00
|
|
|
|
;; Inherit from font-lock-comment-delimiter-face since with min-colors 8
|
|
|
|
|
|
;; font-lock-comment-face is not colored any more.
|
2008-03-14 01:01:36 +00:00
|
|
|
|
(t (:inherit font-lock-comment-delimiter-face)))
|
2007-10-13 20:14:23 +00:00
|
|
|
|
"Face used to highlight permissions of group- and world-writable files."
|
|
|
|
|
|
:group 'dired-faces
|
|
|
|
|
|
:version "22.2")
|
2008-03-14 01:01:36 +00:00
|
|
|
|
(defvar dired-perm-write-face 'dired-perm-write
|
2007-10-13 20:14:23 +00:00
|
|
|
|
"Face name used for permissions of group- and world-writable files.")
|
|
|
|
|
|
|
(dired-faces): New defgroup.
(dired-header, dired-mark, dired-marked, dired-flagged)
(dired-warning, dired-directory, dired-symlink, dired-ignored):
New faces.
(dired-header-face, dired-mark-face, dired-marked-face)
(dired-flagged-face, dired-warning-face, dired-directory-face)
(dired-symlink-face, dired-ignored-face): New face variables.
(dired-font-lock-keywords): Use them instead of font-lock faces.
Split the rule for dired marks into 3 separate rules: for marks,
marked file names and flagged file names.
2004-04-11 09:51:52 +00:00
|
|
|
|
(defface dired-directory
|
|
|
|
|
|
'((t (:inherit font-lock-function-name-face)))
|
|
|
|
|
|
"Face used for subdirectories."
|
|
|
|
|
|
:group 'dired-faces
|
2005-02-09 15:50:47 +00:00
|
|
|
|
:version "22.1")
|
(dired-faces): New defgroup.
(dired-header, dired-mark, dired-marked, dired-flagged)
(dired-warning, dired-directory, dired-symlink, dired-ignored):
New faces.
(dired-header-face, dired-mark-face, dired-marked-face)
(dired-flagged-face, dired-warning-face, dired-directory-face)
(dired-symlink-face, dired-ignored-face): New face variables.
(dired-font-lock-keywords): Use them instead of font-lock faces.
Split the rule for dired marks into 3 separate rules: for marks,
marked file names and flagged file names.
2004-04-11 09:51:52 +00:00
|
|
|
|
(defvar dired-directory-face 'dired-directory
|
|
|
|
|
|
"Face name used for subdirectories.")
|
|
|
|
|
|
|
|
|
|
|
|
(defface dired-symlink
|
|
|
|
|
|
'((t (:inherit font-lock-keyword-face)))
|
|
|
|
|
|
"Face used for symbolic links."
|
|
|
|
|
|
:group 'dired-faces
|
2005-02-09 15:50:47 +00:00
|
|
|
|
:version "22.1")
|
(dired-faces): New defgroup.
(dired-header, dired-mark, dired-marked, dired-flagged)
(dired-warning, dired-directory, dired-symlink, dired-ignored):
New faces.
(dired-header-face, dired-mark-face, dired-marked-face)
(dired-flagged-face, dired-warning-face, dired-directory-face)
(dired-symlink-face, dired-ignored-face): New face variables.
(dired-font-lock-keywords): Use them instead of font-lock faces.
Split the rule for dired marks into 3 separate rules: for marks,
marked file names and flagged file names.
2004-04-11 09:51:52 +00:00
|
|
|
|
(defvar dired-symlink-face 'dired-symlink
|
|
|
|
|
|
"Face name used for symbolic links.")
|
|
|
|
|
|
|
|
|
|
|
|
(defface dired-ignored
|
2005-06-06 12:23:03 +00:00
|
|
|
|
'((t (:inherit shadow)))
|
(dired-faces): New defgroup.
(dired-header, dired-mark, dired-marked, dired-flagged)
(dired-warning, dired-directory, dired-symlink, dired-ignored):
New faces.
(dired-header-face, dired-mark-face, dired-marked-face)
(dired-flagged-face, dired-warning-face, dired-directory-face)
(dired-symlink-face, dired-ignored-face): New face variables.
(dired-font-lock-keywords): Use them instead of font-lock faces.
Split the rule for dired marks into 3 separate rules: for marks,
marked file names and flagged file names.
2004-04-11 09:51:52 +00:00
|
|
|
|
"Face used for files suffixed with `completion-ignored-extensions'."
|
|
|
|
|
|
:group 'dired-faces
|
2005-02-09 15:50:47 +00:00
|
|
|
|
:version "22.1")
|
(dired-faces): New defgroup.
(dired-header, dired-mark, dired-marked, dired-flagged)
(dired-warning, dired-directory, dired-symlink, dired-ignored):
New faces.
(dired-header-face, dired-mark-face, dired-marked-face)
(dired-flagged-face, dired-warning-face, dired-directory-face)
(dired-symlink-face, dired-ignored-face): New face variables.
(dired-font-lock-keywords): Use them instead of font-lock faces.
Split the rule for dired marks into 3 separate rules: for marks,
marked file names and flagged file names.
2004-04-11 09:51:52 +00:00
|
|
|
|
(defvar dired-ignored-face 'dired-ignored
|
|
|
|
|
|
"Face name used for files suffixed with `completion-ignored-extensions'.")
|
|
|
|
|
|
|
1996-10-23 09:26:39 +00:00
|
|
|
|
(defvar dired-font-lock-keywords
|
|
|
|
|
|
(list
|
(dired-faces): New defgroup.
(dired-header, dired-mark, dired-marked, dired-flagged)
(dired-warning, dired-directory, dired-symlink, dired-ignored):
New faces.
(dired-header-face, dired-mark-face, dired-marked-face)
(dired-flagged-face, dired-warning-face, dired-directory-face)
(dired-symlink-face, dired-ignored-face): New face variables.
(dired-font-lock-keywords): Use them instead of font-lock faces.
Split the rule for dired marks into 3 separate rules: for marks,
marked file names and flagged file names.
2004-04-11 09:51:52 +00:00
|
|
|
|
;;
|
|
|
|
|
|
;; Dired marks.
|
|
|
|
|
|
(list dired-re-mark '(0 dired-mark-face))
|
1996-10-23 09:26:39 +00:00
|
|
|
|
;;
|
|
|
|
|
|
;; We make heavy use of MATCH-ANCHORED, since the regexps don't identify the
|
|
|
|
|
|
;; file name itself. We search for Dired defined regexps, and then use the
|
|
|
|
|
|
;; Dired defined function `dired-move-to-filename' before searching for the
|
|
|
|
|
|
;; simple regexp ".+". It is that regexp which matches the file name.
|
|
|
|
|
|
;;
|
(dired-faces): New defgroup.
(dired-header, dired-mark, dired-marked, dired-flagged)
(dired-warning, dired-directory, dired-symlink, dired-ignored):
New faces.
(dired-header-face, dired-mark-face, dired-marked-face)
(dired-flagged-face, dired-warning-face, dired-directory-face)
(dired-symlink-face, dired-ignored-face): New face variables.
(dired-font-lock-keywords): Use them instead of font-lock faces.
Split the rule for dired marks into 3 separate rules: for marks,
marked file names and flagged file names.
2004-04-11 09:51:52 +00:00
|
|
|
|
;; Marked files.
|
|
|
|
|
|
(list (concat "^[" (char-to-string dired-marker-char) "]")
|
|
|
|
|
|
'(".+" (dired-move-to-filename) nil (0 dired-marked-face)))
|
|
|
|
|
|
;;
|
|
|
|
|
|
;; Flagged files.
|
|
|
|
|
|
(list (concat "^[" (char-to-string dired-del-marker) "]")
|
|
|
|
|
|
'(".+" (dired-move-to-filename) nil (0 dired-flagged-face)))
|
1997-08-12 17:21:24 +00:00
|
|
|
|
;; People who are paranoid about security would consider this more
|
|
|
|
|
|
;; important than other things such as whether it is a directory.
|
|
|
|
|
|
;; But we don't want to encourage paranoia, so our default
|
|
|
|
|
|
;; should be what's most useful for non-paranoids. -- rms.
|
|
|
|
|
|
;;; ;;
|
|
|
|
|
|
;;; ;; Files that are group or world writable.
|
|
|
|
|
|
;;; (list (concat dired-re-maybe-mark dired-re-inode-size
|
|
|
|
|
|
;;; "\\([-d]\\(....w....\\|.......w.\\)\\)")
|
(dired-faces): New defgroup.
(dired-header, dired-mark, dired-marked, dired-flagged)
(dired-warning, dired-directory, dired-symlink, dired-ignored):
New faces.
(dired-header-face, dired-mark-face, dired-marked-face)
(dired-flagged-face, dired-warning-face, dired-directory-face)
(dired-symlink-face, dired-ignored-face): New face variables.
(dired-font-lock-keywords): Use them instead of font-lock faces.
Split the rule for dired marks into 3 separate rules: for marks,
marked file names and flagged file names.
2004-04-11 09:51:52 +00:00
|
|
|
|
;;; '(1 dired-warning-face)
|
|
|
|
|
|
;;; '(".+" (dired-move-to-filename) nil (0 dired-warning-face)))
|
2004-03-23 21:44:31 +00:00
|
|
|
|
;; However, we don't need to highlight the file name, only the
|
|
|
|
|
|
;; permissions, to win generally. -- fx.
|
|
|
|
|
|
;; Fixme: we could also put text properties on the permission
|
|
|
|
|
|
;; fields with keymaps to frob the permissions, somewhat a la XEmacs.
|
|
|
|
|
|
(list (concat dired-re-maybe-mark dired-re-inode-size
|
2004-04-03 04:19:13 +00:00
|
|
|
|
"[-d]....\\(w\\)....") ; group writable
|
2008-03-14 01:01:36 +00:00
|
|
|
|
'(1 dired-perm-write-face))
|
2004-03-23 21:44:31 +00:00
|
|
|
|
(list (concat dired-re-maybe-mark dired-re-inode-size
|
2004-04-03 04:19:13 +00:00
|
|
|
|
"[-d].......\\(w\\).") ; world writable
|
2008-03-14 01:01:36 +00:00
|
|
|
|
'(1 dired-perm-write-face))
|
1996-10-23 09:26:39 +00:00
|
|
|
|
;;
|
|
|
|
|
|
;; Subdirectories.
|
|
|
|
|
|
(list dired-re-dir
|
(dired-faces): New defgroup.
(dired-header, dired-mark, dired-marked, dired-flagged)
(dired-warning, dired-directory, dired-symlink, dired-ignored):
New faces.
(dired-header-face, dired-mark-face, dired-marked-face)
(dired-flagged-face, dired-warning-face, dired-directory-face)
(dired-symlink-face, dired-ignored-face): New face variables.
(dired-font-lock-keywords): Use them instead of font-lock faces.
Split the rule for dired marks into 3 separate rules: for marks,
marked file names and flagged file names.
2004-04-11 09:51:52 +00:00
|
|
|
|
'(".+" (dired-move-to-filename) nil (0 dired-directory-face)))
|
1996-10-23 09:26:39 +00:00
|
|
|
|
;;
|
|
|
|
|
|
;; Symbolic links.
|
2003-01-31 15:24:20 +00:00
|
|
|
|
(list dired-re-sym
|
(dired-faces): New defgroup.
(dired-header, dired-mark, dired-marked, dired-flagged)
(dired-warning, dired-directory, dired-symlink, dired-ignored):
New faces.
(dired-header-face, dired-mark-face, dired-marked-face)
(dired-flagged-face, dired-warning-face, dired-directory-face)
(dired-symlink-face, dired-ignored-face): New face variables.
(dired-font-lock-keywords): Use them instead of font-lock faces.
Split the rule for dired marks into 3 separate rules: for marks,
marked file names and flagged file names.
2004-04-11 09:51:52 +00:00
|
|
|
|
'(".+" (dired-move-to-filename) nil (0 dired-symlink-face)))
|
1996-10-23 09:26:39 +00:00
|
|
|
|
;;
|
|
|
|
|
|
;; Files suffixed with `completion-ignored-extensions'.
|
|
|
|
|
|
'(eval .
|
2002-09-16 17:13:16 +00:00
|
|
|
|
;; It is quicker to first find just an extension, then go back to the
|
|
|
|
|
|
;; start of that file name. So we do this complex MATCH-ANCHORED form.
|
|
|
|
|
|
(list (concat "\\(" (regexp-opt completion-ignored-extensions) "\\|#\\)$")
|
2005-05-22 13:35:21 +00:00
|
|
|
|
'(".+" (dired-move-to-filename) nil (0 dired-ignored-face))))
|
|
|
|
|
|
;;
|
|
|
|
|
|
;; Files suffixed with `completion-ignored-extensions'
|
|
|
|
|
|
;; plus a character put in by -F.
|
|
|
|
|
|
'(eval .
|
|
|
|
|
|
(list (concat "\\(" (regexp-opt completion-ignored-extensions)
|
|
|
|
|
|
"\\|#\\)[*=|]$")
|
|
|
|
|
|
'(".+" (progn
|
|
|
|
|
|
(end-of-line)
|
|
|
|
|
|
;; If the last character is not part of the filename,
|
|
|
|
|
|
;; move back to the start of the filename
|
|
|
|
|
|
;; so it can be fontified.
|
|
|
|
|
|
;; Otherwise, leave point at the end of the line;
|
|
|
|
|
|
;; that way, nothing is fontified.
|
|
|
|
|
|
(unless (get-text-property (1- (point)) 'mouse-face)
|
|
|
|
|
|
(dired-move-to-filename)))
|
|
|
|
|
|
nil (0 dired-ignored-face))))
|
2008-12-01 16:07:19 +00:00
|
|
|
|
;;
|
|
|
|
|
|
;; Explicitly put the default face on file names ending in a colon to
|
|
|
|
|
|
;; avoid fontifying them as directory header.
|
|
|
|
|
|
(list (concat dired-re-maybe-mark dired-re-inode-size dired-re-perms ".*:$")
|
2008-12-05 13:36:46 +00:00
|
|
|
|
'(".+" (dired-move-to-filename) nil (0 'default)))
|
2008-12-01 16:07:19 +00:00
|
|
|
|
;;
|
|
|
|
|
|
;; Directory headers.
|
|
|
|
|
|
(list dired-subdir-regexp '(1 dired-header-face))
|
2005-05-22 13:35:21 +00:00
|
|
|
|
)
|
1996-10-23 09:26:39 +00:00
|
|
|
|
"Additional expressions to highlight in Dired mode.")
|
2005-07-03 16:11:04 +00:00
|
|
|
|
|
|
|
|
|
|
(defvar dnd-protocol-alist)
|
2001-01-26 13:14:11 +00:00
|
|
|
|
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;;; Macros must be defined before they are used, for the byte compiler.
|
|
|
|
|
|
|
|
|
|
|
|
(defmacro dired-mark-if (predicate msg)
|
2004-03-23 21:44:31 +00:00
|
|
|
|
"Mark all files for which PREDICATE evals to non-nil.
|
|
|
|
|
|
PREDICATE is evaluated on each line, with point at beginning of line.
|
|
|
|
|
|
MSG is a noun phrase for the type of files being marked.
|
|
|
|
|
|
It should end with a noun that can be pluralized by adding `s'.
|
|
|
|
|
|
Return value is the number of files marked, or nil if none were marked."
|
(dired-read-dir-and-switches): Ignore ., .., and
completion-ignored-extension directories if there's something else.
(dired-mark-if, dired-map-over-marks, dired-readin, dired-revert)
(dired-remember-marks, dired-undo, dired-build-subdir-alist)
(dired-internal-do-deletions, dired-mark-files-in-region, dired-mark)
(dired-toggle-marks, dired-change-marks, dired-unmark-all-files):
buffer-read-only -> inhibit-read-only.
2008-05-13 05:15:57 +00:00
|
|
|
|
`(let ((inhibit-read-only t) count)
|
2001-11-27 15:52:52 +00:00
|
|
|
|
(save-excursion
|
|
|
|
|
|
(setq count 0)
|
2011-07-02 13:28:19 +00:00
|
|
|
|
(when ,msg
|
|
|
|
|
|
(message "%s %ss%s..."
|
|
|
|
|
|
(cond ((eq dired-marker-char ?\040) "Unmarking")
|
|
|
|
|
|
((eq dired-del-marker dired-marker-char)
|
|
|
|
|
|
"Flagging")
|
|
|
|
|
|
(t "Marking"))
|
|
|
|
|
|
,msg
|
|
|
|
|
|
(if (eq dired-del-marker dired-marker-char)
|
|
|
|
|
|
" for deletion"
|
|
|
|
|
|
"")))
|
2001-11-27 15:52:52 +00:00
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
|
(while (not (eobp))
|
|
|
|
|
|
(if ,predicate
|
|
|
|
|
|
(progn
|
|
|
|
|
|
(delete-char 1)
|
|
|
|
|
|
(insert dired-marker-char)
|
|
|
|
|
|
(setq count (1+ count))))
|
|
|
|
|
|
(forward-line 1))
|
|
|
|
|
|
(if ,msg (message "%s %s%s %s%s."
|
|
|
|
|
|
count
|
|
|
|
|
|
,msg
|
|
|
|
|
|
(dired-plural-s count)
|
|
|
|
|
|
(if (eq dired-marker-char ?\040) "un" "")
|
|
|
|
|
|
(if (eq dired-marker-char dired-del-marker)
|
|
|
|
|
|
"flagged" "marked"))))
|
|
|
|
|
|
(and (> count 0) count)))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
2005-05-15 21:33:25 +00:00
|
|
|
|
(defmacro dired-map-over-marks (body arg &optional show-progress
|
|
|
|
|
|
distinguish-one-marked)
|
2000-09-29 22:24:38 +00:00
|
|
|
|
"Eval BODY with point on each marked line. Return a list of BODY's results.
|
2011-07-03 13:25:18 +00:00
|
|
|
|
If no marked file could be found, execute BODY on the current
|
|
|
|
|
|
line. ARG, if non-nil, specifies the files to use instead of the
|
|
|
|
|
|
marked files.
|
|
|
|
|
|
|
|
|
|
|
|
If ARG is an integer, use the next ARG (or previous -ARG, if
|
|
|
|
|
|
ARG<0) files. In that case, point is dragged along. This is so
|
|
|
|
|
|
that commands on the next ARG (instead of the marked) files can
|
|
|
|
|
|
be chained easily.
|
|
|
|
|
|
For any other non-nil value of ARG, use the current file.
|
|
|
|
|
|
|
2000-09-29 22:24:38 +00:00
|
|
|
|
If optional third arg SHOW-PROGRESS evaluates to non-nil,
|
2011-07-03 13:25:18 +00:00
|
|
|
|
redisplay the dired buffer after each file is processed.
|
|
|
|
|
|
|
|
|
|
|
|
No guarantee is made about the position on the marked line. BODY
|
|
|
|
|
|
must ensure this itself if it depends on this.
|
|
|
|
|
|
|
|
|
|
|
|
Search starts at the beginning of the buffer, thus the car of the
|
|
|
|
|
|
list corresponds to the line nearest to the buffer's bottom.
|
|
|
|
|
|
This is also true for (positive and negative) integer values of
|
|
|
|
|
|
ARG.
|
|
|
|
|
|
|
2005-05-15 21:33:25 +00:00
|
|
|
|
BODY should not be too long as it is expanded four times.
|
|
|
|
|
|
|
2011-07-03 13:25:18 +00:00
|
|
|
|
If DISTINGUISH-ONE-MARKED is non-nil, then if we find just one
|
|
|
|
|
|
marked file, return (t FILENAME) instead of (FILENAME)."
|
2000-09-29 22:24:38 +00:00
|
|
|
|
;;
|
|
|
|
|
|
;;Warning: BODY must not add new lines before point - this may cause an
|
|
|
|
|
|
;;endless loop.
|
|
|
|
|
|
;;This warning should not apply any longer, sk 2-Sep-1991 14:10.
|
|
|
|
|
|
`(prog1
|
(dired-read-dir-and-switches): Ignore ., .., and
completion-ignored-extension directories if there's something else.
(dired-mark-if, dired-map-over-marks, dired-readin, dired-revert)
(dired-remember-marks, dired-undo, dired-build-subdir-alist)
(dired-internal-do-deletions, dired-mark-files-in-region, dired-mark)
(dired-toggle-marks, dired-change-marks, dired-unmark-all-files):
buffer-read-only -> inhibit-read-only.
2008-05-13 05:15:57 +00:00
|
|
|
|
(let ((inhibit-read-only t) case-fold-search found results)
|
2000-09-29 22:24:38 +00:00
|
|
|
|
(if ,arg
|
|
|
|
|
|
(if (integerp ,arg)
|
|
|
|
|
|
(progn ;; no save-excursion, want to move point.
|
|
|
|
|
|
(dired-repeat-over-lines
|
|
|
|
|
|
,arg
|
|
|
|
|
|
(function (lambda ()
|
|
|
|
|
|
(if ,show-progress (sit-for 0))
|
|
|
|
|
|
(setq results (cons ,body results)))))
|
|
|
|
|
|
(if (< ,arg 0)
|
|
|
|
|
|
(nreverse results)
|
|
|
|
|
|
results))
|
|
|
|
|
|
;; non-nil, non-integer ARG means use current file:
|
|
|
|
|
|
(list ,body))
|
|
|
|
|
|
(let ((regexp (dired-marker-regexp)) next-position)
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
|
;; remember position of next marked file before BODY
|
|
|
|
|
|
;; can insert lines before the just found file,
|
|
|
|
|
|
;; confusing us by finding the same marked file again
|
|
|
|
|
|
;; and again and...
|
|
|
|
|
|
(setq next-position (and (re-search-forward regexp nil t)
|
|
|
|
|
|
(point-marker))
|
|
|
|
|
|
found (not (null next-position)))
|
|
|
|
|
|
(while next-position
|
|
|
|
|
|
(goto-char next-position)
|
|
|
|
|
|
(if ,show-progress (sit-for 0))
|
|
|
|
|
|
(setq results (cons ,body results))
|
|
|
|
|
|
;; move after last match
|
|
|
|
|
|
(goto-char next-position)
|
|
|
|
|
|
(forward-line 1)
|
|
|
|
|
|
(set-marker next-position nil)
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(setq next-position (and (re-search-forward regexp nil t)
|
2000-09-29 22:24:38 +00:00
|
|
|
|
(point-marker)))))
|
2005-05-15 21:33:25 +00:00
|
|
|
|
(if (and ,distinguish-one-marked (= (length results) 1))
|
|
|
|
|
|
(setq results (cons t results)))
|
2000-09-29 22:24:38 +00:00
|
|
|
|
(if found
|
|
|
|
|
|
results
|
|
|
|
|
|
(list ,body)))))
|
|
|
|
|
|
;; save-excursion loses, again
|
|
|
|
|
|
(dired-move-to-filename)))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
2005-05-15 21:33:25 +00:00
|
|
|
|
(defun dired-get-marked-files (&optional localp arg filter distinguish-one-marked)
|
1992-06-24 02:13:56 +00:00
|
|
|
|
"Return the marked files' names as list of strings.
|
|
|
|
|
|
The list is in the same order as the buffer, that is, the car is the
|
|
|
|
|
|
first marked file.
|
2002-03-29 14:43:14 +00:00
|
|
|
|
Values returned are normally absolute file names.
|
1992-06-24 02:13:56 +00:00
|
|
|
|
Optional arg LOCALP as in `dired-get-filename'.
|
2008-10-22 20:37:22 +00:00
|
|
|
|
Optional second argument ARG, if non-nil, specifies files near
|
|
|
|
|
|
point instead of marked files. It usually comes from the prefix
|
|
|
|
|
|
argument.
|
|
|
|
|
|
If ARG is an integer, use the next ARG files.
|
|
|
|
|
|
Any other non-nil value means to use the current file instead.
|
2002-03-29 14:43:14 +00:00
|
|
|
|
Optional third argument FILTER, if non-nil, is a function to select
|
2005-05-15 21:33:25 +00:00
|
|
|
|
some of the files--those for which (funcall FILTER FILENAME) is non-nil.
|
|
|
|
|
|
|
|
|
|
|
|
If DISTINGUISH-ONE-MARKED is non-nil, then if we find just one marked file,
|
|
|
|
|
|
return (t FILENAME) instead of (FILENAME).
|
|
|
|
|
|
Don't use that together with FILTER."
|
|
|
|
|
|
(let* ((all-of-them
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(dired-map-over-marks
|
|
|
|
|
|
(dired-get-filename localp)
|
|
|
|
|
|
arg nil distinguish-one-marked)))
|
|
|
|
|
|
result)
|
2002-03-29 14:43:14 +00:00
|
|
|
|
(if (not filter)
|
2005-05-15 21:33:25 +00:00
|
|
|
|
(if (and distinguish-one-marked (eq (car all-of-them) t))
|
|
|
|
|
|
all-of-them
|
|
|
|
|
|
(nreverse all-of-them))
|
2002-03-29 14:43:14 +00:00
|
|
|
|
(dolist (file all-of-them)
|
|
|
|
|
|
(if (funcall filter file)
|
|
|
|
|
|
(push file result)))
|
|
|
|
|
|
result)))
|
2001-01-26 13:14:11 +00:00
|
|
|
|
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;; The dired command
|
|
|
|
|
|
|
|
|
|
|
|
(defun dired-read-dir-and-switches (str)
|
|
|
|
|
|
;; For use in interactive.
|
2008-11-08 14:24:54 +00:00
|
|
|
|
(reverse (list
|
|
|
|
|
|
(if current-prefix-arg
|
|
|
|
|
|
(read-string "Dired listing switches: "
|
|
|
|
|
|
dired-listing-switches))
|
2011-03-05 21:56:00 +00:00
|
|
|
|
;; If a dialog is used, call `read-directory-name' so the
|
|
|
|
|
|
;; dialog code knows we want directories. Some dialogs
|
|
|
|
|
|
;; can only select directories or files when popped up,
|
|
|
|
|
|
;; not both. If no dialog is used, call `read-file-name'
|
|
|
|
|
|
;; because the user may want completion of file names for
|
|
|
|
|
|
;; use in a wildcard pattern.
|
2008-11-08 14:24:54 +00:00
|
|
|
|
(if (next-read-file-uses-dialog-p)
|
|
|
|
|
|
(read-directory-name (format "Dired %s(directory): " str)
|
|
|
|
|
|
nil default-directory nil)
|
2009-11-25 17:11:29 +00:00
|
|
|
|
(read-file-name (format "Dired %s(directory): " str)
|
|
|
|
|
|
nil default-directory nil)))))
|
2008-11-08 14:24:54 +00:00
|
|
|
|
|
|
|
|
|
|
;; We want to switch to a more sophisticated version of
|
|
|
|
|
|
;; dired-read-dir-and-switches like the following, if there is a way
|
|
|
|
|
|
;; to make it more intuitive. See bug#1285.
|
|
|
|
|
|
|
|
|
|
|
|
;; (defun dired-read-dir-and-switches (str)
|
|
|
|
|
|
;; ;; For use in interactive.
|
|
|
|
|
|
;; (reverse
|
|
|
|
|
|
;; (list
|
|
|
|
|
|
;; (if current-prefix-arg
|
|
|
|
|
|
;; (read-string "Dired listing switches: "
|
|
|
|
|
|
;; dired-listing-switches))
|
|
|
|
|
|
;; ;; If a dialog is about to be used, call read-directory-name so
|
|
|
|
|
|
;; ;; the dialog code knows we want directories. Some dialogs can
|
|
|
|
|
|
;; ;; only select directories or files when popped up, not both.
|
|
|
|
|
|
;; (if (next-read-file-uses-dialog-p)
|
|
|
|
|
|
;; (read-directory-name (format "Dired %s(directory): " str)
|
|
|
|
|
|
;; nil default-directory nil)
|
|
|
|
|
|
;; (let ((cie ()))
|
|
|
|
|
|
;; (dolist (ext completion-ignored-extensions)
|
|
|
|
|
|
;; (if (eq ?/ (aref ext (1- (length ext)))) (push ext cie)))
|
|
|
|
|
|
;; (setq cie (concat (regexp-opt cie "\\(?:") "\\'"))
|
|
|
|
|
|
;; (lexical-let* ((default (and buffer-file-name
|
|
|
|
|
|
;; (abbreviate-file-name buffer-file-name)))
|
|
|
|
|
|
;; (cie cie)
|
|
|
|
|
|
;; (completion-table
|
|
|
|
|
|
;; ;; We need a mix of read-file-name and
|
|
|
|
|
|
;; ;; read-directory-name so that completion to directories
|
|
|
|
|
|
;; ;; is preferred, but if the user wants to enter a global
|
|
|
|
|
|
;; ;; pattern, he can still use completion on filenames to
|
|
|
|
|
|
;; ;; help him write the pattern.
|
|
|
|
|
|
;; ;; Essentially, we want to use
|
|
|
|
|
|
;; ;; (completion-table-with-predicate
|
|
|
|
|
|
;; ;; 'read-file-name-internal 'file-directory-p nil)
|
|
|
|
|
|
;; ;; but that doesn't work because read-file-name-internal
|
|
|
|
|
|
;; ;; does not obey its `predicate' argument.
|
|
|
|
|
|
;; (completion-table-in-turn
|
|
|
|
|
|
;; (lambda (str pred action)
|
|
|
|
|
|
;; (let ((read-file-name-predicate
|
|
|
|
|
|
;; (lambda (f)
|
|
|
|
|
|
;; (and (not (member f '("./" "../")))
|
|
|
|
|
|
;; ;; Hack! Faster than file-directory-p!
|
|
|
|
|
|
;; (eq (aref f (1- (length f))) ?/)
|
|
|
|
|
|
;; (not (string-match cie f))))))
|
|
|
|
|
|
;; (complete-with-action
|
|
|
|
|
|
;; action 'read-file-name-internal str nil)))
|
|
|
|
|
|
;; 'read-file-name-internal)))
|
|
|
|
|
|
;; (minibuffer-with-setup-hook
|
|
|
|
|
|
;; (lambda ()
|
|
|
|
|
|
;; (setq minibuffer-default default)
|
|
|
|
|
|
;; (setq minibuffer-completion-table completion-table))
|
|
|
|
|
|
;; (read-file-name (format "Dired %s(directory): " str)
|
|
|
|
|
|
;; nil default-directory nil))))))))
|
1992-05-30 23:52:26 +00:00
|
|
|
|
|
2009-11-25 17:11:29 +00:00
|
|
|
|
(defun dired-file-name-at-point ()
|
|
|
|
|
|
"Try to get a file name at point in the current dired buffer.
|
|
|
|
|
|
This hook is inteneded to be put in `file-name-at-point-functions'."
|
|
|
|
|
|
(let ((filename (dired-get-filename nil t)))
|
|
|
|
|
|
(when filename
|
|
|
|
|
|
(if (file-directory-p filename)
|
|
|
|
|
|
(file-name-as-directory (abbreviate-file-name filename))
|
|
|
|
|
|
(abbreviate-file-name filename)))))
|
|
|
|
|
|
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;;;###autoload (define-key ctl-x-map "d" 'dired)
|
1992-05-30 23:52:26 +00:00
|
|
|
|
;;;###autoload
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(defun dired (dirname &optional switches)
|
1992-05-30 23:52:26 +00:00
|
|
|
|
"\"Edit\" directory DIRNAME--delete, rename, print, etc. some files in it.
|
1992-06-24 02:13:56 +00:00
|
|
|
|
Optional second argument SWITCHES specifies the `ls' options used.
|
|
|
|
|
|
\(Interactively, use a prefix argument to be able to specify SWITCHES.)
|
|
|
|
|
|
Dired displays a list of files in DIRNAME (which may also have
|
1993-04-08 16:35:59 +00:00
|
|
|
|
shell wildcards appended to select certain files). If DIRNAME is a cons,
|
1995-12-29 17:59:11 +00:00
|
|
|
|
its first element is taken as the directory name and the rest as an explicit
|
1993-04-08 16:35:59 +00:00
|
|
|
|
list of files to make directory entries for.
|
1992-07-21 22:40:10 +00:00
|
|
|
|
\\<dired-mode-map>\
|
1993-04-08 16:35:59 +00:00
|
|
|
|
You can flag files for deletion with \\[dired-flag-file-deletion] and then
|
|
|
|
|
|
delete them by typing \\[dired-do-flagged-delete].
|
(dired-align-file, dired-flag-backup-files, dired-change-marks,
dired-unmark-all-files): "?\ " -> "?\s".
(dired-listing-switches, dired-ls-F-marks-symlinks, dired-dwim-target,
dired-load-hook, dired-mode-hook, dired-directory, dired-faces, dired,
dired-revert, dired-mode, dired-summary, dired-view-file,
dired-copy-filename-as-kill, dired-delete-file, dired-no-confirm,
dired-unmark-all-marks, dired-sort-by-date-regexp, dired-sort-by-name-regexp,
dired-sort-inhibit, dired-sort-other): Fix typos in docstrings.
(dired-undo, dired-get-file-for-visit, dired-sort-toggle-or-edit):
Fix typos in message strings.
2005-07-20 14:08:39 +00:00
|
|
|
|
Type \\[describe-mode] after entering Dired for more info.
|
1992-05-30 23:52:26 +00:00
|
|
|
|
|
1992-06-24 02:13:56 +00:00
|
|
|
|
If DIRNAME is already in a dired buffer, that buffer is used without refresh."
|
|
|
|
|
|
;; Cannot use (interactive "D") because of wildcards.
|
|
|
|
|
|
(interactive (dired-read-dir-and-switches ""))
|
|
|
|
|
|
(switch-to-buffer (dired-noselect dirname switches)))
|
|
|
|
|
|
|
|
|
|
|
|
;;;###autoload (define-key ctl-x-4-map "d" 'dired-other-window)
|
1992-05-30 23:52:26 +00:00
|
|
|
|
;;;###autoload
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(defun dired-other-window (dirname &optional switches)
|
1992-05-30 23:52:26 +00:00
|
|
|
|
"\"Edit\" directory DIRNAME. Like `dired' but selects in another window."
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(interactive (dired-read-dir-and-switches "in other window "))
|
|
|
|
|
|
(switch-to-buffer-other-window (dired-noselect dirname switches)))
|
1992-05-30 23:52:26 +00:00
|
|
|
|
|
1993-05-26 22:52:13 +00:00
|
|
|
|
;;;###autoload (define-key ctl-x-5-map "d" 'dired-other-frame)
|
|
|
|
|
|
;;;###autoload
|
|
|
|
|
|
(defun dired-other-frame (dirname &optional switches)
|
|
|
|
|
|
"\"Edit\" directory DIRNAME. Like `dired' but makes a new frame."
|
|
|
|
|
|
(interactive (dired-read-dir-and-switches "in other frame "))
|
|
|
|
|
|
(switch-to-buffer-other-frame (dired-noselect dirname switches)))
|
|
|
|
|
|
|
1992-05-30 23:52:26 +00:00
|
|
|
|
;;;###autoload
|
1993-04-08 16:35:59 +00:00
|
|
|
|
(defun dired-noselect (dir-or-list &optional switches)
|
1992-05-30 23:52:26 +00:00
|
|
|
|
"Like `dired' but returns the dired buffer as value, does not select it."
|
1993-04-08 16:35:59 +00:00
|
|
|
|
(or dir-or-list (setq dir-or-list default-directory))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;; This loses the distinction between "/foo/*/" and "/foo/*" that
|
|
|
|
|
|
;; some shells make:
|
1997-04-13 04:26:38 +00:00
|
|
|
|
(let (dirname initially-was-dirname)
|
1993-04-08 16:35:59 +00:00
|
|
|
|
(if (consp dir-or-list)
|
|
|
|
|
|
(setq dirname (car dir-or-list))
|
|
|
|
|
|
(setq dirname dir-or-list))
|
1997-04-13 04:26:38 +00:00
|
|
|
|
(setq initially-was-dirname
|
|
|
|
|
|
(string= (file-name-as-directory dirname) dirname))
|
1994-07-31 21:42:11 +00:00
|
|
|
|
(setq dirname (abbreviate-file-name
|
|
|
|
|
|
(expand-file-name (directory-file-name dirname))))
|
1996-04-05 19:11:05 +00:00
|
|
|
|
(if find-file-visit-truename
|
|
|
|
|
|
(setq dirname (file-truename dirname)))
|
1997-04-13 04:26:38 +00:00
|
|
|
|
;; If the argument was syntactically a directory name not a file name,
|
|
|
|
|
|
;; or if it happens to name a file that is a directory,
|
|
|
|
|
|
;; convert it syntactically to a directory name.
|
|
|
|
|
|
;; The reason for checking initially-was-dirname
|
|
|
|
|
|
;; and not just file-directory-p
|
|
|
|
|
|
;; is that file-directory-p is slow over ftp.
|
|
|
|
|
|
(if (or initially-was-dirname (file-directory-p dirname))
|
|
|
|
|
|
(setq dirname (file-name-as-directory dirname)))
|
1993-04-08 16:35:59 +00:00
|
|
|
|
(if (consp dir-or-list)
|
|
|
|
|
|
(setq dir-or-list (cons dirname (cdr dir-or-list)))
|
|
|
|
|
|
(setq dir-or-list dirname))
|
|
|
|
|
|
(dired-internal-noselect dir-or-list switches)))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
2004-03-23 05:20:11 +00:00
|
|
|
|
;; The following is an internal dired function. It returns non-nil if
|
|
|
|
|
|
;; the directory visited by the current dired buffer has changed on
|
|
|
|
|
|
;; disk. DIRNAME should be the directory name of that directory.
|
|
|
|
|
|
(defun dired-directory-changed-p (dirname)
|
|
|
|
|
|
(not (let ((attributes (file-attributes dirname))
|
2004-03-25 04:21:24 +00:00
|
|
|
|
(modtime (visited-file-modtime)))
|
|
|
|
|
|
(or (eq modtime 0)
|
|
|
|
|
|
(not (eq (car attributes) t))
|
2004-07-14 22:59:08 +00:00
|
|
|
|
(equal (nth 5 attributes) modtime)))))
|
2004-03-23 05:20:11 +00:00
|
|
|
|
|
|
|
|
|
|
(defun dired-buffer-stale-p (&optional noconfirm)
|
|
|
|
|
|
"Return non-nil if current dired buffer needs updating.
|
|
|
|
|
|
If NOCONFIRM is non-nil, then this function always returns nil
|
|
|
|
|
|
for a remote directory. This feature is used by Auto Revert Mode."
|
|
|
|
|
|
(let ((dirname
|
|
|
|
|
|
(if (consp dired-directory) (car dired-directory) dired-directory)))
|
|
|
|
|
|
(and (stringp dirname)
|
|
|
|
|
|
(not (when noconfirm (file-remote-p dirname)))
|
|
|
|
|
|
(file-readable-p dirname)
|
2008-08-23 08:03:25 +00:00
|
|
|
|
;; Do not auto-revert when the dired buffer can be currently
|
|
|
|
|
|
;; written by the user as in `wdired-mode'.
|
|
|
|
|
|
buffer-read-only
|
2004-03-23 05:20:11 +00:00
|
|
|
|
(dired-directory-changed-p dirname))))
|
|
|
|
|
|
|
2009-12-04 21:45:29 +00:00
|
|
|
|
(defcustom dired-auto-revert-buffer nil
|
|
|
|
|
|
"Automatically revert dired buffer on revisiting.
|
|
|
|
|
|
If t, revisiting an existing dired buffer automatically reverts it.
|
|
|
|
|
|
If its value is a function, call this function with the directory
|
|
|
|
|
|
name as single argument and revert the buffer if it returns non-nil.
|
|
|
|
|
|
Otherwise, a message offering to revert the changed dired buffer
|
|
|
|
|
|
is displayed.
|
|
|
|
|
|
Note that this is not the same as `auto-revert-mode' that
|
|
|
|
|
|
periodically reverts at specified time intervals."
|
|
|
|
|
|
:type '(choice
|
|
|
|
|
|
(const :tag "Don't revert" nil)
|
|
|
|
|
|
(const :tag "Always revert visited dired buffer" t)
|
|
|
|
|
|
(const :tag "Revert changed dired buffer" dired-directory-changed-p)
|
|
|
|
|
|
(function :tag "Predicate function"))
|
|
|
|
|
|
:group 'dired
|
|
|
|
|
|
:version "23.2")
|
|
|
|
|
|
|
1995-09-03 17:34:56 +00:00
|
|
|
|
(defun dired-internal-noselect (dir-or-list &optional switches mode)
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;; If there is an existing dired buffer for DIRNAME, just leave
|
|
|
|
|
|
;; buffer as it is (don't even call dired-revert).
|
|
|
|
|
|
;; This saves time especially for deep trees or with ange-ftp.
|
2004-03-23 05:20:11 +00:00
|
|
|
|
;; The user can type `g' easily, and it is more consistent with find-file.
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;; But if SWITCHES are given they are probably different from the
|
|
|
|
|
|
;; buffer's old value, so call dired-sort-other, which does
|
|
|
|
|
|
;; revert the buffer.
|
|
|
|
|
|
;; A pity we can't possibly do "Directory has changed - refresh? "
|
|
|
|
|
|
;; like find-file does.
|
1995-09-03 17:34:56 +00:00
|
|
|
|
;; Optional argument MODE is passed to dired-find-buffer-nocreate,
|
|
|
|
|
|
;; see there.
|
2009-08-28 16:29:25 +00:00
|
|
|
|
(let* ((old-buf (current-buffer))
|
|
|
|
|
|
(dirname (if (consp dir-or-list) (car dir-or-list) dir-or-list))
|
|
|
|
|
|
;; Look for an existing buffer.
|
|
|
|
|
|
(buffer (dired-find-buffer-nocreate dirname mode))
|
|
|
|
|
|
;; Note that buffer already is in dired-mode, if found.
|
|
|
|
|
|
(new-buffer-p (null buffer)))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(or buffer
|
2009-08-28 16:29:25 +00:00
|
|
|
|
(setq buffer (create-file-buffer (directory-file-name dirname))))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(set-buffer buffer)
|
2004-03-23 05:20:11 +00:00
|
|
|
|
(if (not new-buffer-p) ; existing buffer ...
|
|
|
|
|
|
(cond (switches ; ... but new switches
|
1995-09-08 20:38:17 +00:00
|
|
|
|
;; file list may have changed
|
2002-09-15 01:52:54 +00:00
|
|
|
|
(setq dired-directory dir-or-list)
|
1995-09-08 20:38:17 +00:00
|
|
|
|
;; this calls dired-revert
|
2003-01-31 15:24:20 +00:00
|
|
|
|
(dired-sort-other switches))
|
2009-12-04 21:45:29 +00:00
|
|
|
|
;; Always revert regardless of whether it has changed or not.
|
|
|
|
|
|
((eq dired-auto-revert-buffer t)
|
|
|
|
|
|
(revert-buffer))
|
|
|
|
|
|
;; Revert when predicate function returns non-nil.
|
|
|
|
|
|
((functionp dired-auto-revert-buffer)
|
|
|
|
|
|
(when (funcall dired-auto-revert-buffer dirname)
|
|
|
|
|
|
(revert-buffer)
|
|
|
|
|
|
(message "Changed directory automatically updated")))
|
1995-09-08 20:38:17 +00:00
|
|
|
|
;; If directory has changed on disk, offer to revert.
|
2004-03-23 05:20:11 +00:00
|
|
|
|
((when (dired-directory-changed-p dirname)
|
1996-01-25 00:52:48 +00:00
|
|
|
|
(message "%s"
|
1996-01-25 07:09:48 +00:00
|
|
|
|
(substitute-command-keys
|
|
|
|
|
|
"Directory has changed on disk; type \\[revert-buffer] to update Dired")))))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;; Else a new buffer
|
1993-11-22 09:29:51 +00:00
|
|
|
|
(setq default-directory
|
1997-04-13 20:19:19 +00:00
|
|
|
|
;; We can do this unconditionally
|
|
|
|
|
|
;; because dired-noselect ensures that the name
|
|
|
|
|
|
;; is passed in directory name syntax
|
|
|
|
|
|
;; if it was the name of a directory at all.
|
|
|
|
|
|
(file-name-directory dirname))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(or switches (setq switches dired-listing-switches))
|
1998-06-05 12:46:02 +00:00
|
|
|
|
(if mode (funcall mode)
|
2002-09-15 01:52:54 +00:00
|
|
|
|
(dired-mode dir-or-list switches))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;; default-directory and dired-actual-switches are set now
|
|
|
|
|
|
;; (buffer-local), so we can call dired-readin:
|
|
|
|
|
|
(let ((failed t))
|
|
|
|
|
|
(unwind-protect
|
2002-09-15 01:52:54 +00:00
|
|
|
|
(progn (dired-readin)
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(setq failed nil))
|
|
|
|
|
|
;; dired-readin can fail if parent directories are inaccessible.
|
|
|
|
|
|
;; Don't leave an empty buffer around in that case.
|
|
|
|
|
|
(if failed (kill-buffer buffer))))
|
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
|
(dired-initial-position dirname))
|
|
|
|
|
|
(set-buffer old-buf)
|
1992-05-30 23:52:26 +00:00
|
|
|
|
buffer))
|
|
|
|
|
|
|
2000-07-07 13:00:21 +00:00
|
|
|
|
(defvar dired-buffers nil
|
|
|
|
|
|
;; Enlarged by dired-advertise
|
|
|
|
|
|
;; Queried by function dired-buffers-for-dir. When this detects a
|
|
|
|
|
|
;; killed buffer, it is removed from this list.
|
|
|
|
|
|
"Alist of expanded directories and their associated dired buffers.")
|
|
|
|
|
|
|
2011-02-19 20:36:54 +00:00
|
|
|
|
(defvar dired-find-subdir)
|
|
|
|
|
|
|
|
|
|
|
|
;; FIXME add a doc-string, and document dired-x extensions.
|
1995-09-03 17:34:56 +00:00
|
|
|
|
(defun dired-find-buffer-nocreate (dirname &optional mode)
|
|
|
|
|
|
;; This differs from dired-buffers-for-dir in that it does not consider
|
|
|
|
|
|
;; subdirs of default-directory and searches for the first match only.
|
|
|
|
|
|
;; Also, the major mode must be MODE.
|
2011-02-19 20:36:54 +00:00
|
|
|
|
(if (and (featurep 'dired-x)
|
|
|
|
|
|
dired-find-subdir
|
|
|
|
|
|
;; Don't try to find a wildcard as a subdirectory.
|
|
|
|
|
|
(string-equal dirname (file-name-directory dirname)))
|
|
|
|
|
|
(let* ((cur-buf (current-buffer))
|
|
|
|
|
|
(buffers (nreverse
|
|
|
|
|
|
(dired-buffers-for-dir (expand-file-name dirname))))
|
|
|
|
|
|
(cur-buf-matches (and (memq cur-buf buffers)
|
|
|
|
|
|
;; Wildcards must match, too:
|
|
|
|
|
|
(equal dired-directory dirname))))
|
|
|
|
|
|
;; We don't want to switch to the same buffer---
|
|
|
|
|
|
(setq buffers (delq cur-buf buffers))
|
|
|
|
|
|
(or (car (sort buffers #'dired-buffer-more-recently-used-p))
|
|
|
|
|
|
;; ---unless it's the only possibility:
|
|
|
|
|
|
(and cur-buf-matches cur-buf)))
|
|
|
|
|
|
;; No dired-x, or dired-find-subdir nil.
|
|
|
|
|
|
(setq dirname (expand-file-name dirname))
|
|
|
|
|
|
(let (found (blist dired-buffers)) ; was (buffer-list)
|
|
|
|
|
|
(or mode (setq mode 'dired-mode))
|
|
|
|
|
|
(while blist
|
|
|
|
|
|
(if (null (buffer-name (cdr (car blist))))
|
|
|
|
|
|
(setq blist (cdr blist))
|
|
|
|
|
|
(with-current-buffer (cdr (car blist))
|
|
|
|
|
|
(if (and (eq major-mode mode)
|
|
|
|
|
|
dired-directory ;; nil during find-alternate-file
|
|
|
|
|
|
(equal dirname
|
|
|
|
|
|
(expand-file-name
|
|
|
|
|
|
(if (consp dired-directory)
|
|
|
|
|
|
(car dired-directory)
|
|
|
|
|
|
dired-directory))))
|
|
|
|
|
|
(setq found (cdr (car blist))
|
|
|
|
|
|
blist nil)
|
|
|
|
|
|
(setq blist (cdr blist))))))
|
|
|
|
|
|
found)))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
2001-01-26 13:14:11 +00:00
|
|
|
|
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;; Read in a new dired buffer
|
|
|
|
|
|
|
2002-09-15 01:52:54 +00:00
|
|
|
|
(defun dired-readin ()
|
2004-03-23 21:44:31 +00:00
|
|
|
|
"Read in a new dired buffer.
|
2004-11-22 05:07:07 +00:00
|
|
|
|
Differs from `dired-insert-subdir' in that it accepts
|
2004-03-23 21:44:31 +00:00
|
|
|
|
wildcards, erases the buffer, and builds the subdir-alist anew
|
|
|
|
|
|
\(including making it buffer-local and clearing it first)."
|
|
|
|
|
|
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;; default-directory and dired-actual-switches must be buffer-local
|
|
|
|
|
|
;; and initialized by now.
|
2008-12-22 19:28:44 +00:00
|
|
|
|
(let (dirname
|
|
|
|
|
|
;; This makes readin much much faster.
|
|
|
|
|
|
;; In particular, it prevents the font lock hook from running
|
|
|
|
|
|
;; until the directory is all read in.
|
|
|
|
|
|
(inhibit-modification-hooks t))
|
2002-09-15 01:52:54 +00:00
|
|
|
|
(if (consp dired-directory)
|
|
|
|
|
|
(setq dirname (car dired-directory))
|
|
|
|
|
|
(setq dirname dired-directory))
|
1993-04-08 16:35:59 +00:00
|
|
|
|
(setq dirname (expand-file-name dirname))
|
|
|
|
|
|
(save-excursion
|
2002-09-15 01:52:54 +00:00
|
|
|
|
;; This hook which may want to modify dired-actual-switches
|
|
|
|
|
|
;; based on dired-directory, e.g. with ange-ftp to a SysV host
|
|
|
|
|
|
;; where ls won't understand -Al switches.
|
|
|
|
|
|
(run-hooks 'dired-before-readin-hook)
|
|
|
|
|
|
(if (consp buffer-undo-list)
|
|
|
|
|
|
(setq buffer-undo-list nil))
|
2006-11-06 15:50:06 +00:00
|
|
|
|
(make-local-variable 'file-name-coding-system)
|
|
|
|
|
|
(setq file-name-coding-system
|
|
|
|
|
|
(or coding-system-for-read file-name-coding-system))
|
(dired-read-dir-and-switches): Ignore ., .., and
completion-ignored-extension directories if there's something else.
(dired-mark-if, dired-map-over-marks, dired-readin, dired-revert)
(dired-remember-marks, dired-undo, dired-build-subdir-alist)
(dired-internal-do-deletions, dired-mark-files-in-region, dired-mark)
(dired-toggle-marks, dired-change-marks, dired-unmark-all-files):
buffer-read-only -> inhibit-read-only.
2008-05-13 05:15:57 +00:00
|
|
|
|
(let ((inhibit-read-only t)
|
2002-09-15 01:52:54 +00:00
|
|
|
|
;; Don't make undo entries for readin.
|
|
|
|
|
|
(buffer-undo-list t))
|
1993-04-08 16:35:59 +00:00
|
|
|
|
(widen)
|
|
|
|
|
|
(erase-buffer)
|
2002-09-15 01:52:54 +00:00
|
|
|
|
(dired-readin-insert))
|
|
|
|
|
|
(goto-char (point-min))
|
1993-04-08 16:35:59 +00:00
|
|
|
|
;; Must first make alist buffer local and set it to nil because
|
|
|
|
|
|
;; dired-build-subdir-alist will call dired-clear-alist first
|
|
|
|
|
|
(set (make-local-variable 'dired-subdir-alist) nil)
|
1994-05-20 23:56:40 +00:00
|
|
|
|
(dired-build-subdir-alist)
|
1994-06-28 08:36:16 +00:00
|
|
|
|
(let ((attributes (file-attributes dirname)))
|
|
|
|
|
|
(if (eq (car attributes) t)
|
|
|
|
|
|
(set-visited-file-modtime (nth 5 attributes))))
|
2002-09-15 01:52:54 +00:00
|
|
|
|
(set-buffer-modified-p nil)
|
|
|
|
|
|
;; No need to narrow since the whole buffer contains just
|
|
|
|
|
|
;; dired-readin's output, nothing else. The hook can
|
|
|
|
|
|
;; successfully use dired functions (e.g. dired-get-filename)
|
|
|
|
|
|
;; as the subdir-alist has been built in dired-readin.
|
|
|
|
|
|
(run-hooks 'dired-after-readin-hook))))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
|
|
|
|
|
;; Subroutines of dired-readin
|
|
|
|
|
|
|
2002-09-15 01:52:54 +00:00
|
|
|
|
(defun dired-readin-insert ()
|
|
|
|
|
|
;; Insert listing for the specified dir (and maybe file list)
|
|
|
|
|
|
;; already in dired-directory, assuming a clean buffer.
|
|
|
|
|
|
(let (dir file-list)
|
|
|
|
|
|
(if (consp dired-directory)
|
|
|
|
|
|
(setq dir (car dired-directory)
|
|
|
|
|
|
file-list (cdr dired-directory))
|
|
|
|
|
|
(setq dir dired-directory
|
|
|
|
|
|
file-list nil))
|
2002-10-16 21:27:40 +00:00
|
|
|
|
(setq dir (expand-file-name dir))
|
2002-09-15 01:52:54 +00:00
|
|
|
|
(if (and (equal "" (file-name-nondirectory dir))
|
|
|
|
|
|
(not file-list))
|
1993-07-26 05:56:43 +00:00
|
|
|
|
;; If we are reading a whole single directory...
|
2002-09-15 01:52:54 +00:00
|
|
|
|
(dired-insert-directory dir dired-actual-switches nil nil t)
|
1993-04-08 16:35:59 +00:00
|
|
|
|
(if (not (file-readable-p
|
2002-09-15 01:52:54 +00:00
|
|
|
|
(directory-file-name (file-name-directory dir))))
|
|
|
|
|
|
(error "Directory %s inaccessible or nonexistent" dir)
|
|
|
|
|
|
;; Else treat it as a wildcard spec
|
|
|
|
|
|
;; unless we have an explicit list of files.
|
|
|
|
|
|
(dired-insert-directory dir dired-actual-switches
|
|
|
|
|
|
file-list (not file-list) t)))))
|
|
|
|
|
|
|
2004-09-29 03:14:30 +00:00
|
|
|
|
(defun dired-align-file (beg end)
|
|
|
|
|
|
"Align the fields of a file to the ones of surrounding lines.
|
|
|
|
|
|
BEG..END is the line where the file info is located."
|
|
|
|
|
|
;; Some versions of ls try to adjust the size of each field so as to just
|
|
|
|
|
|
;; hold the largest element ("largest" in the current invocation, of
|
|
|
|
|
|
;; course). So when a single line is output, the size of each field is
|
|
|
|
|
|
;; just big enough for that one output. Thus when dired refreshes one
|
|
|
|
|
|
;; line, the alignment if this line w.r.t the rest is messed up because
|
|
|
|
|
|
;; the fields of that one line will generally be smaller.
|
|
|
|
|
|
;;
|
2005-10-23 12:17:28 +00:00
|
|
|
|
;; To work around this problem, we here add spaces to try and
|
|
|
|
|
|
;; re-align the fields as needed. Since this is purely aesthetic,
|
|
|
|
|
|
;; it is of utmost importance that it doesn't mess up anything like
|
|
|
|
|
|
;; `dired-move-to-filename'. To this end, we limit ourselves to
|
|
|
|
|
|
;; adding spaces only, and to only add them at places where there
|
|
|
|
|
|
;; was already at least one space. This way, as long as
|
|
|
|
|
|
;; `directory-listing-before-filename-regexp' always matches spaces
|
|
|
|
|
|
;; with "*" or "+", we know we haven't made anything worse. There
|
|
|
|
|
|
;; is one spot where the exact number of spaces is important, which
|
|
|
|
|
|
;; is just before the actual filename, so we refrain from adding
|
|
|
|
|
|
;; spaces there (and within the filename as well, of course).
|
2004-09-29 03:14:30 +00:00
|
|
|
|
(save-excursion
|
|
|
|
|
|
(let (file file-col other other-col)
|
2009-10-04 02:11:57 +00:00
|
|
|
|
;; Check that there is indeed a file, and that there is anoter adjacent
|
2004-09-29 03:14:30 +00:00
|
|
|
|
;; file with which to align, and that additional spaces are needed to
|
|
|
|
|
|
;; align the filenames.
|
|
|
|
|
|
(when (and (setq file (progn (goto-char beg)
|
|
|
|
|
|
(dired-move-to-filename nil end)))
|
|
|
|
|
|
(setq file-col (current-column))
|
|
|
|
|
|
(setq other
|
|
|
|
|
|
(or (and (goto-char beg)
|
|
|
|
|
|
(zerop (forward-line -1))
|
|
|
|
|
|
(dired-move-to-filename))
|
|
|
|
|
|
(and (goto-char beg)
|
|
|
|
|
|
(zerop (forward-line 1))
|
|
|
|
|
|
(dired-move-to-filename))))
|
|
|
|
|
|
(setq other-col (current-column))
|
|
|
|
|
|
(/= file other)
|
|
|
|
|
|
;; Make sure there is some work left to do.
|
|
|
|
|
|
(> other-col file-col))
|
|
|
|
|
|
;; If we've only looked at the line above, check to see if the line
|
|
|
|
|
|
;; below exists as well and if so, align with the shorter one.
|
|
|
|
|
|
(when (and (< other file)
|
|
|
|
|
|
(goto-char beg)
|
|
|
|
|
|
(zerop (forward-line 1))
|
|
|
|
|
|
(dired-move-to-filename))
|
|
|
|
|
|
(let ((alt-col (current-column)))
|
|
|
|
|
|
(when (< alt-col other-col)
|
|
|
|
|
|
(setq other-col alt-col)
|
|
|
|
|
|
(setq other (point)))))
|
|
|
|
|
|
;; Keep positions uptodate when we insert stuff.
|
|
|
|
|
|
(if (> other file) (setq other (copy-marker other)))
|
|
|
|
|
|
(setq file (copy-marker file))
|
|
|
|
|
|
;; Main loop.
|
|
|
|
|
|
(goto-char beg)
|
2004-11-22 05:07:07 +00:00
|
|
|
|
(skip-chars-forward " ") ;Skip to the first field.
|
2004-09-29 03:14:30 +00:00
|
|
|
|
(while (and (> other-col file-col)
|
|
|
|
|
|
;; Don't touch anything just before (and after) the
|
|
|
|
|
|
;; beginning of the filename.
|
|
|
|
|
|
(> file (point)))
|
|
|
|
|
|
;; We're now just in front of a field, with a space behind us.
|
|
|
|
|
|
(let* ((curcol (current-column))
|
|
|
|
|
|
;; Nums are right-aligned.
|
|
|
|
|
|
(num-align (looking-at "[0-9]"))
|
|
|
|
|
|
;; Let's look at the other line, in the same column: we
|
|
|
|
|
|
;; should be either near the end of the previous field, or
|
|
|
|
|
|
;; in the space between that field and the next.
|
|
|
|
|
|
;; [ Of course, it's also possible that we're already within
|
|
|
|
|
|
;; the next field or even past it, but that's unlikely since
|
|
|
|
|
|
;; other-col > file-col. ]
|
|
|
|
|
|
;; Let's find the distance to the alignment-point (either
|
|
|
|
|
|
;; the beginning or the end of the next field, depending on
|
|
|
|
|
|
;; whether this field is left or right aligned).
|
|
|
|
|
|
(align-pt-offset
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(goto-char other)
|
|
|
|
|
|
(move-to-column curcol)
|
|
|
|
|
|
(when (looking-at
|
|
|
|
|
|
(concat
|
(dired-align-file, dired-flag-backup-files, dired-change-marks,
dired-unmark-all-files): "?\ " -> "?\s".
(dired-listing-switches, dired-ls-F-marks-symlinks, dired-dwim-target,
dired-load-hook, dired-mode-hook, dired-directory, dired-faces, dired,
dired-revert, dired-mode, dired-summary, dired-view-file,
dired-copy-filename-as-kill, dired-delete-file, dired-no-confirm,
dired-unmark-all-marks, dired-sort-by-date-regexp, dired-sort-by-name-regexp,
dired-sort-inhibit, dired-sort-other): Fix typos in docstrings.
(dired-undo, dired-get-file-for-visit, dired-sort-toggle-or-edit):
Fix typos in message strings.
2005-07-20 14:08:39 +00:00
|
|
|
|
(if (eq (char-before) ?\s) " *" "[^ ]* *")
|
2004-09-29 03:14:30 +00:00
|
|
|
|
(if num-align "[0-9][^ ]*")))
|
|
|
|
|
|
(- (match-end 0) (match-beginning 0)))))
|
|
|
|
|
|
;; Now, the number of spaces to insert is align-pt-offset
|
|
|
|
|
|
;; minus the distance to the equivalent point on the
|
|
|
|
|
|
;; current line.
|
|
|
|
|
|
(spaces
|
|
|
|
|
|
(if (not num-align)
|
|
|
|
|
|
align-pt-offset
|
|
|
|
|
|
(and align-pt-offset
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(skip-chars-forward "^ ")
|
|
|
|
|
|
(- align-pt-offset (- (current-column) curcol)))))))
|
|
|
|
|
|
(when (and spaces (> spaces 0))
|
|
|
|
|
|
(setq file-col (+ spaces file-col))
|
|
|
|
|
|
(if (> file-col other-col)
|
|
|
|
|
|
(setq spaces (- spaces (- file-col other-col))))
|
|
|
|
|
|
(insert-char ?\s spaces)
|
|
|
|
|
|
;; Let's just make really sure we did not mess up.
|
|
|
|
|
|
(unless (save-excursion
|
2004-11-22 05:07:07 +00:00
|
|
|
|
(eq (dired-move-to-filename) (marker-position file)))
|
2004-09-29 03:14:30 +00:00
|
|
|
|
;; Damn! We messed up: let's revert the change.
|
2004-11-22 05:07:07 +00:00
|
|
|
|
(delete-char (- spaces)))))
|
|
|
|
|
|
;; Now skip to next field.
|
|
|
|
|
|
(skip-chars-forward "^ ") (skip-chars-forward " "))
|
2004-09-29 03:14:30 +00:00
|
|
|
|
(set-marker file nil)))))
|
2004-11-22 05:07:07 +00:00
|
|
|
|
|
2004-09-29 03:14:30 +00:00
|
|
|
|
|
2011-02-02 16:21:52 +00:00
|
|
|
|
(defvar ls-lisp-use-insert-directory-program)
|
|
|
|
|
|
|
2002-09-15 01:52:54 +00:00
|
|
|
|
(defun dired-insert-directory (dir switches &optional file-list wildcard hdr)
|
|
|
|
|
|
"Insert a directory listing of DIR, Dired style.
|
|
|
|
|
|
Use SWITCHES to make the listings.
|
|
|
|
|
|
If FILE-LIST is non-nil, list only those files.
|
|
|
|
|
|
Otherwise, if WILDCARD is non-nil, expand wildcards;
|
|
|
|
|
|
in that case, DIR should be a file name that uses wildcards.
|
|
|
|
|
|
In other cases, DIR should be a directory name or a directory filename.
|
|
|
|
|
|
If HDR is non-nil, insert a header line with the directory name."
|
1994-12-07 10:57:12 +00:00
|
|
|
|
(let ((opoint (point))
|
1996-01-04 00:32:19 +00:00
|
|
|
|
(process-environment (copy-sequence process-environment))
|
1994-12-07 10:57:12 +00:00
|
|
|
|
end)
|
2011-02-02 16:21:52 +00:00
|
|
|
|
(if (and
|
|
|
|
|
|
;; Don't try to invoke `ls' if we are on DOS/Windows where
|
|
|
|
|
|
;; ls-lisp emulation is used, except if they want to use `ls'
|
|
|
|
|
|
;; as indicated by `ls-lisp-use-insert-directory-program'.
|
|
|
|
|
|
(not (and (featurep 'ls-lisp)
|
|
|
|
|
|
(null ls-lisp-use-insert-directory-program)))
|
|
|
|
|
|
(or (if (eq dired-use-ls-dired 'unspecified)
|
|
|
|
|
|
;; Check whether "ls --dired" gives exit code 0, and
|
|
|
|
|
|
;; save the answer in `dired-use-ls-dired'.
|
2011-07-13 17:34:31 +00:00
|
|
|
|
(or (setq dired-use-ls-dired
|
|
|
|
|
|
(eq 0 (call-process insert-directory-program
|
|
|
|
|
|
nil nil nil "--dired")))
|
|
|
|
|
|
(progn
|
|
|
|
|
|
(message "ls does not support --dired; \
|
|
|
|
|
|
see `dired-use-ls-dired' for more details.")
|
|
|
|
|
|
nil))
|
2011-02-02 16:21:52 +00:00
|
|
|
|
dired-use-ls-dired)
|
|
|
|
|
|
(file-remote-p dir)))
|
2002-09-15 01:52:54 +00:00
|
|
|
|
(setq switches (concat "--dired " switches)))
|
1996-12-29 08:14:57 +00:00
|
|
|
|
;; We used to specify the C locale here, to force English month names;
|
|
|
|
|
|
;; but this should not be necessary any more,
|
2005-10-23 12:17:28 +00:00
|
|
|
|
;; with the new value of `directory-listing-before-filename-regexp'.
|
2002-09-15 01:52:54 +00:00
|
|
|
|
(if file-list
|
|
|
|
|
|
(dolist (f file-list)
|
2004-09-29 03:14:30 +00:00
|
|
|
|
(let ((beg (point)))
|
|
|
|
|
|
(insert-directory f switches nil nil)
|
|
|
|
|
|
;; Re-align fields, if necessary.
|
|
|
|
|
|
(dired-align-file beg (point))))
|
2002-09-15 01:52:54 +00:00
|
|
|
|
(insert-directory dir switches wildcard (not wildcard)))
|
1994-12-07 10:57:12 +00:00
|
|
|
|
;; Quote certain characters, unless ls quoted them for us.
|
1995-03-30 07:10:08 +00:00
|
|
|
|
(if (not (string-match "b" dired-actual-switches))
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(setq end (point-marker))
|
|
|
|
|
|
(goto-char opoint)
|
|
|
|
|
|
(while (search-forward "\\" end t)
|
2002-12-21 17:06:54 +00:00
|
|
|
|
(replace-match (apply #'propertize
|
|
|
|
|
|
"\\\\"
|
|
|
|
|
|
(text-properties-at (match-beginning 0)))
|
|
|
|
|
|
nil t))
|
1995-03-30 07:10:08 +00:00
|
|
|
|
(goto-char opoint)
|
|
|
|
|
|
(while (search-forward "\^m" end t)
|
2002-12-21 17:06:54 +00:00
|
|
|
|
(replace-match (apply #'propertize
|
|
|
|
|
|
"\\015"
|
|
|
|
|
|
(text-properties-at (match-beginning 0)))
|
|
|
|
|
|
nil t))
|
1995-03-30 07:10:08 +00:00
|
|
|
|
(set-marker end nil)))
|
2002-09-15 01:52:54 +00:00
|
|
|
|
(dired-insert-set-properties opoint (point))
|
|
|
|
|
|
;; If we used --dired and it worked, the lines are already indented.
|
|
|
|
|
|
;; Otherwise, indent them.
|
|
|
|
|
|
(unless (save-excursion
|
2002-10-12 23:33:06 +00:00
|
|
|
|
(goto-char opoint)
|
2002-09-15 01:52:54 +00:00
|
|
|
|
(looking-at " "))
|
|
|
|
|
|
(let ((indent-tabs-mode nil))
|
|
|
|
|
|
(indent-rigidly opoint (point) 2)))
|
|
|
|
|
|
;; Insert text at the beginning to standardize things.
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(goto-char opoint)
|
2008-06-10 19:10:42 +00:00
|
|
|
|
(if (and (or hdr wildcard)
|
|
|
|
|
|
(not (and (looking-at "^ \\(.*\\):$")
|
|
|
|
|
|
(file-name-absolute-p (match-string 1)))))
|
2002-09-15 01:52:54 +00:00
|
|
|
|
;; Note that dired-build-subdir-alist will replace the name
|
|
|
|
|
|
;; by its expansion, so it does not matter whether what we insert
|
|
|
|
|
|
;; here is fully expanded, but it should be absolute.
|
|
|
|
|
|
(insert " " (directory-file-name (file-name-directory dir)) ":\n"))
|
|
|
|
|
|
(when wildcard
|
|
|
|
|
|
;; Insert "wildcard" line where "total" line would be for a full dir.
|
|
|
|
|
|
(insert " wildcard " (file-name-nondirectory dir) "\n")))))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
1994-04-01 18:51:39 +00:00
|
|
|
|
(defun dired-insert-set-properties (beg end)
|
2011-07-13 15:15:26 +00:00
|
|
|
|
"Add various text properties to the lines in the region."
|
1994-04-01 18:51:39 +00:00
|
|
|
|
(save-excursion
|
|
|
|
|
|
(goto-char beg)
|
|
|
|
|
|
(while (< (point) end)
|
1995-07-31 23:13:54 +00:00
|
|
|
|
(condition-case nil
|
|
|
|
|
|
(if (dired-move-to-filename)
|
2001-06-17 11:18:16 +00:00
|
|
|
|
(add-text-properties
|
|
|
|
|
|
(point)
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(dired-move-to-end-of-filename)
|
|
|
|
|
|
(point))
|
2001-07-16 10:54:22 +00:00
|
|
|
|
'(mouse-face highlight
|
2008-07-29 14:42:07 +00:00
|
|
|
|
dired-filename t
|
2001-06-17 11:18:16 +00:00
|
|
|
|
help-echo "mouse-2: visit this file in other window")))
|
1995-07-31 23:13:54 +00:00
|
|
|
|
(error nil))
|
1994-04-01 18:51:39 +00:00
|
|
|
|
(forward-line 1))))
|
2001-01-26 13:14:11 +00:00
|
|
|
|
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;; Reverting a dired buffer
|
|
|
|
|
|
|
2011-03-01 05:03:24 +00:00
|
|
|
|
(defun dired-revert (&optional _arg _noconfirm)
|
2004-03-23 21:44:31 +00:00
|
|
|
|
"Reread the dired buffer.
|
(dired-align-file, dired-flag-backup-files, dired-change-marks,
dired-unmark-all-files): "?\ " -> "?\s".
(dired-listing-switches, dired-ls-F-marks-symlinks, dired-dwim-target,
dired-load-hook, dired-mode-hook, dired-directory, dired-faces, dired,
dired-revert, dired-mode, dired-summary, dired-view-file,
dired-copy-filename-as-kill, dired-delete-file, dired-no-confirm,
dired-unmark-all-marks, dired-sort-by-date-regexp, dired-sort-by-name-regexp,
dired-sort-inhibit, dired-sort-other): Fix typos in docstrings.
(dired-undo, dired-get-file-for-visit, dired-sort-toggle-or-edit):
Fix typos in message strings.
2005-07-20 14:08:39 +00:00
|
|
|
|
Must also be called after `dired-actual-switches' have changed.
|
2004-03-23 21:44:31 +00:00
|
|
|
|
Should not fail even on completely garbaged buffers.
|
2011-01-23 20:06:51 +00:00
|
|
|
|
Preserves old cursor, marks/flags, hidden-p.
|
|
|
|
|
|
|
|
|
|
|
|
Dired sets `revert-buffer-function' to this function. The args
|
|
|
|
|
|
ARG and NOCONFIRM, passed from `revert-buffer', are ignored."
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(widen) ; just in case user narrowed
|
2004-06-11 22:38:52 +00:00
|
|
|
|
(let ((modflag (buffer-modified-p))
|
2009-11-12 22:37:58 +00:00
|
|
|
|
(positions (dired-save-positions))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(mark-alist nil) ; save marked files
|
|
|
|
|
|
(hidden-subdirs (dired-remember-hidden))
|
|
|
|
|
|
(old-subdir-alist (cdr (reverse dired-subdir-alist))) ; except pwd
|
|
|
|
|
|
(case-fold-search nil) ; we check for upper case ls flags
|
(dired-read-dir-and-switches): Ignore ., .., and
completion-ignored-extension directories if there's something else.
(dired-mark-if, dired-map-over-marks, dired-readin, dired-revert)
(dired-remember-marks, dired-undo, dired-build-subdir-alist)
(dired-internal-do-deletions, dired-mark-files-in-region, dired-mark)
(dired-toggle-marks, dired-change-marks, dired-unmark-all-files):
buffer-read-only -> inhibit-read-only.
2008-05-13 05:15:57 +00:00
|
|
|
|
(inhibit-read-only t))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
|
(setq mark-alist;; only after dired-remember-hidden since this unhides:
|
|
|
|
|
|
(dired-remember-marks (point-min) (point-max)))
|
|
|
|
|
|
;; treat top level dir extra (it may contain wildcards)
|
2010-02-04 16:25:57 +00:00
|
|
|
|
(if (not (consp dired-directory))
|
|
|
|
|
|
(dired-uncache dired-directory)
|
|
|
|
|
|
(dired-uncache (car dired-directory))
|
|
|
|
|
|
(dolist (dir (cdr dired-directory))
|
|
|
|
|
|
(if (file-name-absolute-p dir)
|
|
|
|
|
|
(dired-uncache dir))))
|
2006-12-04 00:32:00 +00:00
|
|
|
|
;; Run dired-after-readin-hook just once, below.
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(let ((dired-after-readin-hook nil))
|
2006-12-04 00:32:00 +00:00
|
|
|
|
(dired-readin)
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(dired-insert-old-subdirs old-subdir-alist))
|
|
|
|
|
|
(dired-mark-remembered mark-alist) ; mark files that were marked
|
|
|
|
|
|
;; ... run the hook for the whole buffer, and only after markers
|
|
|
|
|
|
;; have been reinserted (else omitting in dired-x would omit marked files)
|
|
|
|
|
|
(run-hooks 'dired-after-readin-hook) ; no need to narrow
|
2009-11-12 22:37:58 +00:00
|
|
|
|
(dired-restore-positions positions)
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(save-excursion ; hide subdirs that were hidden
|
2004-03-23 21:44:31 +00:00
|
|
|
|
(dolist (dir hidden-subdirs)
|
|
|
|
|
|
(if (dired-goto-subdir dir)
|
2004-06-11 22:38:52 +00:00
|
|
|
|
(dired-hide-subdir 1))))
|
|
|
|
|
|
(unless modflag (restore-buffer-modified-p nil)))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;; outside of the let scope
|
2004-06-11 22:38:52 +00:00
|
|
|
|
;;; Might as well not override the user if the user changed this.
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;;; (setq buffer-read-only t)
|
|
|
|
|
|
)
|
|
|
|
|
|
|
|
|
|
|
|
;; Subroutines of dired-revert
|
|
|
|
|
|
;; Some of these are also used when inserting subdirs.
|
|
|
|
|
|
|
2009-11-12 22:37:58 +00:00
|
|
|
|
(defun dired-save-positions ()
|
2009-12-05 23:22:03 +00:00
|
|
|
|
"Return current positions in the buffer and all windows with this directory.
|
|
|
|
|
|
The positions have the form (BUFFER-POSITION WINDOW-POSITIONS).
|
|
|
|
|
|
|
|
|
|
|
|
BUFFER-POSITION is the point position in the current dired buffer.
|
2010-09-27 23:41:00 +00:00
|
|
|
|
It has the form (BUFFER DIRED-FILENAME BUFFER-POINT).
|
2009-12-05 23:22:03 +00:00
|
|
|
|
|
|
|
|
|
|
WINDOW-POSITIONS are current positions in all windows displaying
|
|
|
|
|
|
this dired buffer. The window positions have the form (WINDOW
|
|
|
|
|
|
DIRED-FILENAME WINDOW-POINT)."
|
|
|
|
|
|
(list
|
|
|
|
|
|
(list (current-buffer) (dired-get-filename nil t) (point))
|
|
|
|
|
|
(mapcar (lambda (w)
|
|
|
|
|
|
(list w
|
|
|
|
|
|
(with-selected-window w
|
|
|
|
|
|
(dired-get-filename nil t))
|
|
|
|
|
|
(window-point w)))
|
|
|
|
|
|
(get-buffer-window-list nil 0 t))))
|
2009-11-12 22:37:58 +00:00
|
|
|
|
|
|
|
|
|
|
(defun dired-restore-positions (positions)
|
|
|
|
|
|
"Restore POSITIONS saved with `dired-save-positions'."
|
2009-12-05 23:22:03 +00:00
|
|
|
|
(let* ((buf-file-pos (nth 0 positions))
|
|
|
|
|
|
(buffer (nth 0 buf-file-pos)))
|
|
|
|
|
|
(unless (and (nth 1 buf-file-pos)
|
|
|
|
|
|
(dired-goto-file (nth 1 buf-file-pos)))
|
|
|
|
|
|
(goto-char (nth 2 buf-file-pos))
|
|
|
|
|
|
(dired-move-to-filename))
|
|
|
|
|
|
(dolist (win-file-pos (nth 1 positions))
|
|
|
|
|
|
;; Ensure that window still displays the original buffer.
|
|
|
|
|
|
(when (eq (window-buffer (nth 0 win-file-pos)) buffer)
|
|
|
|
|
|
(with-selected-window (nth 0 win-file-pos)
|
|
|
|
|
|
(unless (and (nth 1 win-file-pos)
|
|
|
|
|
|
(dired-goto-file (nth 1 win-file-pos)))
|
|
|
|
|
|
(goto-char (nth 2 win-file-pos))
|
|
|
|
|
|
(dired-move-to-filename)))))))
|
2009-11-12 22:37:58 +00:00
|
|
|
|
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(defun dired-remember-marks (beg end)
|
2004-03-23 21:44:31 +00:00
|
|
|
|
"Return alist of files and their marks, from BEG to END."
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(if selective-display ; must unhide to make this work.
|
(dired-read-dir-and-switches): Ignore ., .., and
completion-ignored-extension directories if there's something else.
(dired-mark-if, dired-map-over-marks, dired-readin, dired-revert)
(dired-remember-marks, dired-undo, dired-build-subdir-alist)
(dired-internal-do-deletions, dired-mark-files-in-region, dired-mark)
(dired-toggle-marks, dired-change-marks, dired-unmark-all-files):
buffer-read-only -> inhibit-read-only.
2008-05-13 05:15:57 +00:00
|
|
|
|
(let ((inhibit-read-only t))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(subst-char-in-region beg end ?\r ?\n)))
|
|
|
|
|
|
(let (fil chr alist)
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(goto-char beg)
|
|
|
|
|
|
(while (re-search-forward dired-re-mark end t)
|
|
|
|
|
|
(if (setq fil (dired-get-filename nil t))
|
|
|
|
|
|
(setq chr (preceding-char)
|
|
|
|
|
|
alist (cons (cons fil chr) alist)))))
|
|
|
|
|
|
alist))
|
|
|
|
|
|
|
|
|
|
|
|
(defun dired-mark-remembered (alist)
|
2004-03-23 21:44:31 +00:00
|
|
|
|
"Mark all files remembered in ALIST.
|
|
|
|
|
|
Each element of ALIST looks like (FILE . MARKERCHAR)."
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(let (elt fil chr)
|
|
|
|
|
|
(while alist
|
|
|
|
|
|
(setq elt (car alist)
|
|
|
|
|
|
alist (cdr alist)
|
|
|
|
|
|
fil (car elt)
|
|
|
|
|
|
chr (cdr elt))
|
|
|
|
|
|
(if (dired-goto-file fil)
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(beginning-of-line)
|
|
|
|
|
|
(delete-char 1)
|
|
|
|
|
|
(insert chr))))))
|
|
|
|
|
|
|
|
|
|
|
|
(defun dired-remember-hidden ()
|
2004-03-23 21:44:31 +00:00
|
|
|
|
"Return a list of names of subdirs currently hidden."
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(let ((l dired-subdir-alist) dir pos result)
|
|
|
|
|
|
(while l
|
|
|
|
|
|
(setq dir (car (car l))
|
|
|
|
|
|
pos (cdr (car l))
|
|
|
|
|
|
l (cdr l))
|
|
|
|
|
|
(goto-char pos)
|
|
|
|
|
|
(skip-chars-forward "^\r\n")
|
1992-07-21 22:40:10 +00:00
|
|
|
|
(if (eq (following-char) ?\r)
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(setq result (cons dir result))))
|
|
|
|
|
|
result))
|
|
|
|
|
|
|
|
|
|
|
|
(defun dired-insert-old-subdirs (old-subdir-alist)
|
2004-03-23 21:44:31 +00:00
|
|
|
|
"Try to insert all subdirs that were displayed before.
|
|
|
|
|
|
Do so according to the former subdir alist OLD-SUBDIR-ALIST."
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(or (string-match "R" dired-actual-switches)
|
|
|
|
|
|
(let (elt dir)
|
|
|
|
|
|
(while old-subdir-alist
|
|
|
|
|
|
(setq elt (car old-subdir-alist)
|
|
|
|
|
|
old-subdir-alist (cdr old-subdir-alist)
|
|
|
|
|
|
dir (car elt))
|
|
|
|
|
|
(condition-case ()
|
1992-09-13 20:40:20 +00:00
|
|
|
|
(progn
|
|
|
|
|
|
(dired-uncache dir)
|
2004-06-10 19:10:09 +00:00
|
|
|
|
(dired-insert-subdir dir))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(error nil))))))
|
1992-09-13 20:40:20 +00:00
|
|
|
|
|
|
|
|
|
|
(defun dired-uncache (dir)
|
2004-03-23 21:44:31 +00:00
|
|
|
|
"Remove directory DIR from any directory cache."
|
1994-04-22 23:59:24 +00:00
|
|
|
|
(let ((handler (find-file-name-handler dir 'dired-uncache)))
|
1992-09-13 20:40:20 +00:00
|
|
|
|
(if handler
|
|
|
|
|
|
(funcall handler 'dired-uncache dir))))
|
2001-01-26 13:14:11 +00:00
|
|
|
|
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;; dired mode key bindings and initialization
|
1992-05-30 23:52:26 +00:00
|
|
|
|
|
2004-03-23 21:44:31 +00:00
|
|
|
|
(defvar dired-mode-map
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;; This looks ugly when substitute-command-keys uses C-d instead d:
|
|
|
|
|
|
;; (define-key dired-mode-map "\C-d" 'dired-flag-file-deletion)
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(let ((map (make-keymap)))
|
2011-02-01 21:22:21 +00:00
|
|
|
|
(set-keymap-parent map special-mode-map)
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [mouse-2] 'dired-mouse-find-file-other-window)
|
2004-12-17 15:18:02 +00:00
|
|
|
|
(define-key map [follow-link] 'mouse-face)
|
1995-08-08 05:16:23 +00:00
|
|
|
|
;; Commands to mark or flag certain categories of files
|
|
|
|
|
|
(define-key map "#" 'dired-flag-auto-save-files)
|
|
|
|
|
|
(define-key map "." 'dired-clean-directory)
|
|
|
|
|
|
(define-key map "~" 'dired-flag-backup-files)
|
|
|
|
|
|
;; Upper case keys (except !) for operating on the marked files
|
|
|
|
|
|
(define-key map "A" 'dired-do-search)
|
|
|
|
|
|
(define-key map "C" 'dired-do-copy)
|
|
|
|
|
|
(define-key map "B" 'dired-do-byte-compile)
|
|
|
|
|
|
(define-key map "D" 'dired-do-delete)
|
|
|
|
|
|
(define-key map "G" 'dired-do-chgrp)
|
|
|
|
|
|
(define-key map "H" 'dired-do-hardlink)
|
|
|
|
|
|
(define-key map "L" 'dired-do-load)
|
|
|
|
|
|
(define-key map "M" 'dired-do-chmod)
|
|
|
|
|
|
(define-key map "O" 'dired-do-chown)
|
|
|
|
|
|
(define-key map "P" 'dired-do-print)
|
2000-05-16 14:32:33 +00:00
|
|
|
|
(define-key map "Q" 'dired-do-query-replace-regexp)
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map "R" 'dired-do-rename)
|
|
|
|
|
|
(define-key map "S" 'dired-do-symlink)
|
2004-03-31 16:29:46 +00:00
|
|
|
|
(define-key map "T" 'dired-do-touch)
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map "X" 'dired-do-shell-command)
|
|
|
|
|
|
(define-key map "Z" 'dired-do-compress)
|
|
|
|
|
|
(define-key map "!" 'dired-do-shell-command)
|
2008-07-29 16:37:31 +00:00
|
|
|
|
(define-key map "&" 'dired-do-async-shell-command)
|
1995-08-08 05:16:23 +00:00
|
|
|
|
;; Comparison commands
|
|
|
|
|
|
(define-key map "=" 'dired-diff)
|
|
|
|
|
|
(define-key map "\M-=" 'dired-backup-diff)
|
|
|
|
|
|
;; Tree Dired commands
|
|
|
|
|
|
(define-key map "\M-\C-?" 'dired-unmark-all-files)
|
|
|
|
|
|
(define-key map "\M-\C-d" 'dired-tree-down)
|
|
|
|
|
|
(define-key map "\M-\C-u" 'dired-tree-up)
|
|
|
|
|
|
(define-key map "\M-\C-n" 'dired-next-subdir)
|
|
|
|
|
|
(define-key map "\M-\C-p" 'dired-prev-subdir)
|
|
|
|
|
|
;; move to marked files
|
|
|
|
|
|
(define-key map "\M-{" 'dired-prev-marked-file)
|
|
|
|
|
|
(define-key map "\M-}" 'dired-next-marked-file)
|
|
|
|
|
|
;; Make all regexp commands share a `%' prefix:
|
|
|
|
|
|
;; We used to get to the submap via a symbol dired-regexp-prefix,
|
|
|
|
|
|
;; but that seems to serve little purpose, and copy-keymap
|
|
|
|
|
|
;; does a better job without it.
|
|
|
|
|
|
(define-key map "%" nil)
|
|
|
|
|
|
(define-key map "%u" 'dired-upcase)
|
|
|
|
|
|
(define-key map "%l" 'dired-downcase)
|
|
|
|
|
|
(define-key map "%d" 'dired-flag-files-regexp)
|
1998-05-24 00:55:39 +00:00
|
|
|
|
(define-key map "%g" 'dired-mark-files-containing-regexp)
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map "%m" 'dired-mark-files-regexp)
|
|
|
|
|
|
(define-key map "%r" 'dired-do-rename-regexp)
|
|
|
|
|
|
(define-key map "%C" 'dired-do-copy-regexp)
|
|
|
|
|
|
(define-key map "%H" 'dired-do-hardlink-regexp)
|
|
|
|
|
|
(define-key map "%R" 'dired-do-rename-regexp)
|
|
|
|
|
|
(define-key map "%S" 'dired-do-symlink-regexp)
|
2008-07-29 16:37:31 +00:00
|
|
|
|
(define-key map "%&" 'dired-flag-garbage-files)
|
1996-11-02 07:56:50 +00:00
|
|
|
|
;; Commands for marking and unmarking.
|
|
|
|
|
|
(define-key map "*" nil)
|
|
|
|
|
|
(define-key map "**" 'dired-mark-executables)
|
|
|
|
|
|
(define-key map "*/" 'dired-mark-directories)
|
|
|
|
|
|
(define-key map "*@" 'dired-mark-symlinks)
|
|
|
|
|
|
(define-key map "*%" 'dired-mark-files-regexp)
|
|
|
|
|
|
(define-key map "*c" 'dired-change-marks)
|
1996-11-04 23:51:33 +00:00
|
|
|
|
(define-key map "*s" 'dired-mark-subdir-files)
|
1996-11-02 07:56:50 +00:00
|
|
|
|
(define-key map "*m" 'dired-mark)
|
|
|
|
|
|
(define-key map "*u" 'dired-unmark)
|
|
|
|
|
|
(define-key map "*?" 'dired-unmark-all-files)
|
1997-06-07 19:31:24 +00:00
|
|
|
|
(define-key map "*!" 'dired-unmark-all-marks)
|
2004-03-23 21:44:31 +00:00
|
|
|
|
(define-key map "U" 'dired-unmark-all-marks)
|
1996-11-02 07:56:50 +00:00
|
|
|
|
(define-key map "*\177" 'dired-unmark-backward)
|
|
|
|
|
|
(define-key map "*\C-n" 'dired-next-marked-file)
|
|
|
|
|
|
(define-key map "*\C-p" 'dired-prev-marked-file)
|
2002-03-28 18:32:59 +00:00
|
|
|
|
(define-key map "*t" 'dired-toggle-marks)
|
1995-08-08 05:16:23 +00:00
|
|
|
|
;; Lower keys for commands not operating on all the marked files
|
2000-07-07 13:00:21 +00:00
|
|
|
|
(define-key map "a" 'dired-find-alternate-file)
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map "d" 'dired-flag-file-deletion)
|
|
|
|
|
|
(define-key map "e" 'dired-find-file)
|
|
|
|
|
|
(define-key map "f" 'dired-find-file)
|
2009-09-11 00:58:59 +00:00
|
|
|
|
(define-key map "\C-m" 'dired-find-file)
|
|
|
|
|
|
(put 'dired-find-file :advertised-binding "\C-m")
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map "g" 'revert-buffer)
|
|
|
|
|
|
(define-key map "i" 'dired-maybe-insert-subdir)
|
2006-05-21 00:22:46 +00:00
|
|
|
|
(define-key map "j" 'dired-goto-file)
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map "k" 'dired-do-kill-lines)
|
|
|
|
|
|
(define-key map "l" 'dired-do-redisplay)
|
|
|
|
|
|
(define-key map "m" 'dired-mark)
|
|
|
|
|
|
(define-key map "n" 'dired-next-line)
|
|
|
|
|
|
(define-key map "o" 'dired-find-file-other-window)
|
|
|
|
|
|
(define-key map "\C-o" 'dired-display-file)
|
|
|
|
|
|
(define-key map "p" 'dired-previous-line)
|
|
|
|
|
|
(define-key map "s" 'dired-sort-toggle-or-edit)
|
2002-03-28 18:32:59 +00:00
|
|
|
|
(define-key map "t" 'dired-toggle-marks)
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map "u" 'dired-unmark)
|
|
|
|
|
|
(define-key map "v" 'dired-view-file)
|
2001-12-17 01:58:05 +00:00
|
|
|
|
(define-key map "w" 'dired-copy-filename-as-kill)
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map "x" 'dired-do-flagged-delete)
|
2001-08-28 09:12:52 +00:00
|
|
|
|
(define-key map "y" 'dired-show-file-type)
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map "+" 'dired-create-directory)
|
|
|
|
|
|
;; moving
|
|
|
|
|
|
(define-key map "<" 'dired-prev-dirline)
|
|
|
|
|
|
(define-key map ">" 'dired-next-dirline)
|
|
|
|
|
|
(define-key map "^" 'dired-up-directory)
|
|
|
|
|
|
(define-key map " " 'dired-next-line)
|
2010-07-22 11:54:27 +00:00
|
|
|
|
(define-key map [remap next-line] 'dired-next-line)
|
|
|
|
|
|
(define-key map [remap previous-line] 'dired-previous-line)
|
1995-08-08 05:16:23 +00:00
|
|
|
|
;; hiding
|
|
|
|
|
|
(define-key map "$" 'dired-hide-subdir)
|
|
|
|
|
|
(define-key map "\M-$" 'dired-hide-all)
|
2008-07-28 14:32:34 +00:00
|
|
|
|
;; isearch
|
|
|
|
|
|
(define-key map (kbd "M-s a C-s") 'dired-do-isearch)
|
|
|
|
|
|
(define-key map (kbd "M-s a M-C-s") 'dired-do-isearch-regexp)
|
2008-07-29 14:42:07 +00:00
|
|
|
|
(define-key map (kbd "M-s f C-s") 'dired-isearch-filenames)
|
|
|
|
|
|
(define-key map (kbd "M-s f M-C-s") 'dired-isearch-filenames-regexp)
|
1995-08-08 05:16:23 +00:00
|
|
|
|
;; misc
|
2010-07-22 11:54:27 +00:00
|
|
|
|
(define-key map [remap toggle-read-only] 'dired-toggle-read-only)
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map "?" 'dired-summary)
|
|
|
|
|
|
(define-key map "\177" 'dired-unmark-backward)
|
2005-01-29 17:28:48 +00:00
|
|
|
|
(define-key map [remap undo] 'dired-undo)
|
|
|
|
|
|
(define-key map [remap advertised-undo] 'dired-undo)
|
2007-04-22 13:40:00 +00:00
|
|
|
|
;; thumbnail manipulation (image-dired)
|
|
|
|
|
|
(define-key map "\C-td" 'image-dired-display-thumbs)
|
|
|
|
|
|
(define-key map "\C-tt" 'image-dired-tag-files)
|
|
|
|
|
|
(define-key map "\C-tr" 'image-dired-delete-tag)
|
|
|
|
|
|
(define-key map "\C-tj" 'image-dired-jump-thumbnail-buffer)
|
|
|
|
|
|
(define-key map "\C-ti" 'image-dired-dired-display-image)
|
|
|
|
|
|
(define-key map "\C-tx" 'image-dired-dired-display-external)
|
|
|
|
|
|
(define-key map "\C-ta" 'image-dired-display-thumbs-append)
|
|
|
|
|
|
(define-key map "\C-t." 'image-dired-display-thumb)
|
|
|
|
|
|
(define-key map "\C-tc" 'image-dired-dired-comment-files)
|
|
|
|
|
|
(define-key map "\C-tf" 'image-dired-mark-tagged-files)
|
2010-05-25 17:43:58 +00:00
|
|
|
|
(define-key map "\C-t\C-t" 'image-dired-dired-toggle-marked-thumbs)
|
2007-04-22 13:40:00 +00:00
|
|
|
|
(define-key map "\C-te" 'image-dired-dired-edit-comment-and-tags)
|
2008-04-27 19:49:15 +00:00
|
|
|
|
;; encryption and decryption (epa-dired)
|
|
|
|
|
|
(define-key map ":d" 'epa-dired-do-decrypt)
|
|
|
|
|
|
(define-key map ":v" 'epa-dired-do-verify)
|
|
|
|
|
|
(define-key map ":s" 'epa-dired-do-sign)
|
|
|
|
|
|
(define-key map ":e" 'epa-dired-do-encrypt)
|
1995-08-08 05:16:23 +00:00
|
|
|
|
|
|
|
|
|
|
;; Make menu bar items.
|
|
|
|
|
|
|
2000-02-24 12:59:48 +00:00
|
|
|
|
;; No need to fo this, now that top-level items are fewer.
|
|
|
|
|
|
;;;;
|
1995-08-08 05:16:23 +00:00
|
|
|
|
;; Get rid of the Edit menu bar item to save space.
|
2000-02-24 12:59:48 +00:00
|
|
|
|
;(define-key map [menu-bar edit] 'undefined)
|
1995-08-08 05:16:23 +00:00
|
|
|
|
|
|
|
|
|
|
(define-key map [menu-bar subdir]
|
|
|
|
|
|
(cons "Subdir" (make-sparse-keymap "Subdir")))
|
|
|
|
|
|
|
|
|
|
|
|
(define-key map [menu-bar subdir hide-all]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Hide All" dired-hide-all
|
|
|
|
|
|
:help "Hide all subdirectories, leave only header lines"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar subdir hide-subdir]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Hide/UnHide Subdir" dired-hide-subdir
|
|
|
|
|
|
:help "Hide or unhide current directory listing"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar subdir tree-down]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Tree Down" dired-tree-down
|
|
|
|
|
|
:help "Go to first subdirectory header down the tree"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar subdir tree-up]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Tree Up" dired-tree-up
|
|
|
|
|
|
:help "Go to first subdirectory header up the tree"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar subdir up]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Up Directory" dired-up-directory
|
|
|
|
|
|
:help "Edit the parent directory"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar subdir prev-subdir]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Prev Subdir" dired-prev-subdir
|
|
|
|
|
|
:help "Go to previous subdirectory header line"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar subdir next-subdir]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Next Subdir" dired-next-subdir
|
|
|
|
|
|
:help "Go to next subdirectory header line"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar subdir prev-dirline]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Prev Dirline" dired-prev-dirline
|
|
|
|
|
|
:help "Move to next directory-file line"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar subdir next-dirline]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Next Dirline" dired-next-dirline
|
|
|
|
|
|
:help "Move to previous directory-file line"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar subdir insert]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Insert This Subdir" dired-maybe-insert-subdir
|
2009-11-08 00:32:18 +00:00
|
|
|
|
:help "Insert contents of subdirectory"
|
|
|
|
|
|
:enable (let ((f (dired-get-filename nil t)))
|
|
|
|
|
|
(and f (file-directory-p f)))))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar immediate]
|
|
|
|
|
|
(cons "Immediate" (make-sparse-keymap "Immediate")))
|
|
|
|
|
|
|
2006-05-24 21:42:14 +00:00
|
|
|
|
(define-key map
|
2007-04-22 13:40:00 +00:00
|
|
|
|
[menu-bar immediate image-dired-dired-display-external]
|
|
|
|
|
|
'(menu-item "Display Image Externally" image-dired-dired-display-external
|
2006-05-25 15:11:10 +00:00
|
|
|
|
:help "Display image in external viewer"))
|
2006-05-24 21:42:14 +00:00
|
|
|
|
(define-key map
|
2007-04-22 13:40:00 +00:00
|
|
|
|
[menu-bar immediate image-dired-dired-display-image]
|
|
|
|
|
|
'(menu-item "Display Image" image-dired-dired-display-image
|
2006-05-25 15:11:10 +00:00
|
|
|
|
:help "Display sized image in a separate window"))
|
2006-05-25 12:09:01 +00:00
|
|
|
|
|
2006-05-26 22:07:04 +00:00
|
|
|
|
(define-key map [menu-bar immediate revert-buffer]
|
|
|
|
|
|
'(menu-item "Refresh" revert-buffer
|
|
|
|
|
|
:help "Update contents of shown directories"))
|
|
|
|
|
|
|
|
|
|
|
|
(define-key map [menu-bar immediate dashes]
|
|
|
|
|
|
'("--"))
|
2006-05-24 21:42:14 +00:00
|
|
|
|
|
2008-07-29 14:42:07 +00:00
|
|
|
|
(define-key map [menu-bar immediate isearch-filenames-regexp]
|
|
|
|
|
|
'(menu-item "Isearch Regexp in File Names..." dired-isearch-filenames-regexp
|
|
|
|
|
|
:help "Incrementally search for regexp in file names only"))
|
|
|
|
|
|
(define-key map [menu-bar immediate isearch-filenames]
|
|
|
|
|
|
'(menu-item "Isearch in File Names..." dired-isearch-filenames
|
|
|
|
|
|
:help "Incrementally search for string in file names only."))
|
2005-03-24 19:47:20 +00:00
|
|
|
|
(define-key map [menu-bar immediate compare-directories]
|
2006-05-26 23:27:55 +00:00
|
|
|
|
'(menu-item "Compare Directories..." dired-compare-directories
|
2005-03-24 19:47:20 +00:00
|
|
|
|
:help "Mark files with different attributes in two dired buffers"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar immediate backup-diff]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Compare with Backup" dired-backup-diff
|
|
|
|
|
|
:help "Diff file at cursor with its latest backup"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar immediate diff]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Diff..." dired-diff
|
|
|
|
|
|
:help "Compare file at cursor with another file"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar immediate view]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "View This File" dired-view-file
|
|
|
|
|
|
:help "Examine file at cursor in read-only mode"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar immediate display]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Display in Other Window" dired-display-file
|
|
|
|
|
|
:help "Display file at cursor in other window"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar immediate find-file-other-window]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Find in Other Window" dired-find-file-other-window
|
|
|
|
|
|
:help "Edit file at cursor in other window"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar immediate find-file]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Find This File" dired-find-file
|
|
|
|
|
|
:help "Edit file at cursor"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar immediate create-directory]
|
2008-04-30 05:41:52 +00:00
|
|
|
|
'(menu-item "Create Directory..." dired-create-directory
|
|
|
|
|
|
:help "Create a directory"))
|
2004-04-23 22:13:32 +00:00
|
|
|
|
(define-key map [menu-bar immediate wdired-mode]
|
2007-07-29 09:18:15 +00:00
|
|
|
|
'(menu-item "Edit File Names" wdired-change-to-wdired-mode
|
2008-04-30 05:41:52 +00:00
|
|
|
|
:help "Put a dired buffer in a mode in which filenames are editable"
|
2008-07-23 05:58:24 +00:00
|
|
|
|
:keys "C-x C-q"
|
2007-07-29 09:18:15 +00:00
|
|
|
|
:filter (lambda (x) (if (eq major-mode 'dired-mode) x))))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
|
|
|
|
|
|
(define-key map [menu-bar regexp]
|
|
|
|
|
|
(cons "Regexp" (make-sparse-keymap "Regexp")))
|
|
|
|
|
|
|
2006-05-26 22:07:04 +00:00
|
|
|
|
(define-key map
|
2007-04-22 13:40:00 +00:00
|
|
|
|
[menu-bar regexp image-dired-mark-tagged-files]
|
|
|
|
|
|
'(menu-item "Mark From Image Tag..." image-dired-mark-tagged-files
|
2007-05-16 10:51:25 +00:00
|
|
|
|
:help "Mark files whose image tags matches regexp"))
|
|
|
|
|
|
|
2006-05-26 22:07:04 +00:00
|
|
|
|
(define-key map [menu-bar regexp dashes-1]
|
2007-05-16 10:51:25 +00:00
|
|
|
|
'("--"))
|
2006-05-26 22:07:04 +00:00
|
|
|
|
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar regexp downcase]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Downcase" dired-downcase
|
|
|
|
|
|
;; When running on plain MS-DOS, there's only one
|
|
|
|
|
|
;; letter-case for file names.
|
|
|
|
|
|
:enable (or (not (fboundp 'msdos-long-file-names))
|
|
|
|
|
|
(msdos-long-file-names))
|
|
|
|
|
|
:help "Rename marked files to lower-case name"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar regexp upcase]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Upcase" dired-upcase
|
|
|
|
|
|
:enable (or (not (fboundp 'msdos-long-file-names))
|
|
|
|
|
|
(msdos-long-file-names))
|
|
|
|
|
|
:help "Rename marked files to upper-case name"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar regexp hardlink]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Hardlink..." dired-do-hardlink-regexp
|
|
|
|
|
|
:help "Make hard links for files matching regexp"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar regexp symlink]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Symlink..." dired-do-symlink-regexp
|
|
|
|
|
|
:visible (fboundp 'make-symbolic-link)
|
|
|
|
|
|
:help "Make symbolic links for files matching regexp"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar regexp rename]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Rename..." dired-do-rename-regexp
|
|
|
|
|
|
:help "Rename marked files matching regexp"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar regexp copy]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Copy..." dired-do-copy-regexp
|
|
|
|
|
|
:help "Copy marked files matching regexp"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar regexp flag]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Flag..." dired-flag-files-regexp
|
|
|
|
|
|
:help "Flag files matching regexp for deletion"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar regexp mark]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Mark..." dired-mark-files-regexp
|
|
|
|
|
|
:help "Mark files matching regexp for future operations"))
|
1999-01-07 19:40:25 +00:00
|
|
|
|
(define-key map [menu-bar regexp mark-cont]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Mark Containing..." dired-mark-files-containing-regexp
|
|
|
|
|
|
:help "Mark files whose contents matches regexp"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
|
|
|
|
|
|
(define-key map [menu-bar mark]
|
|
|
|
|
|
(cons "Mark" (make-sparse-keymap "Mark")))
|
|
|
|
|
|
|
|
|
|
|
|
(define-key map [menu-bar mark prev]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Previous Marked" dired-prev-marked-file
|
|
|
|
|
|
:help "Move to previous marked file"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar mark next]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Next Marked" dired-next-marked-file
|
|
|
|
|
|
:help "Move to next marked file"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar mark marks]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Change Marks..." dired-change-marks
|
|
|
|
|
|
:help "Replace marker with another character"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar mark unmark-all]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Unmark All" dired-unmark-all-marks))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar mark symlinks]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Mark Symlinks" dired-mark-symlinks
|
|
|
|
|
|
:visible (fboundp 'make-symbolic-link)
|
|
|
|
|
|
:help "Mark all symbolic links"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar mark directories]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Mark Directories" dired-mark-directories
|
|
|
|
|
|
:help "Mark all directories except `.' and `..'"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar mark directory]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Mark Old Backups" dired-clean-directory
|
|
|
|
|
|
:help "Flag old numbered backups for deletion"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar mark executables]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Mark Executables" dired-mark-executables
|
|
|
|
|
|
:help "Mark all executable files"))
|
1997-01-04 00:10:30 +00:00
|
|
|
|
(define-key map [menu-bar mark garbage-files]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Flag Garbage Files" dired-flag-garbage-files
|
|
|
|
|
|
:help "Flag unneeded files for deletion"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar mark backup-files]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Flag Backup Files" dired-flag-backup-files
|
|
|
|
|
|
:help "Flag all backup files for deletion"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar mark auto-save-files]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Flag Auto-save Files" dired-flag-auto-save-files
|
|
|
|
|
|
:help "Flag auto-save files for deletion"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar mark deletion]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Flag" dired-flag-file-deletion
|
|
|
|
|
|
:help "Flag current line's file for deletion"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar mark unmark]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Unmark" dired-unmark
|
|
|
|
|
|
:help "Unmark or unflag current line's file"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar mark mark]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Mark" dired-mark
|
|
|
|
|
|
:help "Mark current line's file for future operations"))
|
1998-02-27 21:45:01 +00:00
|
|
|
|
(define-key map [menu-bar mark toggle-marks]
|
2002-03-28 18:32:59 +00:00
|
|
|
|
'(menu-item "Toggle Marks" dired-toggle-marks
|
2000-02-24 12:59:48 +00:00
|
|
|
|
:help "Mark unmarked files, unmark marked ones"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
|
|
|
|
|
|
(define-key map [menu-bar operate]
|
|
|
|
|
|
(cons "Operate" (make-sparse-keymap "Operate")))
|
|
|
|
|
|
|
2006-05-26 22:07:04 +00:00
|
|
|
|
(define-key map
|
2007-04-22 13:40:00 +00:00
|
|
|
|
[menu-bar operate image-dired-delete-tag]
|
|
|
|
|
|
'(menu-item "Delete Image Tag..." image-dired-delete-tag
|
2006-05-26 22:33:53 +00:00
|
|
|
|
:help "Delete image tag from current or marked files"))
|
2006-05-26 22:07:04 +00:00
|
|
|
|
(define-key map
|
2007-04-22 13:40:00 +00:00
|
|
|
|
[menu-bar operate image-dired-tag-files]
|
|
|
|
|
|
'(menu-item "Add Image Tags..." image-dired-tag-files
|
2006-05-26 22:07:04 +00:00
|
|
|
|
:help "Add image tags to current or marked files"))
|
|
|
|
|
|
(define-key map
|
2007-04-22 13:40:00 +00:00
|
|
|
|
[menu-bar operate image-dired-dired-comment-files]
|
|
|
|
|
|
'(menu-item "Add Image Comment..." image-dired-dired-comment-files
|
2006-05-26 22:07:04 +00:00
|
|
|
|
:help "Add image comment to current or marked files"))
|
|
|
|
|
|
(define-key map
|
2007-04-22 13:40:00 +00:00
|
|
|
|
[menu-bar operate image-dired-display-thumbs]
|
2008-07-19 23:55:41 +00:00
|
|
|
|
'(menu-item "Display image thumbnails" image-dired-display-thumbs
|
|
|
|
|
|
:help "Display image thumbnails for current or marked image files"))
|
2007-05-16 10:51:25 +00:00
|
|
|
|
|
2009-11-15 16:23:07 +00:00
|
|
|
|
(define-key map [menu-bar operate dashes-4]
|
|
|
|
|
|
'("--"))
|
|
|
|
|
|
|
|
|
|
|
|
(define-key map
|
|
|
|
|
|
[menu-bar operate epa-dired-do-decrypt]
|
|
|
|
|
|
'(menu-item "Decrypt" epa-dired-do-decrypt
|
|
|
|
|
|
:help "Decrypt file at cursor"))
|
|
|
|
|
|
|
|
|
|
|
|
(define-key map
|
|
|
|
|
|
[menu-bar operate epa-dired-do-verify]
|
|
|
|
|
|
'(menu-item "Verify" epa-dired-do-verify
|
|
|
|
|
|
:help "Verify digital signature of file at cursor"))
|
|
|
|
|
|
|
|
|
|
|
|
(define-key map
|
|
|
|
|
|
[menu-bar operate epa-dired-do-sign]
|
|
|
|
|
|
'(menu-item "Sign" epa-dired-do-sign
|
|
|
|
|
|
:help "Create digital signature of file at cursor"))
|
|
|
|
|
|
|
|
|
|
|
|
(define-key map
|
|
|
|
|
|
[menu-bar operate epa-dired-do-encrypt]
|
|
|
|
|
|
'(menu-item "Encrypt" epa-dired-do-encrypt
|
|
|
|
|
|
:help "Encrypt file at cursor"))
|
|
|
|
|
|
|
2006-05-26 22:07:04 +00:00
|
|
|
|
(define-key map [menu-bar operate dashes-3]
|
2007-05-16 10:51:25 +00:00
|
|
|
|
'("--"))
|
2006-05-26 22:07:04 +00:00
|
|
|
|
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar operate query-replace]
|
2000-05-16 14:32:33 +00:00
|
|
|
|
'(menu-item "Query Replace in Files..." dired-do-query-replace-regexp
|
2000-02-24 12:59:48 +00:00
|
|
|
|
:help "Replace regexp in marked files"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar operate search]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Search Files..." dired-do-search
|
|
|
|
|
|
:help "Search marked files for regexp"))
|
2008-07-28 14:32:34 +00:00
|
|
|
|
(define-key map [menu-bar operate isearch-regexp]
|
|
|
|
|
|
'(menu-item "Isearch Regexp Files..." dired-do-isearch-regexp
|
|
|
|
|
|
:help "Incrementally search marked files for regexp"))
|
|
|
|
|
|
(define-key map [menu-bar operate isearch]
|
|
|
|
|
|
'(menu-item "Isearch Files..." dired-do-isearch
|
|
|
|
|
|
:help "Incrementally search marked files for string"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar operate chown]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Change Owner..." dired-do-chown
|
|
|
|
|
|
:visible (not (memq system-type '(ms-dos windows-nt)))
|
|
|
|
|
|
:help "Change the owner of marked files"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar operate chgrp]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Change Group..." dired-do-chgrp
|
|
|
|
|
|
:visible (not (memq system-type '(ms-dos windows-nt)))
|
|
|
|
|
|
:help "Change the group of marked files"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar operate chmod]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Change Mode..." dired-do-chmod
|
|
|
|
|
|
:help "Change mode (attributes) of marked files"))
|
2004-03-31 16:29:46 +00:00
|
|
|
|
(define-key map [menu-bar operate touch]
|
|
|
|
|
|
'(menu-item "Change Timestamp..." dired-do-touch
|
|
|
|
|
|
:help "Change timestamp of marked files"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar operate load]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Load" dired-do-load
|
|
|
|
|
|
:help "Load marked Emacs Lisp files"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar operate compile]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Byte-compile" dired-do-byte-compile
|
|
|
|
|
|
:help "Byte-compile marked Emacs Lisp files"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar operate compress]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Compress" dired-do-compress
|
|
|
|
|
|
:help "Compress/uncompress marked files"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar operate print]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Print..." dired-do-print
|
|
|
|
|
|
:help "Ask for print command and print marked files"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar operate hardlink]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Hardlink to..." dired-do-hardlink
|
|
|
|
|
|
:help "Make hard links for current or marked files"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar operate symlink]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Symlink to..." dired-do-symlink
|
|
|
|
|
|
:visible (fboundp 'make-symbolic-link)
|
|
|
|
|
|
:help "Make symbolic links for current or marked files"))
|
2009-09-15 02:36:26 +00:00
|
|
|
|
(define-key map [menu-bar operate async-command]
|
|
|
|
|
|
'(menu-item "Asynchronous Shell Command..." dired-do-async-shell-command
|
|
|
|
|
|
:help "Run a shell command asynchronously on current or marked files"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar operate command]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Shell Command..." dired-do-shell-command
|
2009-09-15 02:36:26 +00:00
|
|
|
|
:help "Run a shell command on current or marked files"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar operate delete]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Delete" dired-do-delete
|
|
|
|
|
|
:help "Delete current file or all marked files"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar operate rename]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Rename to..." dired-do-rename
|
|
|
|
|
|
:help "Rename current file or move marked files"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
(define-key map [menu-bar operate copy]
|
2000-02-24 12:59:48 +00:00
|
|
|
|
'(menu-item "Copy to..." dired-do-copy
|
|
|
|
|
|
:help "Copy current file or all marked files"))
|
1995-08-08 05:16:23 +00:00
|
|
|
|
|
2004-03-23 21:44:31 +00:00
|
|
|
|
map)
|
|
|
|
|
|
"Local keymap for `dired-mode' buffers.")
|
2001-01-26 13:14:11 +00:00
|
|
|
|
|
1992-05-30 23:52:26 +00:00
|
|
|
|
;; Dired mode is suitable only for specially formatted data.
|
|
|
|
|
|
(put 'dired-mode 'mode-class 'special)
|
|
|
|
|
|
|
2005-08-10 19:39:16 +00:00
|
|
|
|
;; Autoload cookie needed by desktop.el
|
|
|
|
|
|
;;;###autoload
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(defun dired-mode (&optional dirname switches)
|
|
|
|
|
|
"\
|
|
|
|
|
|
Mode for \"editing\" directory listings.
|
2001-11-12 17:05:13 +00:00
|
|
|
|
In Dired, you are \"editing\" a list of the files in a directory and
|
1992-06-24 02:13:56 +00:00
|
|
|
|
\(optionally) its subdirectories, in the format of `ls -lR'.
|
|
|
|
|
|
Each directory is a page: use \\[backward-page] and \\[forward-page] to move pagewise.
|
|
|
|
|
|
\"Editing\" means that you can run shell commands on files, visit,
|
|
|
|
|
|
compress, load or byte-compile them, change their file attributes
|
|
|
|
|
|
and insert subdirectories into the same buffer. You can \"mark\"
|
|
|
|
|
|
files for later commands or \"flag\" them for deletion, either file
|
|
|
|
|
|
by file or all files matching certain criteria.
|
|
|
|
|
|
You can move using the usual cursor motion commands.\\<dired-mode-map>
|
2011-07-01 11:56:36 +00:00
|
|
|
|
The buffer is read-only. Digits are prefix arguments.
|
|
|
|
|
|
Type \\[dired-flag-file-deletion] to flag a file `D' for deletion.
|
1992-06-24 02:13:56 +00:00
|
|
|
|
Type \\[dired-mark] to Mark a file or subdirectory for later commands.
|
|
|
|
|
|
Most commands operate on the marked files and use the current file
|
|
|
|
|
|
if no files are marked. Use a numeric prefix argument to operate on
|
|
|
|
|
|
the next ARG (or previous -ARG if ARG<0) files, or just `1'
|
|
|
|
|
|
to operate on the current file only. Prefix arguments override marks.
|
|
|
|
|
|
Mark-using commands display a list of failures afterwards. Type \\[dired-summary]
|
|
|
|
|
|
to see why something went wrong.
|
2011-07-01 11:56:36 +00:00
|
|
|
|
Type \\[dired-unmark] to Unmark a file or all files of an inserted subdirectory.
|
2011-07-06 17:10:36 +00:00
|
|
|
|
Type \\[dired-unmark-backward] to back up one line and unmark or unflag.
|
2011-07-01 11:56:36 +00:00
|
|
|
|
Type \\[dired-do-flagged-delete] to delete (eXecute) the files flagged `D'.
|
2009-09-11 00:58:59 +00:00
|
|
|
|
Type \\[dired-find-file] to Find the current line's file
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(or dired it in another buffer, if it is a directory).
|
|
|
|
|
|
Type \\[dired-find-file-other-window] to find file or dired directory in Other window.
|
|
|
|
|
|
Type \\[dired-maybe-insert-subdir] to Insert a subdirectory in this buffer.
|
|
|
|
|
|
Type \\[dired-do-rename] to Rename a file or move the marked files to another directory.
|
|
|
|
|
|
Type \\[dired-do-copy] to Copy files.
|
(dired-align-file, dired-flag-backup-files, dired-change-marks,
dired-unmark-all-files): "?\ " -> "?\s".
(dired-listing-switches, dired-ls-F-marks-symlinks, dired-dwim-target,
dired-load-hook, dired-mode-hook, dired-directory, dired-faces, dired,
dired-revert, dired-mode, dired-summary, dired-view-file,
dired-copy-filename-as-kill, dired-delete-file, dired-no-confirm,
dired-unmark-all-marks, dired-sort-by-date-regexp, dired-sort-by-name-regexp,
dired-sort-inhibit, dired-sort-other): Fix typos in docstrings.
(dired-undo, dired-get-file-for-visit, dired-sort-toggle-or-edit):
Fix typos in message strings.
2005-07-20 14:08:39 +00:00
|
|
|
|
Type \\[dired-sort-toggle-or-edit] to toggle Sorting by name/date or change the `ls' switches.
|
|
|
|
|
|
Type \\[revert-buffer] to read all currently expanded directories aGain.
|
1992-06-24 02:13:56 +00:00
|
|
|
|
This retains all marks and hides subdirs again that were hidden before.
|
2011-07-01 11:56:36 +00:00
|
|
|
|
Use `SPC' and `DEL' to move down and up by lines.
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
(dired-align-file, dired-flag-backup-files, dired-change-marks,
dired-unmark-all-files): "?\ " -> "?\s".
(dired-listing-switches, dired-ls-F-marks-symlinks, dired-dwim-target,
dired-load-hook, dired-mode-hook, dired-directory, dired-faces, dired,
dired-revert, dired-mode, dired-summary, dired-view-file,
dired-copy-filename-as-kill, dired-delete-file, dired-no-confirm,
dired-unmark-all-marks, dired-sort-by-date-regexp, dired-sort-by-name-regexp,
dired-sort-inhibit, dired-sort-other): Fix typos in docstrings.
(dired-undo, dired-get-file-for-visit, dired-sort-toggle-or-edit):
Fix typos in message strings.
2005-07-20 14:08:39 +00:00
|
|
|
|
If Dired ever gets confused, you can either type \\[revert-buffer] \
|
1992-06-24 02:13:56 +00:00
|
|
|
|
to read the
|
|
|
|
|
|
directories again, type \\[dired-do-redisplay] \
|
2011-07-01 11:56:36 +00:00
|
|
|
|
to relist the file at point or the marked files or a
|
1992-06-24 02:13:56 +00:00
|
|
|
|
subdirectory, or type \\[dired-build-subdir-alist] to parse the buffer
|
|
|
|
|
|
again for the directory tree.
|
|
|
|
|
|
|
|
|
|
|
|
Customization variables (rename this buffer and type \\[describe-variable] on each line
|
|
|
|
|
|
for more info):
|
|
|
|
|
|
|
2004-11-22 05:07:07 +00:00
|
|
|
|
`dired-listing-switches'
|
|
|
|
|
|
`dired-trivial-filenames'
|
|
|
|
|
|
`dired-shrink-to-fit'
|
|
|
|
|
|
`dired-marker-char'
|
|
|
|
|
|
`dired-del-marker'
|
|
|
|
|
|
`dired-keep-marker-rename'
|
|
|
|
|
|
`dired-keep-marker-copy'
|
|
|
|
|
|
`dired-keep-marker-hardlink'
|
|
|
|
|
|
`dired-keep-marker-symlink'
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
|
|
|
|
|
Hooks (use \\[describe-variable] to see their documentation):
|
|
|
|
|
|
|
2004-11-22 05:07:07 +00:00
|
|
|
|
`dired-before-readin-hook'
|
|
|
|
|
|
`dired-after-readin-hook'
|
|
|
|
|
|
`dired-mode-hook'
|
|
|
|
|
|
`dired-load-hook'
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
|
|
|
|
|
Keybindings:
|
1992-05-30 23:52:26 +00:00
|
|
|
|
\\{dired-mode-map}"
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;; Not to be called interactively (e.g. dired-directory will be set
|
|
|
|
|
|
;; to default-directory, which is wrong with wildcards).
|
1992-05-30 23:52:26 +00:00
|
|
|
|
(kill-all-local-variables)
|
|
|
|
|
|
(use-local-map dired-mode-map)
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(dired-advertise) ; default-directory is already set
|
|
|
|
|
|
(setq major-mode 'dired-mode
|
|
|
|
|
|
mode-name "Dired"
|
2004-11-22 05:07:07 +00:00
|
|
|
|
;; case-fold-search nil
|
1992-06-24 02:13:56 +00:00
|
|
|
|
buffer-read-only t
|
|
|
|
|
|
selective-display t ; for subdirectory hiding
|
2000-02-20 15:59:26 +00:00
|
|
|
|
mode-line-buffer-identification
|
|
|
|
|
|
(propertized-buffer-identification "%17b"))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(set (make-local-variable 'revert-buffer-function)
|
|
|
|
|
|
(function dired-revert))
|
2004-03-23 05:20:11 +00:00
|
|
|
|
(set (make-local-variable 'buffer-stale-function)
|
|
|
|
|
|
(function dired-buffer-stale-p))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(set (make-local-variable 'page-delimiter)
|
|
|
|
|
|
"\n\n")
|
|
|
|
|
|
(set (make-local-variable 'dired-directory)
|
|
|
|
|
|
(or dirname default-directory))
|
|
|
|
|
|
;; list-buffers uses this to display the dir being edited in this buffer.
|
2009-09-25 04:35:14 +00:00
|
|
|
|
(setq list-buffers-directory
|
|
|
|
|
|
(expand-file-name (if (listp dired-directory)
|
|
|
|
|
|
(car dired-directory)
|
|
|
|
|
|
dired-directory)))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(set (make-local-variable 'dired-actual-switches)
|
|
|
|
|
|
(or switches dired-listing-switches))
|
2004-03-23 21:44:31 +00:00
|
|
|
|
(set (make-local-variable 'font-lock-defaults)
|
|
|
|
|
|
'(dired-font-lock-keywords t nil nil beginning-of-line))
|
2004-04-26 18:56:23 +00:00
|
|
|
|
(set (make-local-variable 'desktop-save-buffer)
|
2004-04-21 20:52:18 +00:00
|
|
|
|
'dired-desktop-buffer-misc-data)
|
2004-06-06 02:22:41 +00:00
|
|
|
|
(setq dired-switches-alist nil)
|
2011-02-23 03:44:13 +00:00
|
|
|
|
(hack-dir-local-variables-non-file-buffer) ; before sorting
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(dired-sort-other dired-actual-switches t)
|
2005-04-11 19:28:07 +00:00
|
|
|
|
(when (featurep 'dnd)
|
2005-05-17 17:23:36 +00:00
|
|
|
|
(set (make-local-variable 'dnd-protocol-alist)
|
|
|
|
|
|
(append dired-dnd-protocol-alist dnd-protocol-alist)))
|
2009-11-25 17:11:29 +00:00
|
|
|
|
(add-hook 'file-name-at-point-functions 'dired-file-name-at-point nil t)
|
2008-07-29 14:42:07 +00:00
|
|
|
|
(add-hook 'isearch-mode-hook 'dired-isearch-filenames-setup nil t)
|
2005-05-11 19:32:51 +00:00
|
|
|
|
(run-mode-hooks 'dired-mode-hook))
|
2001-01-26 13:14:11 +00:00
|
|
|
|
|
1993-06-09 11:59:12 +00:00
|
|
|
|
;; Idiosyncratic dired commands that don't deal with marks.
|
1992-05-30 23:52:26 +00:00
|
|
|
|
|
|
|
|
|
|
(defun dired-summary ()
|
(dired-align-file, dired-flag-backup-files, dired-change-marks,
dired-unmark-all-files): "?\ " -> "?\s".
(dired-listing-switches, dired-ls-F-marks-symlinks, dired-dwim-target,
dired-load-hook, dired-mode-hook, dired-directory, dired-faces, dired,
dired-revert, dired-mode, dired-summary, dired-view-file,
dired-copy-filename-as-kill, dired-delete-file, dired-no-confirm,
dired-unmark-all-marks, dired-sort-by-date-regexp, dired-sort-by-name-regexp,
dired-sort-inhibit, dired-sort-other): Fix typos in docstrings.
(dired-undo, dired-get-file-for-visit, dired-sort-toggle-or-edit):
Fix typos in message strings.
2005-07-20 14:08:39 +00:00
|
|
|
|
"Summarize basic Dired commands and show recent dired errors."
|
1992-05-30 23:52:26 +00:00
|
|
|
|
(interactive)
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(dired-why)
|
1992-05-30 23:52:26 +00:00
|
|
|
|
;>> this should check the key-bindings and use substitute-command-keys if non-standard
|
|
|
|
|
|
(message
|
1993-06-18 17:55:42 +00:00
|
|
|
|
"d-elete, u-ndelete, x-punge, f-ind, o-ther window, R-ename, C-opy, h-elp"))
|
1992-05-30 23:52:26 +00:00
|
|
|
|
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(defun dired-undo ()
|
|
|
|
|
|
"Undo in a dired buffer.
|
|
|
|
|
|
This doesn't recover lost files, it just undoes changes in the buffer itself.
|
2004-06-07 18:29:14 +00:00
|
|
|
|
You can use it to recover marks, killed lines or subdirs."
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(interactive)
|
(dired-read-dir-and-switches): Ignore ., .., and
completion-ignored-extension directories if there's something else.
(dired-mark-if, dired-map-over-marks, dired-readin, dired-revert)
(dired-remember-marks, dired-undo, dired-build-subdir-alist)
(dired-internal-do-deletions, dired-mark-files-in-region, dired-mark)
(dired-toggle-marks, dired-change-marks, dired-unmark-all-files):
buffer-read-only -> inhibit-read-only.
2008-05-13 05:15:57 +00:00
|
|
|
|
(let ((inhibit-read-only t))
|
2004-06-07 18:29:14 +00:00
|
|
|
|
(undo))
|
|
|
|
|
|
(dired-build-subdir-alist)
|
(dired-align-file, dired-flag-backup-files, dired-change-marks,
dired-unmark-all-files): "?\ " -> "?\s".
(dired-listing-switches, dired-ls-F-marks-symlinks, dired-dwim-target,
dired-load-hook, dired-mode-hook, dired-directory, dired-faces, dired,
dired-revert, dired-mode, dired-summary, dired-view-file,
dired-copy-filename-as-kill, dired-delete-file, dired-no-confirm,
dired-unmark-all-marks, dired-sort-by-date-regexp, dired-sort-by-name-regexp,
dired-sort-inhibit, dired-sort-other): Fix typos in docstrings.
(dired-undo, dired-get-file-for-visit, dired-sort-toggle-or-edit):
Fix typos in message strings.
2005-07-20 14:08:39 +00:00
|
|
|
|
(message "Change in dired buffer undone.
|
2004-06-07 18:29:14 +00:00
|
|
|
|
Actual changes in files cannot be undone by Emacs."))
|
1992-05-30 23:52:26 +00:00
|
|
|
|
|
2007-07-29 09:18:15 +00:00
|
|
|
|
(defun dired-toggle-read-only ()
|
|
|
|
|
|
"Edit dired buffer with Wdired, or set it read-only.
|
|
|
|
|
|
Call `wdired-change-to-wdired-mode' in dired buffers whose editing is
|
|
|
|
|
|
supported by Wdired (the major mode of the dired buffer is `dired-mode').
|
|
|
|
|
|
Otherwise, for buffers inheriting from dired-mode, call `toggle-read-only'."
|
|
|
|
|
|
(interactive)
|
|
|
|
|
|
(if (eq major-mode 'dired-mode)
|
|
|
|
|
|
(wdired-change-to-wdired-mode)
|
|
|
|
|
|
(toggle-read-only)))
|
|
|
|
|
|
|
1992-05-30 23:52:26 +00:00
|
|
|
|
(defun dired-next-line (arg)
|
|
|
|
|
|
"Move down lines then position at filename.
|
|
|
|
|
|
Optional prefix ARG says how many lines to move; default is one line."
|
|
|
|
|
|
(interactive "p")
|
2007-10-18 16:00:00 +00:00
|
|
|
|
(forward-line arg)
|
1992-05-30 23:52:26 +00:00
|
|
|
|
(dired-move-to-filename))
|
|
|
|
|
|
|
|
|
|
|
|
(defun dired-previous-line (arg)
|
|
|
|
|
|
"Move up lines then position at filename.
|
|
|
|
|
|
Optional prefix ARG says how many lines to move; default is one line."
|
|
|
|
|
|
(interactive "p")
|
2007-10-18 16:00:00 +00:00
|
|
|
|
(forward-line (- arg))
|
1992-05-30 23:52:26 +00:00
|
|
|
|
(dired-move-to-filename))
|
|
|
|
|
|
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(defun dired-next-dirline (arg &optional opoint)
|
|
|
|
|
|
"Goto ARG'th next directory file line."
|
|
|
|
|
|
(interactive "p")
|
|
|
|
|
|
(or opoint (setq opoint (point)))
|
|
|
|
|
|
(if (if (> arg 0)
|
|
|
|
|
|
(re-search-forward dired-re-dir nil t arg)
|
|
|
|
|
|
(beginning-of-line)
|
|
|
|
|
|
(re-search-backward dired-re-dir nil t (- arg)))
|
|
|
|
|
|
(dired-move-to-filename) ; user may type `i' or `f'
|
|
|
|
|
|
(goto-char opoint)
|
|
|
|
|
|
(error "No more subdirectories")))
|
|
|
|
|
|
|
|
|
|
|
|
(defun dired-prev-dirline (arg)
|
|
|
|
|
|
"Goto ARG'th previous directory file line."
|
|
|
|
|
|
(interactive "p")
|
|
|
|
|
|
(dired-next-dirline (- arg)))
|
|
|
|
|
|
|
1995-09-12 23:20:42 +00:00
|
|
|
|
(defun dired-up-directory (&optional other-window)
|
2001-11-12 17:05:13 +00:00
|
|
|
|
"Run Dired on parent directory of current directory.
|
1992-06-24 02:13:56 +00:00
|
|
|
|
Find the parent directory either in this buffer or another buffer.
|
|
|
|
|
|
Creates a buffer if necessary."
|
1995-09-12 23:20:42 +00:00
|
|
|
|
(interactive "P")
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(let* ((dir (dired-current-directory))
|
|
|
|
|
|
(up (file-name-directory (directory-file-name dir))))
|
|
|
|
|
|
(or (dired-goto-file (directory-file-name dir))
|
1992-09-19 19:40:38 +00:00
|
|
|
|
;; Only try dired-goto-subdir if buffer has more than one dir.
|
|
|
|
|
|
(and (cdr dired-subdir-alist)
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(dired-goto-subdir up))
|
|
|
|
|
|
(progn
|
1995-09-12 23:20:42 +00:00
|
|
|
|
(if other-window
|
|
|
|
|
|
(dired-other-window up)
|
|
|
|
|
|
(dired up))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(dired-goto-file dir)))))
|
1992-05-30 23:52:26 +00:00
|
|
|
|
|
2001-11-12 17:05:13 +00:00
|
|
|
|
(defun dired-get-file-for-visit ()
|
|
|
|
|
|
"Get the current line's file name, with an error if file does not exist."
|
1997-05-28 03:35:42 +00:00
|
|
|
|
(interactive)
|
2003-06-04 09:02:55 +00:00
|
|
|
|
;; We pass t for second arg so that we don't get error for `.' and `..'.
|
|
|
|
|
|
(let ((raw (dired-get-filename nil t))
|
|
|
|
|
|
file-name)
|
|
|
|
|
|
(if (null raw)
|
|
|
|
|
|
(error "No file on this line"))
|
|
|
|
|
|
(setq file-name (file-name-sans-versions raw t))
|
1996-10-31 20:51:44 +00:00
|
|
|
|
(if (file-exists-p file-name)
|
2001-11-12 17:05:13 +00:00
|
|
|
|
file-name
|
1997-07-16 20:55:50 +00:00
|
|
|
|
(if (file-symlink-p file-name)
|
|
|
|
|
|
(error "File is a symlink to a nonexistent target")
|
(dired-align-file, dired-flag-backup-files, dired-change-marks,
dired-unmark-all-files): "?\ " -> "?\s".
(dired-listing-switches, dired-ls-F-marks-symlinks, dired-dwim-target,
dired-load-hook, dired-mode-hook, dired-directory, dired-faces, dired,
dired-revert, dired-mode, dired-summary, dired-view-file,
dired-copy-filename-as-kill, dired-delete-file, dired-no-confirm,
dired-unmark-all-marks, dired-sort-by-date-regexp, dired-sort-by-name-regexp,
dired-sort-inhibit, dired-sort-other): Fix typos in docstrings.
(dired-undo, dired-get-file-for-visit, dired-sort-toggle-or-edit):
Fix typos in message strings.
2005-07-20 14:08:39 +00:00
|
|
|
|
(error "File no longer exists; type `g' to update dired buffer")))))
|
1992-05-30 23:52:26 +00:00
|
|
|
|
|
2009-01-27 03:53:07 +00:00
|
|
|
|
;; Force C-m keybinding rather than `f' or `e' in the mode doc:
|
2009-09-11 00:58:59 +00:00
|
|
|
|
(define-obsolete-function-alias 'dired-advertised-find-file 'dired-find-file "23.2")
|
2001-11-12 17:05:13 +00:00
|
|
|
|
(defun dired-find-file ()
|
|
|
|
|
|
"In Dired, visit the file or directory named on this line."
|
|
|
|
|
|
(interactive)
|
2003-06-05 22:00:13 +00:00
|
|
|
|
;; Bind `find-file-run-dired' so that the command works on directories
|
2003-05-05 21:22:13 +00:00
|
|
|
|
;; too, independent of the user's setting.
|
|
|
|
|
|
(let ((find-file-run-dired t))
|
|
|
|
|
|
(find-file (dired-get-file-for-visit))))
|
2001-11-12 17:05:13 +00:00
|
|
|
|
|
2000-07-07 13:00:21 +00:00
|
|
|
|
(defun dired-find-alternate-file ()
|
2001-11-12 17:05:13 +00:00
|
|
|
|
"In Dired, visit this file or directory instead of the dired buffer."
|
2000-07-07 13:00:21 +00:00
|
|
|
|
(interactive)
|
|
|
|
|
|
(set-buffer-modified-p nil)
|
2001-11-12 17:05:13 +00:00
|
|
|
|
(find-alternate-file (dired-get-file-for-visit)))
|
2002-08-02 22:21:43 +00:00
|
|
|
|
;; Don't override the setting from .emacs.
|
2002-07-31 12:08:06 +00:00
|
|
|
|
;;;###autoload (put 'dired-find-alternate-file 'disabled t)
|
2000-07-07 13:00:21 +00:00
|
|
|
|
|
1994-03-30 17:22:59 +00:00
|
|
|
|
(defun dired-mouse-find-file-other-window (event)
|
2001-11-12 17:05:13 +00:00
|
|
|
|
"In Dired, visit the file or directory name you click on."
|
1994-03-30 17:22:59 +00:00
|
|
|
|
(interactive "e")
|
2002-04-23 03:14:48 +00:00
|
|
|
|
(let (window pos file)
|
1994-03-30 17:22:59 +00:00
|
|
|
|
(save-excursion
|
2002-04-23 03:14:48 +00:00
|
|
|
|
(setq window (posn-window (event-end event))
|
|
|
|
|
|
pos (posn-point (event-end event)))
|
|
|
|
|
|
(if (not (windowp window))
|
|
|
|
|
|
(error "No file chosen"))
|
|
|
|
|
|
(set-buffer (window-buffer window))
|
|
|
|
|
|
(goto-char pos)
|
|
|
|
|
|
(setq file (dired-get-file-for-visit)))
|
2003-08-29 16:10:45 +00:00
|
|
|
|
(if (file-directory-p file)
|
|
|
|
|
|
(or (and (cdr dired-subdir-alist)
|
|
|
|
|
|
(dired-goto-subdir file))
|
|
|
|
|
|
(progn
|
|
|
|
|
|
(select-window window)
|
|
|
|
|
|
(dired-other-window file)))
|
2005-01-01 14:20:10 +00:00
|
|
|
|
(select-window window)
|
|
|
|
|
|
(find-file-other-window (file-name-sans-versions file t)))))
|
2002-04-10 15:15:23 +00:00
|
|
|
|
|
1992-05-30 23:52:26 +00:00
|
|
|
|
(defun dired-view-file ()
|
(dired-align-file, dired-flag-backup-files, dired-change-marks,
dired-unmark-all-files): "?\ " -> "?\s".
(dired-listing-switches, dired-ls-F-marks-symlinks, dired-dwim-target,
dired-load-hook, dired-mode-hook, dired-directory, dired-faces, dired,
dired-revert, dired-mode, dired-summary, dired-view-file,
dired-copy-filename-as-kill, dired-delete-file, dired-no-confirm,
dired-unmark-all-marks, dired-sort-by-date-regexp, dired-sort-by-name-regexp,
dired-sort-inhibit, dired-sort-other): Fix typos in docstrings.
(dired-undo, dired-get-file-for-visit, dired-sort-toggle-or-edit):
Fix typos in message strings.
2005-07-20 14:08:39 +00:00
|
|
|
|
"In Dired, examine a file in view mode, returning to Dired when done.
|
2002-04-10 15:15:23 +00:00
|
|
|
|
When file is a directory, show it in this buffer if it is inserted.
|
2005-01-01 14:20:10 +00:00
|
|
|
|
Otherwise, display it in another buffer."
|
1992-05-30 23:52:26 +00:00
|
|
|
|
(interactive)
|
2001-11-12 17:05:13 +00:00
|
|
|
|
(let ((file (dired-get-file-for-visit)))
|
|
|
|
|
|
(if (file-directory-p file)
|
|
|
|
|
|
(or (and (cdr dired-subdir-alist)
|
|
|
|
|
|
(dired-goto-subdir file))
|
|
|
|
|
|
(dired file))
|
2005-01-01 14:20:10 +00:00
|
|
|
|
(view-file file))))
|
1992-05-30 23:52:26 +00:00
|
|
|
|
|
|
|
|
|
|
(defun dired-find-file-other-window ()
|
2001-11-12 17:05:13 +00:00
|
|
|
|
"In Dired, visit this file or directory in another window."
|
1992-05-30 23:52:26 +00:00
|
|
|
|
(interactive)
|
2001-11-12 17:05:13 +00:00
|
|
|
|
(find-file-other-window (dired-get-file-for-visit)))
|
1992-07-27 02:56:28 +00:00
|
|
|
|
|
|
|
|
|
|
(defun dired-display-file ()
|
2001-11-12 17:05:13 +00:00
|
|
|
|
"In Dired, display this file or directory in another window."
|
1992-07-27 02:56:28 +00:00
|
|
|
|
(interactive)
|
2001-11-12 17:05:13 +00:00
|
|
|
|
(display-buffer (find-file-noselect (dired-get-file-for-visit))))
|
2001-01-26 13:14:11 +00:00
|
|
|
|
|
2001-11-12 17:05:13 +00:00
|
|
|
|
;;; Functions for extracting and manipulating file names in Dired buffers.
|
1992-05-30 23:52:26 +00:00
|
|
|
|
|
|
|
|
|
|
(defun dired-get-filename (&optional localp no-error-if-not-filep)
|
2001-11-12 17:05:13 +00:00
|
|
|
|
"In Dired, return name of file mentioned on this line.
|
1992-05-30 23:52:26 +00:00
|
|
|
|
Value returned normally includes the directory name.
|
1992-06-24 02:13:56 +00:00
|
|
|
|
Optional arg LOCALP with value `no-dir' means don't include directory
|
2003-06-10 04:03:03 +00:00
|
|
|
|
name in result. A value of `verbatim' means to return the name exactly as
|
|
|
|
|
|
it occurs in the buffer, and a value of t means construct name relative to
|
|
|
|
|
|
`default-directory', which still may contain slashes if in a subdirectory.
|
|
|
|
|
|
Optional arg NO-ERROR-IF-NOT-FILEP means treat `.' and `..' as
|
|
|
|
|
|
regular filenames and return nil if no filename on this line.
|
|
|
|
|
|
Otherwise, an error occurs in these cases."
|
1999-12-16 09:43:32 +00:00
|
|
|
|
(let (case-fold-search file p1 p2 already-absolute)
|
1992-05-30 23:52:26 +00:00
|
|
|
|
(save-excursion
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(if (setq p1 (dired-move-to-filename (not no-error-if-not-filep)))
|
|
|
|
|
|
(setq p2 (dired-move-to-end-of-filename no-error-if-not-filep))))
|
|
|
|
|
|
;; nil if no file on this line, but no-error-if-not-filep is t:
|
1994-12-07 10:57:12 +00:00
|
|
|
|
(if (setq file (and p1 p2 (buffer-substring p1 p2)))
|
|
|
|
|
|
(progn
|
|
|
|
|
|
;; Get rid of the mouse-face property that file names have.
|
|
|
|
|
|
(set-text-properties 0 (length file) nil file)
|
|
|
|
|
|
;; Unquote names quoted by ls or by dired-insert-directory.
|
2009-04-02 22:16:17 +00:00
|
|
|
|
;; This code was written using `read' to unquote, because
|
|
|
|
|
|
;; it's faster than substituting \007 (4 chars) -> ^G (1
|
|
|
|
|
|
;; char) etc. in a lisp loop. Unfortunately, this decision
|
|
|
|
|
|
;; has necessitated hacks such as dealing with filenames
|
|
|
|
|
|
;; with quotation marks in their names.
|
|
|
|
|
|
(while (string-match "\\(?:[^\\]\\|\\`\\)\\(\"\\)" file)
|
|
|
|
|
|
(setq file (replace-match "\\\"" nil t file 1)))
|
2011-02-01 21:22:21 +00:00
|
|
|
|
|
2010-11-27 09:56:49 +00:00
|
|
|
|
(when (eq system-type 'windows-nt)
|
|
|
|
|
|
(save-match-data
|
|
|
|
|
|
(let ((start 0))
|
|
|
|
|
|
(while (string-match "\\\\" file start)
|
|
|
|
|
|
(aset file (match-beginning 0) ?/)
|
|
|
|
|
|
(setq start (match-end 0))))))
|
|
|
|
|
|
|
2009-04-02 22:16:17 +00:00
|
|
|
|
(setq file (read (concat "\"" file "\"")))
|
2003-03-19 11:58:25 +00:00
|
|
|
|
;; The above `read' will return a unibyte string if FILE
|
|
|
|
|
|
;; contains eight-bit-control/graphic characters.
|
|
|
|
|
|
(if (and enable-multibyte-characters
|
|
|
|
|
|
(not (multibyte-string-p file)))
|
|
|
|
|
|
(setq file (string-to-multibyte file)))))
|
1999-12-31 07:04:08 +00:00
|
|
|
|
(and file (file-name-absolute-p file)
|
2001-06-26 17:10:56 +00:00
|
|
|
|
;; A relative file name can start with ~.
|
|
|
|
|
|
;; Don't treat it as absolute in this context.
|
|
|
|
|
|
(not (eq (aref file 0) ?~))
|
1999-12-16 09:43:32 +00:00
|
|
|
|
(setq already-absolute t))
|
|
|
|
|
|
(cond
|
2002-02-06 15:30:40 +00:00
|
|
|
|
((null file)
|
|
|
|
|
|
nil)
|
2003-06-05 22:00:13 +00:00
|
|
|
|
((eq localp 'verbatim)
|
|
|
|
|
|
file)
|
2003-06-04 09:02:55 +00:00
|
|
|
|
((and (not no-error-if-not-filep)
|
2004-05-30 18:24:08 +00:00
|
|
|
|
(member file '("." "..")))
|
2003-06-04 09:02:55 +00:00
|
|
|
|
(error "Cannot operate on `.' or `..'"))
|
1999-12-16 09:43:32 +00:00
|
|
|
|
((and (eq localp 'no-dir) already-absolute)
|
|
|
|
|
|
(file-name-nondirectory file))
|
2002-02-06 15:30:40 +00:00
|
|
|
|
(already-absolute
|
2002-09-01 13:27:47 +00:00
|
|
|
|
(let ((handler (find-file-name-handler file nil)))
|
|
|
|
|
|
;; check for safe-magic property so that we won't
|
|
|
|
|
|
;; put /: for names that don't really need them.
|
2002-09-15 01:52:54 +00:00
|
|
|
|
;; For instance, .gz files when auto-compression-mode is on.
|
2002-09-01 13:27:47 +00:00
|
|
|
|
(if (and handler (not (get handler 'safe-magic)))
|
|
|
|
|
|
(concat "/:" file)
|
|
|
|
|
|
file)))
|
2002-02-06 15:30:40 +00:00
|
|
|
|
((eq localp 'no-dir)
|
1999-12-16 09:43:32 +00:00
|
|
|
|
file)
|
2002-02-06 15:30:40 +00:00
|
|
|
|
((equal (dired-current-directory) "/")
|
|
|
|
|
|
(setq file (concat (dired-current-directory localp) file))
|
2002-09-01 13:27:47 +00:00
|
|
|
|
(let ((handler (find-file-name-handler file nil)))
|
|
|
|
|
|
;; check for safe-magic property so that we won't
|
|
|
|
|
|
;; put /: for names that don't really need them.
|
|
|
|
|
|
;; For instance, .gz files when auto-compression-mode is on.
|
|
|
|
|
|
(if (and handler (not (get handler 'safe-magic)))
|
|
|
|
|
|
(concat "/:" file)
|
|
|
|
|
|
file)))
|
1999-12-16 09:43:32 +00:00
|
|
|
|
(t
|
2002-02-06 15:30:40 +00:00
|
|
|
|
(concat (dired-current-directory localp) file)))))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
1994-12-22 04:17:30 +00:00
|
|
|
|
(defun dired-string-replace-match (regexp string newtext
|
2003-06-05 22:00:13 +00:00
|
|
|
|
&optional literal global)
|
1994-12-22 04:17:30 +00:00
|
|
|
|
"Replace first match of REGEXP in STRING with NEWTEXT.
|
|
|
|
|
|
If it does not match, nil is returned instead of the new string.
|
|
|
|
|
|
Optional arg LITERAL means to take NEWTEXT literally.
|
|
|
|
|
|
Optional arg GLOBAL means to replace all matches."
|
|
|
|
|
|
(if global
|
1999-08-28 18:23:14 +00:00
|
|
|
|
(let ((start 0) ret)
|
1995-08-21 01:15:25 +00:00
|
|
|
|
(while (string-match regexp string start)
|
|
|
|
|
|
(let ((from-end (- (length string) (match-end 0))))
|
1999-08-28 18:23:14 +00:00
|
|
|
|
(setq ret (setq string (replace-match newtext t literal string)))
|
1995-08-21 01:15:25 +00:00
|
|
|
|
(setq start (- (length string) from-end))))
|
1999-08-28 18:23:14 +00:00
|
|
|
|
ret)
|
1994-12-22 04:17:30 +00:00
|
|
|
|
(if (not (string-match regexp string 0))
|
|
|
|
|
|
nil
|
1995-08-21 01:15:25 +00:00
|
|
|
|
(replace-match newtext t literal string))))
|
1994-12-22 04:17:30 +00:00
|
|
|
|
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(defun dired-make-absolute (file &optional dir)
|
2003-01-14 23:11:19 +00:00
|
|
|
|
;;"Convert FILE (a file name relative to DIR) to an absolute file name."
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;; We can't always use expand-file-name as this would get rid of `.'
|
|
|
|
|
|
;; or expand in / instead default-directory if DIR=="".
|
2008-07-31 05:33:56 +00:00
|
|
|
|
;; This should be good enough for ange-ftp.
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;; It should be reasonably fast, though, as it is called in
|
|
|
|
|
|
;; dired-get-filename.
|
|
|
|
|
|
(concat (or dir default-directory) file))
|
|
|
|
|
|
|
2011-03-01 05:03:24 +00:00
|
|
|
|
(defun dired-make-relative (file &optional dir _ignore)
|
1996-12-31 18:29:49 +00:00
|
|
|
|
"Convert FILE (an absolute file name) to a name relative to DIR.
|
|
|
|
|
|
If this is impossible, return FILE unchanged.
|
|
|
|
|
|
DIR must be a directory name, not a file name."
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(or dir (setq dir default-directory))
|
1993-11-14 00:06:23 +00:00
|
|
|
|
;; This case comes into play if default-directory is set to
|
|
|
|
|
|
;; use ~.
|
|
|
|
|
|
(if (and (> (length dir) 0) (= (aref dir 0) ?~))
|
|
|
|
|
|
(setq dir (expand-file-name dir)))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(if (string-match (concat "^" (regexp-quote dir)) file)
|
|
|
|
|
|
(substring file (match-end 0))
|
2004-06-11 22:38:52 +00:00
|
|
|
|
;;; (or no-error
|
1996-12-31 18:29:49 +00:00
|
|
|
|
;;; (error "%s: not in directory tree growing at %s" file dir))
|
|
|
|
|
|
file))
|
2001-01-26 13:14:11 +00:00
|
|
|
|
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;;; Functions for finding the file name in a dired buffer line.
|
|
|
|
|
|
|
1996-12-30 04:57:17 +00:00
|
|
|
|
(defvar dired-permission-flags-regexp
|
|
|
|
|
|
"\\([^ ]\\)[-r][-w]\\([^ ]\\)[-r][-w]\\([^ ]\\)[-r][-w]\\([^ ]\\)"
|
|
|
|
|
|
"Regular expression to match the permission flags in `ls -l'.")
|
|
|
|
|
|
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;; Move to first char of filename on this line.
|
|
|
|
|
|
;; Returns position (point) or nil if no filename on this line."
|
|
|
|
|
|
(defun dired-move-to-filename (&optional raise-error eol)
|
2004-09-29 03:14:30 +00:00
|
|
|
|
"Move to the beginning of the filename on the current line.
|
|
|
|
|
|
Return the position of the beginning of the filename, or nil if none found."
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;; This is the UNIX version.
|
2002-09-16 17:13:16 +00:00
|
|
|
|
(or eol (setq eol (line-end-position)))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(beginning-of-line)
|
2002-09-15 01:52:54 +00:00
|
|
|
|
;; First try assuming `ls --dired' was used.
|
2002-09-16 17:13:16 +00:00
|
|
|
|
(let ((change (next-single-property-change (point) 'dired-filename nil eol)))
|
|
|
|
|
|
(cond
|
|
|
|
|
|
((and change (< change eol))
|
|
|
|
|
|
(goto-char change))
|
2005-10-23 12:17:28 +00:00
|
|
|
|
((re-search-forward directory-listing-before-filename-regexp eol t)
|
2002-09-16 17:13:16 +00:00
|
|
|
|
(goto-char (match-end 0)))
|
|
|
|
|
|
((re-search-forward dired-permission-flags-regexp eol t)
|
|
|
|
|
|
;; Ha! There *is* a file. Our regexp-from-hell just failed to find it.
|
2004-09-25 18:35:53 +00:00
|
|
|
|
(if raise-error
|
2005-10-23 12:17:28 +00:00
|
|
|
|
(error "Unrecognized line! Check directory-listing-before-filename-regexp"))
|
2004-09-25 18:35:53 +00:00
|
|
|
|
(beginning-of-line)
|
|
|
|
|
|
nil)
|
2002-09-16 17:13:16 +00:00
|
|
|
|
(raise-error
|
|
|
|
|
|
(error "No file on this line")))))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
|
|
|
|
|
(defun dired-move-to-end-of-filename (&optional no-error)
|
|
|
|
|
|
;; Assumes point is at beginning of filename,
|
|
|
|
|
|
;; thus the rwx bit re-search-backward below will succeed in *this*
|
|
|
|
|
|
;; line if at all. So, it should be called only after
|
|
|
|
|
|
;; (dired-move-to-filename t).
|
|
|
|
|
|
;; On failure, signals an error (with non-nil NO-ERROR just returns nil).
|
|
|
|
|
|
;; This is the UNIX version.
|
2002-09-15 01:52:54 +00:00
|
|
|
|
(if (get-text-property (point) 'dired-filename)
|
|
|
|
|
|
(goto-char (next-single-property-change (point) 'dired-filename))
|
|
|
|
|
|
(let (opoint file-type executable symlink hidden case-fold-search used-F eol)
|
|
|
|
|
|
;; case-fold-search is nil now, so we can test for capital F:
|
|
|
|
|
|
(setq used-F (string-match "F" dired-actual-switches)
|
|
|
|
|
|
opoint (point)
|
Use line-end-position rather than end-of-line, etc.
* textmodes/texnfo-upd.el (texinfo-start-menu-description)
(texinfo-update-menu-region-beginning, texinfo-menu-first-node)
(texinfo-delete-existing-pointers, texinfo-find-pointer)
(texinfo-clean-up-node-line, texinfo-insert-node-lines)
(texinfo-multiple-files-update):
* textmodes/table.el (table--probe-cell-left-up)
(table--probe-cell-right-bottom):
* textmodes/picture.el (picture-tab-search):
* textmodes/page-ext.el (pages-copy-header-and-position)
(pages-directory-for-addresses):
* progmodes/vera-mode.el (vera-get-offset):
* progmodes/simula.el (simula-calculate-indent):
* progmodes/python.el (python-pdbtrack-overlay-arrow):
* progmodes/prolog.el (end-of-prolog-clause):
* progmodes/perl-mode.el (perl-calculate-indent, perl-indent-exp):
* progmodes/icon.el (indent-icon-exp):
* progmodes/etags.el (tag-re-match-p):
* progmodes/ebrowse.el (ebrowse-show-file-name-at-point):
* progmodes/ebnf2ps.el (ebnf-begin-file):
* progmodes/dcl-mode.el (dcl-back-to-indentation-1)
(dcl-save-local-variable):
* play/life.el (life-setup):
* play/gametree.el (gametree-looking-at-ply):
* nxml/nxml-maint.el (nxml-insert-target-repertoire-glyph-set):
* mail/sendmail.el (mail-mode-auto-fill):
* emacs-lisp/lisp-mode.el (calculate-lisp-indent):
* emacs-lisp/edebug.el (edebug-overlay-arrow):
* emacs-lisp/checkdoc.el (checkdoc-this-string-valid):
* woman.el (woman-parse-numeric-value, woman2-TH, woman2-SH)
(woman-tab-to-tab-stop, WoMan-warn-ignored):
* type-break.el (type-break-file-keystroke-count):
* term.el (term-replace-by-expanded-history-before-point)
(term-skip-prompt, term-extract-string):
* speedbar.el (speedbar-edit-line, speedbar-expand-line)
(speedbar-contract-line, speedbar-toggle-line-expansion)
(speedbar-parse-c-or-c++tag, speedbar-parse-tex-string)
(speedbar-buffer-revert-buffer, speedbar-highlight-one-tag-line):
* sort.el (sort-skip-fields):
* skeleton.el (skeleton-internal-list):
* simple.el (line-move-finish, line-move-to-column):
* shell.el (shell-forward-command):
* misc.el (copy-from-above-command):
* makesum.el (double-column):
* ebuff-menu.el (electric-buffer-update-highlight):
* dired.el (dired-move-to-end-of-filename):
* dframe.el (dframe-popup-kludge):
* bookmark.el (bookmark-kill-line, bookmark-bmenu-show-filenames):
* arc-mode.el (archive-get-lineno):
Use line-end-position and line-beginning-position.
* net/ange-ftp.el, progmodes/hideif.el, reposition.el:
Same, but only in comments.
2010-11-06 20:23:42 +00:00
|
|
|
|
eol (line-end-position)
|
2002-09-15 01:52:54 +00:00
|
|
|
|
hidden (and selective-display
|
|
|
|
|
|
(save-excursion (search-forward "\r" eol t))))
|
|
|
|
|
|
(if hidden
|
|
|
|
|
|
nil
|
|
|
|
|
|
(save-excursion ;; Find out what kind of file this is:
|
|
|
|
|
|
;; Restrict perm bits to be non-blank,
|
|
|
|
|
|
;; otherwise this matches one char to early (looking backward):
|
|
|
|
|
|
;; "l---------" (some systems make symlinks that way)
|
|
|
|
|
|
;; "----------" (plain file with zero perms)
|
|
|
|
|
|
(if (re-search-backward
|
|
|
|
|
|
dired-permission-flags-regexp nil t)
|
|
|
|
|
|
(setq file-type (char-after (match-beginning 1))
|
|
|
|
|
|
symlink (eq file-type ?l)
|
|
|
|
|
|
;; Only with -F we need to know whether it's an executable
|
|
|
|
|
|
executable (and
|
|
|
|
|
|
used-F
|
|
|
|
|
|
(string-match
|
|
|
|
|
|
"[xst]" ;; execute bit set anywhere?
|
|
|
|
|
|
(concat
|
2004-03-26 15:17:50 +00:00
|
|
|
|
(match-string 2)
|
|
|
|
|
|
(match-string 3)
|
|
|
|
|
|
(match-string 4)))))
|
2002-09-15 01:52:54 +00:00
|
|
|
|
(or no-error (error "No file on this line"))))
|
|
|
|
|
|
;; Move point to end of name:
|
|
|
|
|
|
(if symlink
|
2004-09-29 03:14:30 +00:00
|
|
|
|
(if (search-forward " -> " eol t)
|
2002-09-15 01:52:54 +00:00
|
|
|
|
(progn
|
2004-09-29 03:14:30 +00:00
|
|
|
|
(forward-char -4)
|
2002-09-15 01:52:54 +00:00
|
|
|
|
(and used-F
|
|
|
|
|
|
dired-ls-F-marks-symlinks
|
|
|
|
|
|
(eq (preceding-char) ?@) ;; did ls really mark the link?
|
|
|
|
|
|
(forward-char -1))))
|
|
|
|
|
|
(goto-char eol) ;; else not a symbolic link
|
2005-08-18 11:30:44 +00:00
|
|
|
|
;; ls -lF marks dirs, sockets, fifos and executables with exactly
|
|
|
|
|
|
;; one trailing character. (Executable bits on symlinks ain't mean
|
2002-09-15 01:52:54 +00:00
|
|
|
|
;; a thing, even to ls, but we know it's not a symlink.)
|
|
|
|
|
|
(and used-F
|
2005-08-18 11:30:44 +00:00
|
|
|
|
(or (memq file-type '(?d ?s ?p))
|
2002-09-15 01:52:54 +00:00
|
|
|
|
executable)
|
|
|
|
|
|
(forward-char -1))))
|
|
|
|
|
|
(or no-error
|
|
|
|
|
|
(not (eq opoint (point)))
|
2007-12-06 17:56:42 +00:00
|
|
|
|
(error "%s" (if hidden
|
2002-09-15 01:52:54 +00:00
|
|
|
|
(substitute-command-keys
|
|
|
|
|
|
"File line is hidden, type \\[dired-hide-subdir] to unhide")
|
|
|
|
|
|
"No file on this line")))
|
|
|
|
|
|
(if (eq opoint (point))
|
|
|
|
|
|
nil
|
|
|
|
|
|
(point)))))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
2001-12-17 01:58:05 +00:00
|
|
|
|
|
|
|
|
|
|
;;; COPY NAMES OF MARKED FILES INTO KILL-RING.
|
|
|
|
|
|
|
|
|
|
|
|
(defun dired-copy-filename-as-kill (&optional arg)
|
|
|
|
|
|
"Copy names of marked (or next ARG) files into the kill ring.
|
|
|
|
|
|
The names are separated by a space.
|
2003-01-14 23:11:19 +00:00
|
|
|
|
With a zero prefix arg, use the absolute file name of each marked file.
|
(dired-align-file, dired-flag-backup-files, dired-change-marks,
dired-unmark-all-files): "?\ " -> "?\s".
(dired-listing-switches, dired-ls-F-marks-symlinks, dired-dwim-target,
dired-load-hook, dired-mode-hook, dired-directory, dired-faces, dired,
dired-revert, dired-mode, dired-summary, dired-view-file,
dired-copy-filename-as-kill, dired-delete-file, dired-no-confirm,
dired-unmark-all-marks, dired-sort-by-date-regexp, dired-sort-by-name-regexp,
dired-sort-inhibit, dired-sort-other): Fix typos in docstrings.
(dired-undo, dired-get-file-for-visit, dired-sort-toggle-or-edit):
Fix typos in message strings.
2005-07-20 14:08:39 +00:00
|
|
|
|
With \\[universal-argument], use the file name relative to the dired buffer's
|
2005-04-04 23:58:11 +00:00
|
|
|
|
`default-directory'. (This still may contain slashes if in a subdirectory.)
|
2001-12-17 01:58:05 +00:00
|
|
|
|
|
2005-04-04 23:58:11 +00:00
|
|
|
|
If on a subdir headerline, use absolute subdirname instead;
|
|
|
|
|
|
prefix arg and marked files are ignored in this case.
|
2001-12-17 01:58:05 +00:00
|
|
|
|
|
|
|
|
|
|
You can then feed the file name(s) to other commands with \\[yank]."
|
|
|
|
|
|
(interactive "P")
|
|
|
|
|
|
(let ((string
|
|
|
|
|
|
(or (dired-get-subdir)
|
|
|
|
|
|
(mapconcat (function identity)
|
|
|
|
|
|
(if arg
|
|
|
|
|
|
(cond ((zerop (prefix-numeric-value arg))
|
|
|
|
|
|
(dired-get-marked-files))
|
2005-04-04 23:58:11 +00:00
|
|
|
|
((consp arg)
|
|
|
|
|
|
(dired-get-marked-files t))
|
|
|
|
|
|
(t
|
|
|
|
|
|
(dired-get-marked-files
|
|
|
|
|
|
'no-dir (prefix-numeric-value arg))))
|
2001-12-17 01:58:05 +00:00
|
|
|
|
(dired-get-marked-files 'no-dir))
|
|
|
|
|
|
" "))))
|
2002-01-07 05:31:29 +00:00
|
|
|
|
(if (eq last-command 'kill-region)
|
|
|
|
|
|
(kill-append string nil)
|
|
|
|
|
|
(kill-new string))
|
2001-12-17 01:58:05 +00:00
|
|
|
|
(message "%s" string)))
|
|
|
|
|
|
|
2001-01-26 13:14:11 +00:00
|
|
|
|
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;; Keeping Dired buffers in sync with the filesystem and with each other
|
|
|
|
|
|
|
1997-03-22 03:40:55 +00:00
|
|
|
|
(defun dired-buffers-for-dir (dir &optional file)
|
2010-07-17 21:25:32 +00:00
|
|
|
|
;; Return a list of buffers for DIR (top level or in-situ subdir).
|
1997-03-22 03:40:55 +00:00
|
|
|
|
;; If FILE is non-nil, include only those whose wildcard pattern (if any)
|
|
|
|
|
|
;; matches FILE.
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;; The list is in reverse order of buffer creation, most recent last.
|
|
|
|
|
|
;; As a side effect, killed dired buffers for DIR are removed from
|
|
|
|
|
|
;; dired-buffers.
|
|
|
|
|
|
(setq dir (file-name-as-directory dir))
|
2010-07-17 21:25:32 +00:00
|
|
|
|
(let (result buf)
|
|
|
|
|
|
(dolist (elt dired-buffers)
|
|
|
|
|
|
(setq buf (cdr elt))
|
|
|
|
|
|
(cond
|
|
|
|
|
|
((null (buffer-name buf))
|
|
|
|
|
|
;; Buffer is killed - clean up:
|
1994-09-16 21:34:27 +00:00
|
|
|
|
(setq dired-buffers (delq elt dired-buffers)))
|
2010-07-17 21:25:32 +00:00
|
|
|
|
((dired-in-this-tree dir (car elt))
|
|
|
|
|
|
(with-current-buffer buf
|
|
|
|
|
|
(and (assoc dir dired-subdir-alist)
|
|
|
|
|
|
(or (null file)
|
|
|
|
|
|
(if (stringp dired-directory)
|
|
|
|
|
|
(let ((wildcards (file-name-nondirectory
|
|
|
|
|
|
dired-directory)))
|
|
|
|
|
|
(or (= 0 (length wildcards))
|
|
|
|
|
|
(string-match (dired-glob-regexp wildcards)
|
|
|
|
|
|
file)))
|
|
|
|
|
|
(member (expand-file-name file dir)
|
|
|
|
|
|
(cdr dired-directory))))
|
|
|
|
|
|
(setq result (cons buf result)))))))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
result))
|
|
|
|
|
|
|
1997-03-22 03:40:55 +00:00
|
|
|
|
(defun dired-glob-regexp (pattern)
|
|
|
|
|
|
"Convert glob-pattern PATTERN to a regular expression."
|
|
|
|
|
|
(let ((matched-in-pattern 0) ;; How many chars of PATTERN we've handled.
|
|
|
|
|
|
regexp)
|
|
|
|
|
|
(while (string-match "[[?*]" pattern matched-in-pattern)
|
|
|
|
|
|
(let ((op-end (match-end 0))
|
|
|
|
|
|
(next-op (aref pattern (match-beginning 0))))
|
|
|
|
|
|
(setq regexp (concat regexp
|
|
|
|
|
|
(regexp-quote
|
|
|
|
|
|
(substring pattern matched-in-pattern
|
|
|
|
|
|
(match-beginning 0)))))
|
|
|
|
|
|
(cond ((= next-op ??)
|
|
|
|
|
|
(setq regexp (concat regexp "."))
|
|
|
|
|
|
(setq matched-in-pattern op-end))
|
|
|
|
|
|
((= next-op ?\[)
|
|
|
|
|
|
;; Fails to handle ^ yet ????
|
|
|
|
|
|
(let* ((set-start (match-beginning 0))
|
|
|
|
|
|
(set-cont
|
|
|
|
|
|
(if (= (aref pattern (1+ set-start)) ?^)
|
|
|
|
|
|
(+ 3 set-start)
|
|
|
|
|
|
(+ 2 set-start)))
|
|
|
|
|
|
(set-end (string-match "]" pattern set-cont))
|
|
|
|
|
|
(set (substring pattern set-start (1+ set-end))))
|
|
|
|
|
|
(setq regexp (concat regexp set))
|
|
|
|
|
|
(setq matched-in-pattern (1+ set-end))))
|
|
|
|
|
|
((= next-op ?*)
|
|
|
|
|
|
(setq regexp (concat regexp ".*"))
|
|
|
|
|
|
(setq matched-in-pattern op-end)))))
|
|
|
|
|
|
(concat "\\`"
|
|
|
|
|
|
regexp
|
|
|
|
|
|
(regexp-quote
|
|
|
|
|
|
(substring pattern matched-in-pattern))
|
|
|
|
|
|
"\\'")))
|
|
|
|
|
|
|
2003-01-31 15:24:20 +00:00
|
|
|
|
|
1997-03-22 03:40:55 +00:00
|
|
|
|
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(defun dired-advertise ()
|
|
|
|
|
|
;;"Advertise in variable `dired-buffers' that we dired `default-directory'."
|
|
|
|
|
|
;; With wildcards we actually advertise too much.
|
1994-09-16 21:34:27 +00:00
|
|
|
|
(let ((expanded-default (expand-file-name default-directory)))
|
|
|
|
|
|
(if (memq (current-buffer) (dired-buffers-for-dir expanded-default))
|
|
|
|
|
|
t ; we have already advertised ourselves
|
|
|
|
|
|
(setq dired-buffers
|
|
|
|
|
|
(cons (cons expanded-default (current-buffer))
|
|
|
|
|
|
dired-buffers)))))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
|
|
|
|
|
(defun dired-unadvertise (dir)
|
|
|
|
|
|
;; Remove DIR from the buffer alist in variable dired-buffers.
|
|
|
|
|
|
;; This has the effect of removing any buffer whose main directory is DIR.
|
|
|
|
|
|
;; It does not affect buffers in which DIR is a subdir.
|
|
|
|
|
|
;; Removing is also done as a side-effect in dired-buffer-for-dir.
|
|
|
|
|
|
(setq dired-buffers
|
1994-09-16 21:34:27 +00:00
|
|
|
|
(delq (assoc (expand-file-name dir) dired-buffers) dired-buffers)))
|
2001-01-26 13:14:11 +00:00
|
|
|
|
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;; Tree Dired
|
|
|
|
|
|
|
|
|
|
|
|
;;; utility functions
|
|
|
|
|
|
|
|
|
|
|
|
(defun dired-in-this-tree (file dir)
|
|
|
|
|
|
;;"Is FILE part of the directory tree starting at DIR?"
|
|
|
|
|
|
(let (case-fold-search)
|
1994-09-16 21:34:27 +00:00
|
|
|
|
(string-match (concat "^" (regexp-quote dir)) file)))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
|
|
|
|
|
(defun dired-normalize-subdir (dir)
|
2003-01-14 23:11:19 +00:00
|
|
|
|
;; Prepend default-directory to DIR if relative file name.
|
|
|
|
|
|
;; dired-get-filename must be able to make a valid file name from a
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;; file and its directory DIR.
|
|
|
|
|
|
(file-name-as-directory
|
|
|
|
|
|
(if (file-name-absolute-p dir)
|
|
|
|
|
|
dir
|
|
|
|
|
|
(expand-file-name dir default-directory))))
|
|
|
|
|
|
|
|
|
|
|
|
(defun dired-get-subdir ()
|
|
|
|
|
|
;;"Return the subdir name on this line, or nil if not on a headerline."
|
|
|
|
|
|
;; Look up in the alist whether this is a headerline.
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(let ((cur-dir (dired-current-directory)))
|
|
|
|
|
|
(beginning-of-line) ; alist stores b-o-l positions
|
|
|
|
|
|
(and (zerop (- (point)
|
|
|
|
|
|
(dired-get-subdir-min (assoc cur-dir
|
|
|
|
|
|
dired-subdir-alist))))
|
|
|
|
|
|
cur-dir))))
|
|
|
|
|
|
|
|
|
|
|
|
;(defun dired-get-subdir-min (elt)
|
|
|
|
|
|
; (cdr elt))
|
|
|
|
|
|
;; can't use macro, must be redefinable for other alist format in dired-nstd.
|
1993-04-26 04:19:48 +00:00
|
|
|
|
(defalias 'dired-get-subdir-min 'cdr)
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
|
|
|
|
|
(defun dired-get-subdir-max (elt)
|
1992-05-30 23:52:26 +00:00
|
|
|
|
(save-excursion
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(goto-char (dired-get-subdir-min elt))
|
|
|
|
|
|
(dired-subdir-max)))
|
|
|
|
|
|
|
|
|
|
|
|
(defun dired-clear-alist ()
|
|
|
|
|
|
(while dired-subdir-alist
|
|
|
|
|
|
(set-marker (dired-get-subdir-min (car dired-subdir-alist)) nil)
|
|
|
|
|
|
(setq dired-subdir-alist (cdr dired-subdir-alist))))
|
|
|
|
|
|
|
1992-09-11 09:04:24 +00:00
|
|
|
|
(defun dired-subdir-index (dir)
|
|
|
|
|
|
;; Return an index into alist for use with nth
|
|
|
|
|
|
;; for the sake of subdir moving commands.
|
|
|
|
|
|
(let (found (index 0) (alist dired-subdir-alist))
|
|
|
|
|
|
(while alist
|
|
|
|
|
|
(if (string= dir (car (car alist)))
|
|
|
|
|
|
(setq alist nil found t)
|
|
|
|
|
|
(setq alist (cdr alist) index (1+ index))))
|
|
|
|
|
|
(if found index nil)))
|
|
|
|
|
|
|
|
|
|
|
|
(defun dired-next-subdir (arg &optional no-error-if-not-found no-skip)
|
|
|
|
|
|
"Go to next subdirectory, regardless of level."
|
|
|
|
|
|
;; Use 0 arg to go to this directory's header line.
|
|
|
|
|
|
;; NO-SKIP prevents moving to end of header line, returning whatever
|
|
|
|
|
|
;; position was found in dired-subdir-alist.
|
|
|
|
|
|
(interactive "p")
|
|
|
|
|
|
(let ((this-dir (dired-current-directory))
|
|
|
|
|
|
pos index)
|
|
|
|
|
|
;; nth with negative arg does not return nil but the first element
|
|
|
|
|
|
(setq index (- (dired-subdir-index this-dir) arg))
|
|
|
|
|
|
(setq pos (if (>= index 0)
|
|
|
|
|
|
(dired-get-subdir-min (nth index dired-subdir-alist))))
|
|
|
|
|
|
(if pos
|
|
|
|
|
|
(progn
|
|
|
|
|
|
(goto-char pos)
|
|
|
|
|
|
(or no-skip (skip-chars-forward "^\n\r"))
|
|
|
|
|
|
(point))
|
|
|
|
|
|
(if no-error-if-not-found
|
|
|
|
|
|
nil ; return nil if not found
|
|
|
|
|
|
(error "%s directory" (if (> arg 0) "Last" "First"))))))
|
|
|
|
|
|
|
2001-09-21 16:41:58 +00:00
|
|
|
|
(defun dired-build-subdir-alist (&optional switches)
|
1992-06-24 02:13:56 +00:00
|
|
|
|
"Build `dired-subdir-alist' by parsing the buffer.
|
2001-09-21 16:41:58 +00:00
|
|
|
|
Returns the new value of the alist.
|
|
|
|
|
|
If optional arg SWITCHES is non-nil, use its value
|
|
|
|
|
|
instead of `dired-actual-switches'."
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(interactive)
|
|
|
|
|
|
(dired-clear-alist)
|
|
|
|
|
|
(save-excursion
|
2001-09-21 16:41:58 +00:00
|
|
|
|
(let* ((count 0)
|
(dired-read-dir-and-switches): Ignore ., .., and
completion-ignored-extension directories if there's something else.
(dired-mark-if, dired-map-over-marks, dired-readin, dired-revert)
(dired-remember-marks, dired-undo, dired-build-subdir-alist)
(dired-internal-do-deletions, dired-mark-files-in-region, dired-mark)
(dired-toggle-marks, dired-change-marks, dired-unmark-all-files):
buffer-read-only -> inhibit-read-only.
2008-05-13 05:15:57 +00:00
|
|
|
|
(inhibit-read-only t)
|
2005-02-16 09:39:06 +00:00
|
|
|
|
(buffer-undo-list t)
|
2001-09-21 16:41:58 +00:00
|
|
|
|
(switches (or switches dired-actual-switches))
|
|
|
|
|
|
new-dir-name
|
|
|
|
|
|
(R-ftp-base-dir-regex
|
|
|
|
|
|
;; Used to expand subdirectory names correctly in recursive
|
|
|
|
|
|
;; ange-ftp listings.
|
|
|
|
|
|
(and (string-match "R" switches)
|
|
|
|
|
|
(string-match "\\`/.*:\\(/.*\\)" default-directory)
|
|
|
|
|
|
(concat "\\`" (match-string 1 default-directory)))))
|
1992-05-30 23:52:26 +00:00
|
|
|
|
(goto-char (point-min))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(setq dired-subdir-alist nil)
|
2006-09-24 20:37:13 +00:00
|
|
|
|
(while (re-search-forward dired-subdir-regexp nil t)
|
|
|
|
|
|
;; Avoid taking a file name ending in a colon
|
|
|
|
|
|
;; as a subdir name.
|
|
|
|
|
|
(unless (save-excursion
|
|
|
|
|
|
(goto-char (match-beginning 0))
|
|
|
|
|
|
(beginning-of-line)
|
|
|
|
|
|
(forward-char 2)
|
|
|
|
|
|
(save-match-data (looking-at dired-re-perms)))
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(goto-char (match-beginning 1))
|
|
|
|
|
|
(setq new-dir-name
|
|
|
|
|
|
(buffer-substring-no-properties (point) (match-end 1))
|
|
|
|
|
|
new-dir-name
|
|
|
|
|
|
(save-match-data
|
|
|
|
|
|
(if (and R-ftp-base-dir-regex
|
|
|
|
|
|
(not (string= new-dir-name default-directory))
|
|
|
|
|
|
(string-match R-ftp-base-dir-regex new-dir-name))
|
|
|
|
|
|
(concat default-directory
|
|
|
|
|
|
(substring new-dir-name (match-end 0)))
|
|
|
|
|
|
(expand-file-name new-dir-name))))
|
|
|
|
|
|
(delete-region (point) (match-end 1))
|
2006-10-02 03:08:47 +00:00
|
|
|
|
(insert new-dir-name))
|
|
|
|
|
|
(setq count (1+ count))
|
|
|
|
|
|
(dired-alist-add-1 new-dir-name
|
|
|
|
|
|
;; Place a sub directory boundary between lines.
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(goto-char (match-beginning 0))
|
|
|
|
|
|
(beginning-of-line)
|
|
|
|
|
|
(point-marker)))))
|
2009-10-02 03:48:36 +00:00
|
|
|
|
(if (and (> count 1) (called-interactively-p 'interactive))
|
2006-09-24 20:37:13 +00:00
|
|
|
|
(message "Buffer includes %d directories" count)))
|
|
|
|
|
|
;; We don't need to sort it because it is in buffer order per
|
|
|
|
|
|
;; constructionem. Return new alist:
|
|
|
|
|
|
dired-subdir-alist))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
|
|
|
|
|
(defun dired-alist-add-1 (dir new-marker)
|
|
|
|
|
|
;; Add new DIR at NEW-MARKER. Don't sort.
|
|
|
|
|
|
(setq dired-subdir-alist
|
|
|
|
|
|
(cons (cons (dired-normalize-subdir dir) new-marker)
|
|
|
|
|
|
dired-subdir-alist)))
|
|
|
|
|
|
|
|
|
|
|
|
(defun dired-goto-next-nontrivial-file ()
|
|
|
|
|
|
;; Position point on first nontrivial file after point.
|
|
|
|
|
|
(dired-goto-next-file);; so there is a file to compare with
|
|
|
|
|
|
(if (stringp dired-trivial-filenames)
|
|
|
|
|
|
(while (and (not (eobp))
|
|
|
|
|
|
(string-match dired-trivial-filenames
|
|
|
|
|
|
(file-name-nondirectory
|
|
|
|
|
|
(or (dired-get-filename nil t) ""))))
|
|
|
|
|
|
(forward-line 1)
|
|
|
|
|
|
(dired-move-to-filename))))
|
|
|
|
|
|
|
|
|
|
|
|
(defun dired-goto-next-file ()
|
|
|
|
|
|
(let ((max (1- (dired-subdir-max))))
|
|
|
|
|
|
(while (and (not (dired-move-to-filename)) (< (point) max))
|
|
|
|
|
|
(forward-line 1))))
|
|
|
|
|
|
|
|
|
|
|
|
(defun dired-goto-file (file)
|
2006-05-21 00:22:46 +00:00
|
|
|
|
"Go to line describing file FILE in this dired buffer."
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;; Return value of point on success, else nil.
|
2003-01-14 23:11:19 +00:00
|
|
|
|
;; FILE must be an absolute file name.
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;; Loses if FILE contains control chars like "\007" for which ls
|
|
|
|
|
|
;; either inserts "?" or "\\007" into the buffer, so we won't find
|
|
|
|
|
|
;; it in the buffer.
|
|
|
|
|
|
(interactive
|
|
|
|
|
|
(prog1 ; let push-mark display its message
|
|
|
|
|
|
(list (expand-file-name
|
|
|
|
|
|
(read-file-name "Goto file: "
|
|
|
|
|
|
(dired-current-directory))))
|
|
|
|
|
|
(push-mark)))
|
|
|
|
|
|
(setq file (directory-file-name file)) ; does no harm if no directory
|
|
|
|
|
|
(let (found case-fold-search dir)
|
|
|
|
|
|
(setq dir (or (file-name-directory file)
|
2002-12-28 21:26:46 +00:00
|
|
|
|
(error "File name `%s' is not absolute" file)))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(save-excursion
|
|
|
|
|
|
;; The hair here is to get the result of dired-goto-subdir
|
|
|
|
|
|
;; without really calling it if we don't have any subdirs.
|
1993-12-23 04:40:58 +00:00
|
|
|
|
(if (if (string= dir (expand-file-name default-directory))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(goto-char (point-min))
|
1992-09-19 19:40:38 +00:00
|
|
|
|
(and (cdr dired-subdir-alist)
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(dired-goto-subdir dir)))
|
|
|
|
|
|
(let ((base (file-name-nondirectory file))
|
2002-12-28 21:26:46 +00:00
|
|
|
|
search-string
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(boundary (dired-subdir-max)))
|
2002-12-28 21:26:46 +00:00
|
|
|
|
(setq search-string
|
|
|
|
|
|
(replace-regexp-in-string "\^m" "\\^m" base nil t))
|
|
|
|
|
|
(setq search-string
|
|
|
|
|
|
(replace-regexp-in-string "\\\\" "\\\\" search-string nil t))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(while (and (not found)
|
|
|
|
|
|
;; filenames are preceded by SPC, this makes
|
|
|
|
|
|
;; the search faster (e.g. for the filename "-"!).
|
2002-12-28 21:26:46 +00:00
|
|
|
|
(search-forward (concat " " search-string)
|
|
|
|
|
|
boundary 'move))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;; Match could have BASE just as initial substring or
|
|
|
|
|
|
;; or in permission bits or date or
|
|
|
|
|
|
;; not be a proper filename at all:
|
|
|
|
|
|
(if (equal base (dired-get-filename 'no-dir t))
|
|
|
|
|
|
;; Must move to filename since an (actually
|
|
|
|
|
|
;; correct) match could have been elsewhere on the
|
|
|
|
|
|
;; ;; line (e.g. "-" would match somewhere in the
|
|
|
|
|
|
;; permission bits).
|
1993-11-23 00:11:43 +00:00
|
|
|
|
(setq found (dired-move-to-filename))
|
|
|
|
|
|
;; If this isn't the right line, move forward to avoid
|
|
|
|
|
|
;; trying this line again.
|
|
|
|
|
|
(forward-line 1))))))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(and found
|
|
|
|
|
|
;; return value of point (i.e., FOUND):
|
|
|
|
|
|
(goto-char found))))
|
|
|
|
|
|
|
2011-02-19 04:12:23 +00:00
|
|
|
|
(defvar dired-find-subdir)
|
|
|
|
|
|
|
|
|
|
|
|
;; FIXME document whatever dired-x is doing.
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(defun dired-initial-position (dirname)
|
2011-02-19 04:12:23 +00:00
|
|
|
|
"Where point should go in a new listing of DIRNAME.
|
|
|
|
|
|
Point assumed at beginning of new subdir line."
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(end-of-line)
|
2011-02-19 04:12:23 +00:00
|
|
|
|
(and (featurep 'dired-x) dired-find-subdir
|
|
|
|
|
|
(dired-goto-subdir dirname))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(if dired-trivial-filenames (dired-goto-next-nontrivial-file)))
|
2001-01-26 13:14:11 +00:00
|
|
|
|
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;; These are hooks which make tree dired work.
|
|
|
|
|
|
;; They are in this file because other parts of dired need to call them.
|
|
|
|
|
|
;; But they don't call the rest of tree dired unless there are subdirs loaded.
|
|
|
|
|
|
|
|
|
|
|
|
;; This function is called for each retrieved filename.
|
|
|
|
|
|
;; It could stand to be faster, though it's mostly function call
|
|
|
|
|
|
;; overhead. Avoiding the function call seems to save about 10% in
|
|
|
|
|
|
;; dired-get-filename. Make it a defsubst?
|
|
|
|
|
|
(defun dired-current-directory (&optional localp)
|
|
|
|
|
|
"Return the name of the subdirectory to which this line belongs.
|
|
|
|
|
|
This returns a string with trailing slash, like `default-directory'.
|
|
|
|
|
|
Optional argument means return a file name relative to `default-directory'."
|
|
|
|
|
|
(let ((here (point))
|
|
|
|
|
|
(alist (or dired-subdir-alist
|
|
|
|
|
|
;; probably because called in a non-dired buffer
|
|
|
|
|
|
(error "No subdir-alist in %s" (current-buffer))))
|
|
|
|
|
|
elt dir)
|
|
|
|
|
|
(while alist
|
|
|
|
|
|
(setq elt (car alist)
|
|
|
|
|
|
dir (car elt)
|
|
|
|
|
|
;; use `<=' (not `<') as subdir line is part of subdir
|
|
|
|
|
|
alist (if (<= (dired-get-subdir-min elt) here)
|
|
|
|
|
|
nil ; found
|
|
|
|
|
|
(cdr alist))))
|
|
|
|
|
|
(if localp
|
|
|
|
|
|
(dired-make-relative dir default-directory)
|
|
|
|
|
|
dir)))
|
|
|
|
|
|
|
|
|
|
|
|
;; Subdirs start at the beginning of their header lines and end just
|
|
|
|
|
|
;; before the beginning of the next header line (or end of buffer).
|
|
|
|
|
|
|
|
|
|
|
|
(defun dired-subdir-max ()
|
|
|
|
|
|
(save-excursion
|
1992-09-19 19:40:38 +00:00
|
|
|
|
(if (or (null (cdr dired-subdir-alist)) (not (dired-next-subdir 1 t t)))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(point-max)
|
|
|
|
|
|
(point))))
|
2001-01-26 13:14:11 +00:00
|
|
|
|
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;; Deleting files
|
|
|
|
|
|
|
2007-07-29 09:18:15 +00:00
|
|
|
|
(defcustom dired-recursive-deletes 'top
|
2008-12-03 05:48:14 +00:00
|
|
|
|
"Decide whether recursive deletes are allowed.
|
2007-05-16 10:51:25 +00:00
|
|
|
|
A value of nil means no recursive deletes.
|
1999-09-15 23:29:16 +00:00
|
|
|
|
`always' means delete recursively without asking. This is DANGEROUS!
|
|
|
|
|
|
`top' means ask for each directory at top level, but delete its subdirectories
|
|
|
|
|
|
without asking.
|
|
|
|
|
|
Anything else means ask for each directory."
|
2003-01-06 01:20:35 +00:00
|
|
|
|
:type '(choice :tag "Delete non-empty directories"
|
|
|
|
|
|
(const :tag "Yes" always)
|
|
|
|
|
|
(const :tag "No--only delete empty directories" nil)
|
|
|
|
|
|
(const :tag "Confirm for each directory" t)
|
|
|
|
|
|
(const :tag "Confirm for each top directory only" top))
|
1999-09-15 23:29:16 +00:00
|
|
|
|
:group 'dired)
|
|
|
|
|
|
|
2003-01-31 15:24:20 +00:00
|
|
|
|
;; Match anything but `.' and `..'.
|
1999-09-15 23:29:16 +00:00
|
|
|
|
(defvar dired-re-no-dot "^\\([^.]\\|\\.\\([^.]\\|\\..\\)\\).*")
|
|
|
|
|
|
|
|
|
|
|
|
;; Delete file, possibly delete a directory and all its files.
|
|
|
|
|
|
;; This function is usefull outside of dired. One could change it's name
|
|
|
|
|
|
;; to e.g. recursive-delete-file and put it somewhere else.
|
Change delete-by-moving-to-trash so Lisp calls explicitly request trashing.
* src/fileio.c (Fdelete_file): Change meaning of optional arg to mean
whether to trash.
(internal_delete_file, Frename_file): Callers changed.
(delete_by_moving_to_trash): Doc fix.
(Fdelete_directory_internal): Don't move to trash.
* src/callproc.c (delete_temp_file):
* src/buffer.c (Fkill_buffer): Callers changed.
* src/lisp.h: Update prototype.
* lisp/diff.el (diff-sentinel):
* lisp/epg.el (epg--make-temp-file, epg-decrypt-string)
(epg-verify-string, epg-sign-string, epg-encrypt-string):
* lisp/jka-compr.el (jka-compr-partial-uncompress)
(jka-compr-call-process, jka-compr-write-region):
* lisp/server.el (server-sentinel): Remove optional arg from
delete-file, reverting 2010-05-03 change.
* lisp/dired.el (dired-delete-file): New arg TRASH.
(dired-internal-do-deletions): New arg TRASH. Use progress
reporter.
(dired-do-flagged-delete, dired-do-delete): Use trash.
* lisp/files.el (delete-directory): New arg TRASH.
* lisp/speedbar.el (speedbar-item-delete): Allow trashing.
* lisp/net/ange-ftp.el (ange-ftp-del-tmp-name, ange-ftp-delete-file)
(ange-ftp-rename-remote-to-remote)
(ange-ftp-rename-local-to-remote)
(ange-ftp-rename-remote-to-local, ange-ftp-load)
(ange-ftp-compress, ange-ftp-uncompress): Remove optional arg from
`delete-file'.
(ange-ftp-delete-directory): Add optional arg to `delete-file', to
allow trashing.
* lisp/net/tramp-compat.el (tramp-compat-delete-file): Rewrite to
handle new TRASH arg of `delete-file'.
* lisp/net/tramp-fish.el (tramp-fish-handle-delete-directory)
(tramp-fish-handle-delete-file)
(tramp-fish-handle-make-symbolic-link)
(tramp-fish-handle-process-file): Use null TRASH arg in
`tramp-compat-delete-file' call.
* lisp/net/tramp-ftp.el (tramp-ftp-file-name-handler): Use null TRASH
arg in `tramp-compat-delete-file' call.
* lisp/net/tramp-gvfs.el (tramp-gvfs-handle-delete-file): Rename arg.
(tramp-gvfs-handle-write-region): Use null TRASH arg in
`tramp-compat-delete-file' call.
* lisp/net/tramp-imap.el (tramp-imap-handle-delete-file): Rename arg.
(tramp-imap-do-copy-or-rename-file): Use null TRASH arg in
`tramp-compat-delete-file' call.
* lisp/net/tramp-smb.el (tramp-smb-handle-copy-file)
(tramp-smb-handle-file-local-copy, tramp-smb-handle-rename-file)
(tramp-smb-handle-write-region): Use null TRASH arg in
tramp-compat-delete-file call.
(tramp-smb-handle-delete-directory): Use tramp-compat-delete-file.
(tramp-smb-handle-delete-file): Rename arg.
* lisp/net/tramp.el (tramp-handle-delete-file): Change FORCE arg to TRASH.
(tramp-handle-make-symbolic-link, tramp-handle-load)
(tramp-do-copy-or-rename-file-via-buffer)
(tramp-do-copy-or-rename-file-directly)
(tramp-do-copy-or-rename-file-out-of-band)
(tramp-handle-process-file, tramp-handle-call-process-region)
(tramp-handle-shell-command, tramp-handle-file-local-copy)
(tramp-handle-insert-file-contents, tramp-handle-write-region)
(tramp-delete-temp-file-function): Use null TRASH arg in
tramp-compat-delete-file call.
2010-05-27 23:30:11 +00:00
|
|
|
|
(defun dired-delete-file (file &optional recursive trash) "\
|
1999-09-15 23:29:16 +00:00
|
|
|
|
Delete FILE or directory (possibly recursively if optional RECURSIVE is true.)
|
|
|
|
|
|
RECURSIVE determines what to do with a non-empty directory. If RECURSIVE is:
|
(dired-align-file, dired-flag-backup-files, dired-change-marks,
dired-unmark-all-files): "?\ " -> "?\s".
(dired-listing-switches, dired-ls-F-marks-symlinks, dired-dwim-target,
dired-load-hook, dired-mode-hook, dired-directory, dired-faces, dired,
dired-revert, dired-mode, dired-summary, dired-view-file,
dired-copy-filename-as-kill, dired-delete-file, dired-no-confirm,
dired-unmark-all-marks, dired-sort-by-date-regexp, dired-sort-by-name-regexp,
dired-sort-inhibit, dired-sort-other): Fix typos in docstrings.
(dired-undo, dired-get-file-for-visit, dired-sort-toggle-or-edit):
Fix typos in message strings.
2005-07-20 14:08:39 +00:00
|
|
|
|
nil, do not delete.
|
1999-09-15 23:29:16 +00:00
|
|
|
|
`always', delete recursively without asking.
|
|
|
|
|
|
`top', ask for each directory at top level.
|
|
|
|
|
|
Anything else, ask for each sub-directory."
|
2009-10-01 15:01:32 +00:00
|
|
|
|
;; This test is equivalent to
|
|
|
|
|
|
;; (and (file-directory-p fn) (not (file-symlink-p fn)))
|
|
|
|
|
|
;; but more efficient
|
|
|
|
|
|
(if (not (eq t (car (file-attributes file))))
|
Change delete-by-moving-to-trash so Lisp calls explicitly request trashing.
* src/fileio.c (Fdelete_file): Change meaning of optional arg to mean
whether to trash.
(internal_delete_file, Frename_file): Callers changed.
(delete_by_moving_to_trash): Doc fix.
(Fdelete_directory_internal): Don't move to trash.
* src/callproc.c (delete_temp_file):
* src/buffer.c (Fkill_buffer): Callers changed.
* src/lisp.h: Update prototype.
* lisp/diff.el (diff-sentinel):
* lisp/epg.el (epg--make-temp-file, epg-decrypt-string)
(epg-verify-string, epg-sign-string, epg-encrypt-string):
* lisp/jka-compr.el (jka-compr-partial-uncompress)
(jka-compr-call-process, jka-compr-write-region):
* lisp/server.el (server-sentinel): Remove optional arg from
delete-file, reverting 2010-05-03 change.
* lisp/dired.el (dired-delete-file): New arg TRASH.
(dired-internal-do-deletions): New arg TRASH. Use progress
reporter.
(dired-do-flagged-delete, dired-do-delete): Use trash.
* lisp/files.el (delete-directory): New arg TRASH.
* lisp/speedbar.el (speedbar-item-delete): Allow trashing.
* lisp/net/ange-ftp.el (ange-ftp-del-tmp-name, ange-ftp-delete-file)
(ange-ftp-rename-remote-to-remote)
(ange-ftp-rename-local-to-remote)
(ange-ftp-rename-remote-to-local, ange-ftp-load)
(ange-ftp-compress, ange-ftp-uncompress): Remove optional arg from
`delete-file'.
(ange-ftp-delete-directory): Add optional arg to `delete-file', to
allow trashing.
* lisp/net/tramp-compat.el (tramp-compat-delete-file): Rewrite to
handle new TRASH arg of `delete-file'.
* lisp/net/tramp-fish.el (tramp-fish-handle-delete-directory)
(tramp-fish-handle-delete-file)
(tramp-fish-handle-make-symbolic-link)
(tramp-fish-handle-process-file): Use null TRASH arg in
`tramp-compat-delete-file' call.
* lisp/net/tramp-ftp.el (tramp-ftp-file-name-handler): Use null TRASH
arg in `tramp-compat-delete-file' call.
* lisp/net/tramp-gvfs.el (tramp-gvfs-handle-delete-file): Rename arg.
(tramp-gvfs-handle-write-region): Use null TRASH arg in
`tramp-compat-delete-file' call.
* lisp/net/tramp-imap.el (tramp-imap-handle-delete-file): Rename arg.
(tramp-imap-do-copy-or-rename-file): Use null TRASH arg in
`tramp-compat-delete-file' call.
* lisp/net/tramp-smb.el (tramp-smb-handle-copy-file)
(tramp-smb-handle-file-local-copy, tramp-smb-handle-rename-file)
(tramp-smb-handle-write-region): Use null TRASH arg in
tramp-compat-delete-file call.
(tramp-smb-handle-delete-directory): Use tramp-compat-delete-file.
(tramp-smb-handle-delete-file): Rename arg.
* lisp/net/tramp.el (tramp-handle-delete-file): Change FORCE arg to TRASH.
(tramp-handle-make-symbolic-link, tramp-handle-load)
(tramp-do-copy-or-rename-file-via-buffer)
(tramp-do-copy-or-rename-file-directly)
(tramp-do-copy-or-rename-file-out-of-band)
(tramp-handle-process-file, tramp-handle-call-process-region)
(tramp-handle-shell-command, tramp-handle-file-local-copy)
(tramp-handle-insert-file-contents, tramp-handle-write-region)
(tramp-delete-temp-file-function): Use null TRASH arg in
tramp-compat-delete-file call.
2010-05-27 23:30:11 +00:00
|
|
|
|
(delete-file file trash)
|
2009-10-01 15:01:32 +00:00
|
|
|
|
(if (and recursive
|
|
|
|
|
|
(directory-files file t dired-re-no-dot) ; Not empty.
|
|
|
|
|
|
(or (eq recursive 'always)
|
Change delete-by-moving-to-trash so Lisp calls explicitly request trashing.
* src/fileio.c (Fdelete_file): Change meaning of optional arg to mean
whether to trash.
(internal_delete_file, Frename_file): Callers changed.
(delete_by_moving_to_trash): Doc fix.
(Fdelete_directory_internal): Don't move to trash.
* src/callproc.c (delete_temp_file):
* src/buffer.c (Fkill_buffer): Callers changed.
* src/lisp.h: Update prototype.
* lisp/diff.el (diff-sentinel):
* lisp/epg.el (epg--make-temp-file, epg-decrypt-string)
(epg-verify-string, epg-sign-string, epg-encrypt-string):
* lisp/jka-compr.el (jka-compr-partial-uncompress)
(jka-compr-call-process, jka-compr-write-region):
* lisp/server.el (server-sentinel): Remove optional arg from
delete-file, reverting 2010-05-03 change.
* lisp/dired.el (dired-delete-file): New arg TRASH.
(dired-internal-do-deletions): New arg TRASH. Use progress
reporter.
(dired-do-flagged-delete, dired-do-delete): Use trash.
* lisp/files.el (delete-directory): New arg TRASH.
* lisp/speedbar.el (speedbar-item-delete): Allow trashing.
* lisp/net/ange-ftp.el (ange-ftp-del-tmp-name, ange-ftp-delete-file)
(ange-ftp-rename-remote-to-remote)
(ange-ftp-rename-local-to-remote)
(ange-ftp-rename-remote-to-local, ange-ftp-load)
(ange-ftp-compress, ange-ftp-uncompress): Remove optional arg from
`delete-file'.
(ange-ftp-delete-directory): Add optional arg to `delete-file', to
allow trashing.
* lisp/net/tramp-compat.el (tramp-compat-delete-file): Rewrite to
handle new TRASH arg of `delete-file'.
* lisp/net/tramp-fish.el (tramp-fish-handle-delete-directory)
(tramp-fish-handle-delete-file)
(tramp-fish-handle-make-symbolic-link)
(tramp-fish-handle-process-file): Use null TRASH arg in
`tramp-compat-delete-file' call.
* lisp/net/tramp-ftp.el (tramp-ftp-file-name-handler): Use null TRASH
arg in `tramp-compat-delete-file' call.
* lisp/net/tramp-gvfs.el (tramp-gvfs-handle-delete-file): Rename arg.
(tramp-gvfs-handle-write-region): Use null TRASH arg in
`tramp-compat-delete-file' call.
* lisp/net/tramp-imap.el (tramp-imap-handle-delete-file): Rename arg.
(tramp-imap-do-copy-or-rename-file): Use null TRASH arg in
`tramp-compat-delete-file' call.
* lisp/net/tramp-smb.el (tramp-smb-handle-copy-file)
(tramp-smb-handle-file-local-copy, tramp-smb-handle-rename-file)
(tramp-smb-handle-write-region): Use null TRASH arg in
tramp-compat-delete-file call.
(tramp-smb-handle-delete-directory): Use tramp-compat-delete-file.
(tramp-smb-handle-delete-file): Rename arg.
* lisp/net/tramp.el (tramp-handle-delete-file): Change FORCE arg to TRASH.
(tramp-handle-make-symbolic-link, tramp-handle-load)
(tramp-do-copy-or-rename-file-via-buffer)
(tramp-do-copy-or-rename-file-directly)
(tramp-do-copy-or-rename-file-out-of-band)
(tramp-handle-process-file, tramp-handle-call-process-region)
(tramp-handle-shell-command, tramp-handle-file-local-copy)
(tramp-handle-insert-file-contents, tramp-handle-write-region)
(tramp-delete-temp-file-function): Use null TRASH arg in
tramp-compat-delete-file call.
2010-05-27 23:30:11 +00:00
|
|
|
|
(yes-or-no-p (format "Recursively %s %s? "
|
|
|
|
|
|
(if (and trash
|
|
|
|
|
|
delete-by-moving-to-trash)
|
|
|
|
|
|
"trash"
|
|
|
|
|
|
"delete")
|
2009-10-01 15:01:32 +00:00
|
|
|
|
(dired-make-relative file)))))
|
1999-09-15 23:29:16 +00:00
|
|
|
|
(if (eq recursive 'top) (setq recursive 'always)) ; Don't ask again.
|
2009-10-01 15:01:32 +00:00
|
|
|
|
(setq recursive nil))
|
Change delete-by-moving-to-trash so Lisp calls explicitly request trashing.
* src/fileio.c (Fdelete_file): Change meaning of optional arg to mean
whether to trash.
(internal_delete_file, Frename_file): Callers changed.
(delete_by_moving_to_trash): Doc fix.
(Fdelete_directory_internal): Don't move to trash.
* src/callproc.c (delete_temp_file):
* src/buffer.c (Fkill_buffer): Callers changed.
* src/lisp.h: Update prototype.
* lisp/diff.el (diff-sentinel):
* lisp/epg.el (epg--make-temp-file, epg-decrypt-string)
(epg-verify-string, epg-sign-string, epg-encrypt-string):
* lisp/jka-compr.el (jka-compr-partial-uncompress)
(jka-compr-call-process, jka-compr-write-region):
* lisp/server.el (server-sentinel): Remove optional arg from
delete-file, reverting 2010-05-03 change.
* lisp/dired.el (dired-delete-file): New arg TRASH.
(dired-internal-do-deletions): New arg TRASH. Use progress
reporter.
(dired-do-flagged-delete, dired-do-delete): Use trash.
* lisp/files.el (delete-directory): New arg TRASH.
* lisp/speedbar.el (speedbar-item-delete): Allow trashing.
* lisp/net/ange-ftp.el (ange-ftp-del-tmp-name, ange-ftp-delete-file)
(ange-ftp-rename-remote-to-remote)
(ange-ftp-rename-local-to-remote)
(ange-ftp-rename-remote-to-local, ange-ftp-load)
(ange-ftp-compress, ange-ftp-uncompress): Remove optional arg from
`delete-file'.
(ange-ftp-delete-directory): Add optional arg to `delete-file', to
allow trashing.
* lisp/net/tramp-compat.el (tramp-compat-delete-file): Rewrite to
handle new TRASH arg of `delete-file'.
* lisp/net/tramp-fish.el (tramp-fish-handle-delete-directory)
(tramp-fish-handle-delete-file)
(tramp-fish-handle-make-symbolic-link)
(tramp-fish-handle-process-file): Use null TRASH arg in
`tramp-compat-delete-file' call.
* lisp/net/tramp-ftp.el (tramp-ftp-file-name-handler): Use null TRASH
arg in `tramp-compat-delete-file' call.
* lisp/net/tramp-gvfs.el (tramp-gvfs-handle-delete-file): Rename arg.
(tramp-gvfs-handle-write-region): Use null TRASH arg in
`tramp-compat-delete-file' call.
* lisp/net/tramp-imap.el (tramp-imap-handle-delete-file): Rename arg.
(tramp-imap-do-copy-or-rename-file): Use null TRASH arg in
`tramp-compat-delete-file' call.
* lisp/net/tramp-smb.el (tramp-smb-handle-copy-file)
(tramp-smb-handle-file-local-copy, tramp-smb-handle-rename-file)
(tramp-smb-handle-write-region): Use null TRASH arg in
tramp-compat-delete-file call.
(tramp-smb-handle-delete-directory): Use tramp-compat-delete-file.
(tramp-smb-handle-delete-file): Rename arg.
* lisp/net/tramp.el (tramp-handle-delete-file): Change FORCE arg to TRASH.
(tramp-handle-make-symbolic-link, tramp-handle-load)
(tramp-do-copy-or-rename-file-via-buffer)
(tramp-do-copy-or-rename-file-directly)
(tramp-do-copy-or-rename-file-out-of-band)
(tramp-handle-process-file, tramp-handle-call-process-region)
(tramp-handle-shell-command, tramp-handle-file-local-copy)
(tramp-handle-insert-file-contents, tramp-handle-write-region)
(tramp-delete-temp-file-function): Use null TRASH arg in
tramp-compat-delete-file call.
2010-05-27 23:30:11 +00:00
|
|
|
|
(delete-directory file recursive trash)))
|
1999-09-15 23:29:16 +00:00
|
|
|
|
|
1995-07-31 23:13:54 +00:00
|
|
|
|
(defun dired-do-flagged-delete (&optional nomessage)
|
2001-11-12 17:05:13 +00:00
|
|
|
|
"In Dired, delete the files flagged for deletion.
|
1995-07-31 23:13:54 +00:00
|
|
|
|
If NOMESSAGE is non-nil, we don't display any message
|
2007-05-31 21:10:49 +00:00
|
|
|
|
if there are no flagged files.
|
2007-07-29 09:18:15 +00:00
|
|
|
|
`dired-recursive-deletes' controls whether deletion of
|
|
|
|
|
|
non-empty directories is allowed."
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(interactive)
|
|
|
|
|
|
(let* ((dired-marker-char dired-del-marker)
|
|
|
|
|
|
(regexp (dired-marker-regexp))
|
|
|
|
|
|
case-fold-search)
|
|
|
|
|
|
(if (save-excursion (goto-char (point-min))
|
|
|
|
|
|
(re-search-forward regexp nil t))
|
|
|
|
|
|
(dired-internal-do-deletions
|
|
|
|
|
|
;; this can't move point since ARG is nil
|
|
|
|
|
|
(dired-map-over-marks (cons (dired-get-filename) (point))
|
|
|
|
|
|
nil)
|
Change delete-by-moving-to-trash so Lisp calls explicitly request trashing.
* src/fileio.c (Fdelete_file): Change meaning of optional arg to mean
whether to trash.
(internal_delete_file, Frename_file): Callers changed.
(delete_by_moving_to_trash): Doc fix.
(Fdelete_directory_internal): Don't move to trash.
* src/callproc.c (delete_temp_file):
* src/buffer.c (Fkill_buffer): Callers changed.
* src/lisp.h: Update prototype.
* lisp/diff.el (diff-sentinel):
* lisp/epg.el (epg--make-temp-file, epg-decrypt-string)
(epg-verify-string, epg-sign-string, epg-encrypt-string):
* lisp/jka-compr.el (jka-compr-partial-uncompress)
(jka-compr-call-process, jka-compr-write-region):
* lisp/server.el (server-sentinel): Remove optional arg from
delete-file, reverting 2010-05-03 change.
* lisp/dired.el (dired-delete-file): New arg TRASH.
(dired-internal-do-deletions): New arg TRASH. Use progress
reporter.
(dired-do-flagged-delete, dired-do-delete): Use trash.
* lisp/files.el (delete-directory): New arg TRASH.
* lisp/speedbar.el (speedbar-item-delete): Allow trashing.
* lisp/net/ange-ftp.el (ange-ftp-del-tmp-name, ange-ftp-delete-file)
(ange-ftp-rename-remote-to-remote)
(ange-ftp-rename-local-to-remote)
(ange-ftp-rename-remote-to-local, ange-ftp-load)
(ange-ftp-compress, ange-ftp-uncompress): Remove optional arg from
`delete-file'.
(ange-ftp-delete-directory): Add optional arg to `delete-file', to
allow trashing.
* lisp/net/tramp-compat.el (tramp-compat-delete-file): Rewrite to
handle new TRASH arg of `delete-file'.
* lisp/net/tramp-fish.el (tramp-fish-handle-delete-directory)
(tramp-fish-handle-delete-file)
(tramp-fish-handle-make-symbolic-link)
(tramp-fish-handle-process-file): Use null TRASH arg in
`tramp-compat-delete-file' call.
* lisp/net/tramp-ftp.el (tramp-ftp-file-name-handler): Use null TRASH
arg in `tramp-compat-delete-file' call.
* lisp/net/tramp-gvfs.el (tramp-gvfs-handle-delete-file): Rename arg.
(tramp-gvfs-handle-write-region): Use null TRASH arg in
`tramp-compat-delete-file' call.
* lisp/net/tramp-imap.el (tramp-imap-handle-delete-file): Rename arg.
(tramp-imap-do-copy-or-rename-file): Use null TRASH arg in
`tramp-compat-delete-file' call.
* lisp/net/tramp-smb.el (tramp-smb-handle-copy-file)
(tramp-smb-handle-file-local-copy, tramp-smb-handle-rename-file)
(tramp-smb-handle-write-region): Use null TRASH arg in
tramp-compat-delete-file call.
(tramp-smb-handle-delete-directory): Use tramp-compat-delete-file.
(tramp-smb-handle-delete-file): Rename arg.
* lisp/net/tramp.el (tramp-handle-delete-file): Change FORCE arg to TRASH.
(tramp-handle-make-symbolic-link, tramp-handle-load)
(tramp-do-copy-or-rename-file-via-buffer)
(tramp-do-copy-or-rename-file-directly)
(tramp-do-copy-or-rename-file-out-of-band)
(tramp-handle-process-file, tramp-handle-call-process-region)
(tramp-handle-shell-command, tramp-handle-file-local-copy)
(tramp-handle-insert-file-contents, tramp-handle-write-region)
(tramp-delete-temp-file-function): Use null TRASH arg in
tramp-compat-delete-file call.
2010-05-27 23:30:11 +00:00
|
|
|
|
nil t)
|
1995-07-31 23:13:54 +00:00
|
|
|
|
(or nomessage
|
|
|
|
|
|
(message "(No deletions requested)")))))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
|
|
|
|
|
(defun dired-do-delete (&optional arg)
|
2007-05-31 21:10:49 +00:00
|
|
|
|
"Delete all marked (or next ARG) files.
|
2007-07-29 09:18:15 +00:00
|
|
|
|
`dired-recursive-deletes' controls whether deletion of
|
|
|
|
|
|
non-empty directories is allowed."
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;; This is more consistent with the file marking feature than
|
|
|
|
|
|
;; dired-do-flagged-delete.
|
|
|
|
|
|
(interactive "P")
|
|
|
|
|
|
(dired-internal-do-deletions
|
|
|
|
|
|
;; this may move point if ARG is an integer
|
|
|
|
|
|
(dired-map-over-marks (cons (dired-get-filename) (point))
|
|
|
|
|
|
arg)
|
Change delete-by-moving-to-trash so Lisp calls explicitly request trashing.
* src/fileio.c (Fdelete_file): Change meaning of optional arg to mean
whether to trash.
(internal_delete_file, Frename_file): Callers changed.
(delete_by_moving_to_trash): Doc fix.
(Fdelete_directory_internal): Don't move to trash.
* src/callproc.c (delete_temp_file):
* src/buffer.c (Fkill_buffer): Callers changed.
* src/lisp.h: Update prototype.
* lisp/diff.el (diff-sentinel):
* lisp/epg.el (epg--make-temp-file, epg-decrypt-string)
(epg-verify-string, epg-sign-string, epg-encrypt-string):
* lisp/jka-compr.el (jka-compr-partial-uncompress)
(jka-compr-call-process, jka-compr-write-region):
* lisp/server.el (server-sentinel): Remove optional arg from
delete-file, reverting 2010-05-03 change.
* lisp/dired.el (dired-delete-file): New arg TRASH.
(dired-internal-do-deletions): New arg TRASH. Use progress
reporter.
(dired-do-flagged-delete, dired-do-delete): Use trash.
* lisp/files.el (delete-directory): New arg TRASH.
* lisp/speedbar.el (speedbar-item-delete): Allow trashing.
* lisp/net/ange-ftp.el (ange-ftp-del-tmp-name, ange-ftp-delete-file)
(ange-ftp-rename-remote-to-remote)
(ange-ftp-rename-local-to-remote)
(ange-ftp-rename-remote-to-local, ange-ftp-load)
(ange-ftp-compress, ange-ftp-uncompress): Remove optional arg from
`delete-file'.
(ange-ftp-delete-directory): Add optional arg to `delete-file', to
allow trashing.
* lisp/net/tramp-compat.el (tramp-compat-delete-file): Rewrite to
handle new TRASH arg of `delete-file'.
* lisp/net/tramp-fish.el (tramp-fish-handle-delete-directory)
(tramp-fish-handle-delete-file)
(tramp-fish-handle-make-symbolic-link)
(tramp-fish-handle-process-file): Use null TRASH arg in
`tramp-compat-delete-file' call.
* lisp/net/tramp-ftp.el (tramp-ftp-file-name-handler): Use null TRASH
arg in `tramp-compat-delete-file' call.
* lisp/net/tramp-gvfs.el (tramp-gvfs-handle-delete-file): Rename arg.
(tramp-gvfs-handle-write-region): Use null TRASH arg in
`tramp-compat-delete-file' call.
* lisp/net/tramp-imap.el (tramp-imap-handle-delete-file): Rename arg.
(tramp-imap-do-copy-or-rename-file): Use null TRASH arg in
`tramp-compat-delete-file' call.
* lisp/net/tramp-smb.el (tramp-smb-handle-copy-file)
(tramp-smb-handle-file-local-copy, tramp-smb-handle-rename-file)
(tramp-smb-handle-write-region): Use null TRASH arg in
tramp-compat-delete-file call.
(tramp-smb-handle-delete-directory): Use tramp-compat-delete-file.
(tramp-smb-handle-delete-file): Rename arg.
* lisp/net/tramp.el (tramp-handle-delete-file): Change FORCE arg to TRASH.
(tramp-handle-make-symbolic-link, tramp-handle-load)
(tramp-do-copy-or-rename-file-via-buffer)
(tramp-do-copy-or-rename-file-directly)
(tramp-do-copy-or-rename-file-out-of-band)
(tramp-handle-process-file, tramp-handle-call-process-region)
(tramp-handle-shell-command, tramp-handle-file-local-copy)
(tramp-handle-insert-file-contents, tramp-handle-write-region)
(tramp-delete-temp-file-function): Use null TRASH arg in
tramp-compat-delete-file call.
2010-05-27 23:30:11 +00:00
|
|
|
|
arg t))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
|
|
|
|
|
(defvar dired-deletion-confirmer 'yes-or-no-p) ; or y-or-n-p?
|
|
|
|
|
|
|
Change delete-by-moving-to-trash so Lisp calls explicitly request trashing.
* src/fileio.c (Fdelete_file): Change meaning of optional arg to mean
whether to trash.
(internal_delete_file, Frename_file): Callers changed.
(delete_by_moving_to_trash): Doc fix.
(Fdelete_directory_internal): Don't move to trash.
* src/callproc.c (delete_temp_file):
* src/buffer.c (Fkill_buffer): Callers changed.
* src/lisp.h: Update prototype.
* lisp/diff.el (diff-sentinel):
* lisp/epg.el (epg--make-temp-file, epg-decrypt-string)
(epg-verify-string, epg-sign-string, epg-encrypt-string):
* lisp/jka-compr.el (jka-compr-partial-uncompress)
(jka-compr-call-process, jka-compr-write-region):
* lisp/server.el (server-sentinel): Remove optional arg from
delete-file, reverting 2010-05-03 change.
* lisp/dired.el (dired-delete-file): New arg TRASH.
(dired-internal-do-deletions): New arg TRASH. Use progress
reporter.
(dired-do-flagged-delete, dired-do-delete): Use trash.
* lisp/files.el (delete-directory): New arg TRASH.
* lisp/speedbar.el (speedbar-item-delete): Allow trashing.
* lisp/net/ange-ftp.el (ange-ftp-del-tmp-name, ange-ftp-delete-file)
(ange-ftp-rename-remote-to-remote)
(ange-ftp-rename-local-to-remote)
(ange-ftp-rename-remote-to-local, ange-ftp-load)
(ange-ftp-compress, ange-ftp-uncompress): Remove optional arg from
`delete-file'.
(ange-ftp-delete-directory): Add optional arg to `delete-file', to
allow trashing.
* lisp/net/tramp-compat.el (tramp-compat-delete-file): Rewrite to
handle new TRASH arg of `delete-file'.
* lisp/net/tramp-fish.el (tramp-fish-handle-delete-directory)
(tramp-fish-handle-delete-file)
(tramp-fish-handle-make-symbolic-link)
(tramp-fish-handle-process-file): Use null TRASH arg in
`tramp-compat-delete-file' call.
* lisp/net/tramp-ftp.el (tramp-ftp-file-name-handler): Use null TRASH
arg in `tramp-compat-delete-file' call.
* lisp/net/tramp-gvfs.el (tramp-gvfs-handle-delete-file): Rename arg.
(tramp-gvfs-handle-write-region): Use null TRASH arg in
`tramp-compat-delete-file' call.
* lisp/net/tramp-imap.el (tramp-imap-handle-delete-file): Rename arg.
(tramp-imap-do-copy-or-rename-file): Use null TRASH arg in
`tramp-compat-delete-file' call.
* lisp/net/tramp-smb.el (tramp-smb-handle-copy-file)
(tramp-smb-handle-file-local-copy, tramp-smb-handle-rename-file)
(tramp-smb-handle-write-region): Use null TRASH arg in
tramp-compat-delete-file call.
(tramp-smb-handle-delete-directory): Use tramp-compat-delete-file.
(tramp-smb-handle-delete-file): Rename arg.
* lisp/net/tramp.el (tramp-handle-delete-file): Change FORCE arg to TRASH.
(tramp-handle-make-symbolic-link, tramp-handle-load)
(tramp-do-copy-or-rename-file-via-buffer)
(tramp-do-copy-or-rename-file-directly)
(tramp-do-copy-or-rename-file-out-of-band)
(tramp-handle-process-file, tramp-handle-call-process-region)
(tramp-handle-shell-command, tramp-handle-file-local-copy)
(tramp-handle-insert-file-contents, tramp-handle-write-region)
(tramp-delete-temp-file-function): Use null TRASH arg in
tramp-compat-delete-file call.
2010-05-27 23:30:11 +00:00
|
|
|
|
(defun dired-internal-do-deletions (l arg &optional trash)
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;; L is an alist of files to delete, with their buffer positions.
|
|
|
|
|
|
;; ARG is the prefix arg.
|
2008-07-31 05:33:56 +00:00
|
|
|
|
;; Filenames are absolute.
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;; (car L) *must* be the *last* (bottommost) file in the dired buffer.
|
|
|
|
|
|
;; That way as changes are made in the buffer they do not shift the
|
|
|
|
|
|
;; lines still to be changed, so the (point) values in L stay valid.
|
|
|
|
|
|
;; Also, for subdirs in natural order, a subdir's files are deleted
|
|
|
|
|
|
;; before the subdir itself - the other way around would not work.
|
Change delete-by-moving-to-trash so Lisp calls explicitly request trashing.
* src/fileio.c (Fdelete_file): Change meaning of optional arg to mean
whether to trash.
(internal_delete_file, Frename_file): Callers changed.
(delete_by_moving_to_trash): Doc fix.
(Fdelete_directory_internal): Don't move to trash.
* src/callproc.c (delete_temp_file):
* src/buffer.c (Fkill_buffer): Callers changed.
* src/lisp.h: Update prototype.
* lisp/diff.el (diff-sentinel):
* lisp/epg.el (epg--make-temp-file, epg-decrypt-string)
(epg-verify-string, epg-sign-string, epg-encrypt-string):
* lisp/jka-compr.el (jka-compr-partial-uncompress)
(jka-compr-call-process, jka-compr-write-region):
* lisp/server.el (server-sentinel): Remove optional arg from
delete-file, reverting 2010-05-03 change.
* lisp/dired.el (dired-delete-file): New arg TRASH.
(dired-internal-do-deletions): New arg TRASH. Use progress
reporter.
(dired-do-flagged-delete, dired-do-delete): Use trash.
* lisp/files.el (delete-directory): New arg TRASH.
* lisp/speedbar.el (speedbar-item-delete): Allow trashing.
* lisp/net/ange-ftp.el (ange-ftp-del-tmp-name, ange-ftp-delete-file)
(ange-ftp-rename-remote-to-remote)
(ange-ftp-rename-local-to-remote)
(ange-ftp-rename-remote-to-local, ange-ftp-load)
(ange-ftp-compress, ange-ftp-uncompress): Remove optional arg from
`delete-file'.
(ange-ftp-delete-directory): Add optional arg to `delete-file', to
allow trashing.
* lisp/net/tramp-compat.el (tramp-compat-delete-file): Rewrite to
handle new TRASH arg of `delete-file'.
* lisp/net/tramp-fish.el (tramp-fish-handle-delete-directory)
(tramp-fish-handle-delete-file)
(tramp-fish-handle-make-symbolic-link)
(tramp-fish-handle-process-file): Use null TRASH arg in
`tramp-compat-delete-file' call.
* lisp/net/tramp-ftp.el (tramp-ftp-file-name-handler): Use null TRASH
arg in `tramp-compat-delete-file' call.
* lisp/net/tramp-gvfs.el (tramp-gvfs-handle-delete-file): Rename arg.
(tramp-gvfs-handle-write-region): Use null TRASH arg in
`tramp-compat-delete-file' call.
* lisp/net/tramp-imap.el (tramp-imap-handle-delete-file): Rename arg.
(tramp-imap-do-copy-or-rename-file): Use null TRASH arg in
`tramp-compat-delete-file' call.
* lisp/net/tramp-smb.el (tramp-smb-handle-copy-file)
(tramp-smb-handle-file-local-copy, tramp-smb-handle-rename-file)
(tramp-smb-handle-write-region): Use null TRASH arg in
tramp-compat-delete-file call.
(tramp-smb-handle-delete-directory): Use tramp-compat-delete-file.
(tramp-smb-handle-delete-file): Rename arg.
* lisp/net/tramp.el (tramp-handle-delete-file): Change FORCE arg to TRASH.
(tramp-handle-make-symbolic-link, tramp-handle-load)
(tramp-do-copy-or-rename-file-via-buffer)
(tramp-do-copy-or-rename-file-directly)
(tramp-do-copy-or-rename-file-out-of-band)
(tramp-handle-process-file, tramp-handle-call-process-region)
(tramp-handle-shell-command, tramp-handle-file-local-copy)
(tramp-handle-insert-file-contents, tramp-handle-write-region)
(tramp-delete-temp-file-function): Use null TRASH arg in
tramp-compat-delete-file call.
2010-05-27 23:30:11 +00:00
|
|
|
|
(let* ((files (mapcar (function car) l))
|
|
|
|
|
|
(count (length l))
|
|
|
|
|
|
(succ 0)
|
|
|
|
|
|
(trashing (and trash delete-by-moving-to-trash))
|
|
|
|
|
|
(progress-reporter
|
|
|
|
|
|
(make-progress-reporter
|
|
|
|
|
|
(if trashing "Trashing..." "Deleting...")
|
|
|
|
|
|
succ count)))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;; canonicalize file list for pop up
|
|
|
|
|
|
(setq files (nreverse (mapcar (function dired-make-relative) files)))
|
|
|
|
|
|
(if (dired-mark-pop-up
|
|
|
|
|
|
" *Deletions*" 'delete files dired-deletion-confirmer
|
Change delete-by-moving-to-trash so Lisp calls explicitly request trashing.
* src/fileio.c (Fdelete_file): Change meaning of optional arg to mean
whether to trash.
(internal_delete_file, Frename_file): Callers changed.
(delete_by_moving_to_trash): Doc fix.
(Fdelete_directory_internal): Don't move to trash.
* src/callproc.c (delete_temp_file):
* src/buffer.c (Fkill_buffer): Callers changed.
* src/lisp.h: Update prototype.
* lisp/diff.el (diff-sentinel):
* lisp/epg.el (epg--make-temp-file, epg-decrypt-string)
(epg-verify-string, epg-sign-string, epg-encrypt-string):
* lisp/jka-compr.el (jka-compr-partial-uncompress)
(jka-compr-call-process, jka-compr-write-region):
* lisp/server.el (server-sentinel): Remove optional arg from
delete-file, reverting 2010-05-03 change.
* lisp/dired.el (dired-delete-file): New arg TRASH.
(dired-internal-do-deletions): New arg TRASH. Use progress
reporter.
(dired-do-flagged-delete, dired-do-delete): Use trash.
* lisp/files.el (delete-directory): New arg TRASH.
* lisp/speedbar.el (speedbar-item-delete): Allow trashing.
* lisp/net/ange-ftp.el (ange-ftp-del-tmp-name, ange-ftp-delete-file)
(ange-ftp-rename-remote-to-remote)
(ange-ftp-rename-local-to-remote)
(ange-ftp-rename-remote-to-local, ange-ftp-load)
(ange-ftp-compress, ange-ftp-uncompress): Remove optional arg from
`delete-file'.
(ange-ftp-delete-directory): Add optional arg to `delete-file', to
allow trashing.
* lisp/net/tramp-compat.el (tramp-compat-delete-file): Rewrite to
handle new TRASH arg of `delete-file'.
* lisp/net/tramp-fish.el (tramp-fish-handle-delete-directory)
(tramp-fish-handle-delete-file)
(tramp-fish-handle-make-symbolic-link)
(tramp-fish-handle-process-file): Use null TRASH arg in
`tramp-compat-delete-file' call.
* lisp/net/tramp-ftp.el (tramp-ftp-file-name-handler): Use null TRASH
arg in `tramp-compat-delete-file' call.
* lisp/net/tramp-gvfs.el (tramp-gvfs-handle-delete-file): Rename arg.
(tramp-gvfs-handle-write-region): Use null TRASH arg in
`tramp-compat-delete-file' call.
* lisp/net/tramp-imap.el (tramp-imap-handle-delete-file): Rename arg.
(tramp-imap-do-copy-or-rename-file): Use null TRASH arg in
`tramp-compat-delete-file' call.
* lisp/net/tramp-smb.el (tramp-smb-handle-copy-file)
(tramp-smb-handle-file-local-copy, tramp-smb-handle-rename-file)
(tramp-smb-handle-write-region): Use null TRASH arg in
tramp-compat-delete-file call.
(tramp-smb-handle-delete-directory): Use tramp-compat-delete-file.
(tramp-smb-handle-delete-file): Rename arg.
* lisp/net/tramp.el (tramp-handle-delete-file): Change FORCE arg to TRASH.
(tramp-handle-make-symbolic-link, tramp-handle-load)
(tramp-do-copy-or-rename-file-via-buffer)
(tramp-do-copy-or-rename-file-directly)
(tramp-do-copy-or-rename-file-out-of-band)
(tramp-handle-process-file, tramp-handle-call-process-region)
(tramp-handle-shell-command, tramp-handle-file-local-copy)
(tramp-handle-insert-file-contents, tramp-handle-write-region)
(tramp-delete-temp-file-function): Use null TRASH arg in
tramp-compat-delete-file call.
2010-05-27 23:30:11 +00:00
|
|
|
|
(format "%s %s "
|
|
|
|
|
|
(if trashing "Trash" "Delete")
|
|
|
|
|
|
(dired-mark-prompt arg files)))
|
1992-05-30 23:52:26 +00:00
|
|
|
|
(save-excursion
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(let (failures);; files better be in reverse order for this loop!
|
|
|
|
|
|
(while l
|
|
|
|
|
|
(goto-char (cdr (car l)))
|
(dired-read-dir-and-switches): Ignore ., .., and
completion-ignored-extension directories if there's something else.
(dired-mark-if, dired-map-over-marks, dired-readin, dired-revert)
(dired-remember-marks, dired-undo, dired-build-subdir-alist)
(dired-internal-do-deletions, dired-mark-files-in-region, dired-mark)
(dired-toggle-marks, dired-change-marks, dired-unmark-all-files):
buffer-read-only -> inhibit-read-only.
2008-05-13 05:15:57 +00:00
|
|
|
|
(let ((inhibit-read-only t))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(condition-case err
|
|
|
|
|
|
(let ((fn (car (car l))))
|
Change delete-by-moving-to-trash so Lisp calls explicitly request trashing.
* src/fileio.c (Fdelete_file): Change meaning of optional arg to mean
whether to trash.
(internal_delete_file, Frename_file): Callers changed.
(delete_by_moving_to_trash): Doc fix.
(Fdelete_directory_internal): Don't move to trash.
* src/callproc.c (delete_temp_file):
* src/buffer.c (Fkill_buffer): Callers changed.
* src/lisp.h: Update prototype.
* lisp/diff.el (diff-sentinel):
* lisp/epg.el (epg--make-temp-file, epg-decrypt-string)
(epg-verify-string, epg-sign-string, epg-encrypt-string):
* lisp/jka-compr.el (jka-compr-partial-uncompress)
(jka-compr-call-process, jka-compr-write-region):
* lisp/server.el (server-sentinel): Remove optional arg from
delete-file, reverting 2010-05-03 change.
* lisp/dired.el (dired-delete-file): New arg TRASH.
(dired-internal-do-deletions): New arg TRASH. Use progress
reporter.
(dired-do-flagged-delete, dired-do-delete): Use trash.
* lisp/files.el (delete-directory): New arg TRASH.
* lisp/speedbar.el (speedbar-item-delete): Allow trashing.
* lisp/net/ange-ftp.el (ange-ftp-del-tmp-name, ange-ftp-delete-file)
(ange-ftp-rename-remote-to-remote)
(ange-ftp-rename-local-to-remote)
(ange-ftp-rename-remote-to-local, ange-ftp-load)
(ange-ftp-compress, ange-ftp-uncompress): Remove optional arg from
`delete-file'.
(ange-ftp-delete-directory): Add optional arg to `delete-file', to
allow trashing.
* lisp/net/tramp-compat.el (tramp-compat-delete-file): Rewrite to
handle new TRASH arg of `delete-file'.
* lisp/net/tramp-fish.el (tramp-fish-handle-delete-directory)
(tramp-fish-handle-delete-file)
(tramp-fish-handle-make-symbolic-link)
(tramp-fish-handle-process-file): Use null TRASH arg in
`tramp-compat-delete-file' call.
* lisp/net/tramp-ftp.el (tramp-ftp-file-name-handler): Use null TRASH
arg in `tramp-compat-delete-file' call.
* lisp/net/tramp-gvfs.el (tramp-gvfs-handle-delete-file): Rename arg.
(tramp-gvfs-handle-write-region): Use null TRASH arg in
`tramp-compat-delete-file' call.
* lisp/net/tramp-imap.el (tramp-imap-handle-delete-file): Rename arg.
(tramp-imap-do-copy-or-rename-file): Use null TRASH arg in
`tramp-compat-delete-file' call.
* lisp/net/tramp-smb.el (tramp-smb-handle-copy-file)
(tramp-smb-handle-file-local-copy, tramp-smb-handle-rename-file)
(tramp-smb-handle-write-region): Use null TRASH arg in
tramp-compat-delete-file call.
(tramp-smb-handle-delete-directory): Use tramp-compat-delete-file.
(tramp-smb-handle-delete-file): Rename arg.
* lisp/net/tramp.el (tramp-handle-delete-file): Change FORCE arg to TRASH.
(tramp-handle-make-symbolic-link, tramp-handle-load)
(tramp-do-copy-or-rename-file-via-buffer)
(tramp-do-copy-or-rename-file-directly)
(tramp-do-copy-or-rename-file-out-of-band)
(tramp-handle-process-file, tramp-handle-call-process-region)
(tramp-handle-shell-command, tramp-handle-file-local-copy)
(tramp-handle-insert-file-contents, tramp-handle-write-region)
(tramp-delete-temp-file-function): Use null TRASH arg in
tramp-compat-delete-file call.
2010-05-27 23:30:11 +00:00
|
|
|
|
(dired-delete-file fn dired-recursive-deletes trash)
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;; if we get here, removing worked
|
|
|
|
|
|
(setq succ (1+ succ))
|
Change delete-by-moving-to-trash so Lisp calls explicitly request trashing.
* src/fileio.c (Fdelete_file): Change meaning of optional arg to mean
whether to trash.
(internal_delete_file, Frename_file): Callers changed.
(delete_by_moving_to_trash): Doc fix.
(Fdelete_directory_internal): Don't move to trash.
* src/callproc.c (delete_temp_file):
* src/buffer.c (Fkill_buffer): Callers changed.
* src/lisp.h: Update prototype.
* lisp/diff.el (diff-sentinel):
* lisp/epg.el (epg--make-temp-file, epg-decrypt-string)
(epg-verify-string, epg-sign-string, epg-encrypt-string):
* lisp/jka-compr.el (jka-compr-partial-uncompress)
(jka-compr-call-process, jka-compr-write-region):
* lisp/server.el (server-sentinel): Remove optional arg from
delete-file, reverting 2010-05-03 change.
* lisp/dired.el (dired-delete-file): New arg TRASH.
(dired-internal-do-deletions): New arg TRASH. Use progress
reporter.
(dired-do-flagged-delete, dired-do-delete): Use trash.
* lisp/files.el (delete-directory): New arg TRASH.
* lisp/speedbar.el (speedbar-item-delete): Allow trashing.
* lisp/net/ange-ftp.el (ange-ftp-del-tmp-name, ange-ftp-delete-file)
(ange-ftp-rename-remote-to-remote)
(ange-ftp-rename-local-to-remote)
(ange-ftp-rename-remote-to-local, ange-ftp-load)
(ange-ftp-compress, ange-ftp-uncompress): Remove optional arg from
`delete-file'.
(ange-ftp-delete-directory): Add optional arg to `delete-file', to
allow trashing.
* lisp/net/tramp-compat.el (tramp-compat-delete-file): Rewrite to
handle new TRASH arg of `delete-file'.
* lisp/net/tramp-fish.el (tramp-fish-handle-delete-directory)
(tramp-fish-handle-delete-file)
(tramp-fish-handle-make-symbolic-link)
(tramp-fish-handle-process-file): Use null TRASH arg in
`tramp-compat-delete-file' call.
* lisp/net/tramp-ftp.el (tramp-ftp-file-name-handler): Use null TRASH
arg in `tramp-compat-delete-file' call.
* lisp/net/tramp-gvfs.el (tramp-gvfs-handle-delete-file): Rename arg.
(tramp-gvfs-handle-write-region): Use null TRASH arg in
`tramp-compat-delete-file' call.
* lisp/net/tramp-imap.el (tramp-imap-handle-delete-file): Rename arg.
(tramp-imap-do-copy-or-rename-file): Use null TRASH arg in
`tramp-compat-delete-file' call.
* lisp/net/tramp-smb.el (tramp-smb-handle-copy-file)
(tramp-smb-handle-file-local-copy, tramp-smb-handle-rename-file)
(tramp-smb-handle-write-region): Use null TRASH arg in
tramp-compat-delete-file call.
(tramp-smb-handle-delete-directory): Use tramp-compat-delete-file.
(tramp-smb-handle-delete-file): Rename arg.
* lisp/net/tramp.el (tramp-handle-delete-file): Change FORCE arg to TRASH.
(tramp-handle-make-symbolic-link, tramp-handle-load)
(tramp-do-copy-or-rename-file-via-buffer)
(tramp-do-copy-or-rename-file-directly)
(tramp-do-copy-or-rename-file-out-of-band)
(tramp-handle-process-file, tramp-handle-call-process-region)
(tramp-handle-shell-command, tramp-handle-file-local-copy)
(tramp-handle-insert-file-contents, tramp-handle-write-region)
(tramp-delete-temp-file-function): Use null TRASH arg in
tramp-compat-delete-file call.
2010-05-27 23:30:11 +00:00
|
|
|
|
(progress-reporter-update progress-reporter succ)
|
2002-03-14 08:55:20 +00:00
|
|
|
|
(dired-fun-in-all-buffers
|
|
|
|
|
|
(file-name-directory fn) (file-name-nondirectory fn)
|
|
|
|
|
|
(function dired-delete-entry) fn))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(error;; catch errors from failed deletions
|
|
|
|
|
|
(dired-log "%s\n" err)
|
|
|
|
|
|
(setq failures (cons (car (car l)) failures)))))
|
|
|
|
|
|
(setq l (cdr l)))
|
|
|
|
|
|
(if (not failures)
|
Change delete-by-moving-to-trash so Lisp calls explicitly request trashing.
* src/fileio.c (Fdelete_file): Change meaning of optional arg to mean
whether to trash.
(internal_delete_file, Frename_file): Callers changed.
(delete_by_moving_to_trash): Doc fix.
(Fdelete_directory_internal): Don't move to trash.
* src/callproc.c (delete_temp_file):
* src/buffer.c (Fkill_buffer): Callers changed.
* src/lisp.h: Update prototype.
* lisp/diff.el (diff-sentinel):
* lisp/epg.el (epg--make-temp-file, epg-decrypt-string)
(epg-verify-string, epg-sign-string, epg-encrypt-string):
* lisp/jka-compr.el (jka-compr-partial-uncompress)
(jka-compr-call-process, jka-compr-write-region):
* lisp/server.el (server-sentinel): Remove optional arg from
delete-file, reverting 2010-05-03 change.
* lisp/dired.el (dired-delete-file): New arg TRASH.
(dired-internal-do-deletions): New arg TRASH. Use progress
reporter.
(dired-do-flagged-delete, dired-do-delete): Use trash.
* lisp/files.el (delete-directory): New arg TRASH.
* lisp/speedbar.el (speedbar-item-delete): Allow trashing.
* lisp/net/ange-ftp.el (ange-ftp-del-tmp-name, ange-ftp-delete-file)
(ange-ftp-rename-remote-to-remote)
(ange-ftp-rename-local-to-remote)
(ange-ftp-rename-remote-to-local, ange-ftp-load)
(ange-ftp-compress, ange-ftp-uncompress): Remove optional arg from
`delete-file'.
(ange-ftp-delete-directory): Add optional arg to `delete-file', to
allow trashing.
* lisp/net/tramp-compat.el (tramp-compat-delete-file): Rewrite to
handle new TRASH arg of `delete-file'.
* lisp/net/tramp-fish.el (tramp-fish-handle-delete-directory)
(tramp-fish-handle-delete-file)
(tramp-fish-handle-make-symbolic-link)
(tramp-fish-handle-process-file): Use null TRASH arg in
`tramp-compat-delete-file' call.
* lisp/net/tramp-ftp.el (tramp-ftp-file-name-handler): Use null TRASH
arg in `tramp-compat-delete-file' call.
* lisp/net/tramp-gvfs.el (tramp-gvfs-handle-delete-file): Rename arg.
(tramp-gvfs-handle-write-region): Use null TRASH arg in
`tramp-compat-delete-file' call.
* lisp/net/tramp-imap.el (tramp-imap-handle-delete-file): Rename arg.
(tramp-imap-do-copy-or-rename-file): Use null TRASH arg in
`tramp-compat-delete-file' call.
* lisp/net/tramp-smb.el (tramp-smb-handle-copy-file)
(tramp-smb-handle-file-local-copy, tramp-smb-handle-rename-file)
(tramp-smb-handle-write-region): Use null TRASH arg in
tramp-compat-delete-file call.
(tramp-smb-handle-delete-directory): Use tramp-compat-delete-file.
(tramp-smb-handle-delete-file): Rename arg.
* lisp/net/tramp.el (tramp-handle-delete-file): Change FORCE arg to TRASH.
(tramp-handle-make-symbolic-link, tramp-handle-load)
(tramp-do-copy-or-rename-file-via-buffer)
(tramp-do-copy-or-rename-file-directly)
(tramp-do-copy-or-rename-file-out-of-band)
(tramp-handle-process-file, tramp-handle-call-process-region)
(tramp-handle-shell-command, tramp-handle-file-local-copy)
(tramp-handle-insert-file-contents, tramp-handle-write-region)
(tramp-delete-temp-file-function): Use null TRASH arg in
tramp-compat-delete-file call.
2010-05-27 23:30:11 +00:00
|
|
|
|
(progress-reporter-done progress-reporter)
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(dired-log-summary
|
|
|
|
|
|
(format "%d of %d deletion%s failed"
|
|
|
|
|
|
(length failures) count
|
|
|
|
|
|
(dired-plural-s count))
|
|
|
|
|
|
failures))))
|
|
|
|
|
|
(message "(No deletions performed)")))
|
|
|
|
|
|
(dired-move-to-filename))
|
|
|
|
|
|
|
2002-03-14 08:55:20 +00:00
|
|
|
|
(defun dired-fun-in-all-buffers (directory file fun &rest args)
|
|
|
|
|
|
;; In all buffers dired'ing DIRECTORY, run FUN with ARGS.
|
|
|
|
|
|
;; If the buffer has a wildcard pattern, check that it matches FILE.
|
|
|
|
|
|
;; (FILE does not include a directory component.)
|
|
|
|
|
|
;; FILE may be nil, in which case ignore it.
|
|
|
|
|
|
;; Return list of buffers where FUN succeeded (i.e., returned non-nil).
|
|
|
|
|
|
(let (success-list)
|
|
|
|
|
|
(dolist (buf (dired-buffers-for-dir (expand-file-name directory)
|
|
|
|
|
|
file))
|
|
|
|
|
|
(with-current-buffer buf
|
|
|
|
|
|
(if (apply fun args)
|
|
|
|
|
|
(setq success-list (cons (buffer-name buf) success-list)))))
|
|
|
|
|
|
success-list))
|
|
|
|
|
|
|
2003-01-31 15:24:20 +00:00
|
|
|
|
;; Delete the entry for FILE from
|
2002-03-14 08:55:20 +00:00
|
|
|
|
(defun dired-delete-entry (file)
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(and (dired-goto-file file)
|
(dired-read-dir-and-switches): Ignore ., .., and
completion-ignored-extension directories if there's something else.
(dired-mark-if, dired-map-over-marks, dired-readin, dired-revert)
(dired-remember-marks, dired-undo, dired-build-subdir-alist)
(dired-internal-do-deletions, dired-mark-files-in-region, dired-mark)
(dired-toggle-marks, dired-change-marks, dired-unmark-all-files):
buffer-read-only -> inhibit-read-only.
2008-05-13 05:15:57 +00:00
|
|
|
|
(let ((inhibit-read-only t))
|
2002-03-14 08:55:20 +00:00
|
|
|
|
(delete-region (progn (beginning-of-line) (point))
|
|
|
|
|
|
(save-excursion (forward-line 1) (point))))))
|
|
|
|
|
|
(dired-clean-up-after-deletion file))
|
|
|
|
|
|
|
2011-02-19 18:55:15 +00:00
|
|
|
|
(defvar dired-clean-up-buffers-too)
|
|
|
|
|
|
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(defun dired-clean-up-after-deletion (fn)
|
2011-02-19 18:55:15 +00:00
|
|
|
|
"Clean up after a deleted file or directory FN.
|
|
|
|
|
|
Removes any expanded subdirectory of deleted directory.
|
|
|
|
|
|
If `dired-x' is loaded and `dired-clean-up-buffers-too' is non-nil,
|
|
|
|
|
|
also offers to kill buffers visiting deleted files and directories."
|
1992-09-19 19:40:38 +00:00
|
|
|
|
(save-excursion (and (cdr dired-subdir-alist)
|
|
|
|
|
|
(dired-goto-subdir fn)
|
2011-02-19 18:55:15 +00:00
|
|
|
|
(dired-kill-subdir)))
|
|
|
|
|
|
;; Offer to kill buffer of deleted file FN.
|
|
|
|
|
|
(when (and (featurep 'dired-x) dired-clean-up-buffers-too)
|
|
|
|
|
|
(let ((buf (get-file-buffer fn)))
|
|
|
|
|
|
(and buf
|
|
|
|
|
|
(funcall #'y-or-n-p
|
|
|
|
|
|
(format "Kill buffer of %s, too? "
|
|
|
|
|
|
(file-name-nondirectory fn)))
|
|
|
|
|
|
(kill-buffer buf)))
|
|
|
|
|
|
(let ((buf-list (dired-buffers-for-dir (expand-file-name fn))))
|
|
|
|
|
|
(and buf-list
|
|
|
|
|
|
(y-or-n-p (format "Kill dired buffer%s of %s, too? "
|
|
|
|
|
|
(dired-plural-s (length buf-list))
|
|
|
|
|
|
(file-name-nondirectory fn)))
|
|
|
|
|
|
(dolist (buf buf-list)
|
|
|
|
|
|
(kill-buffer buf))))))
|
|
|
|
|
|
|
2001-01-26 13:14:11 +00:00
|
|
|
|
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;; Confirmation
|
|
|
|
|
|
|
|
|
|
|
|
(defun dired-marker-regexp ()
|
|
|
|
|
|
(concat "^" (regexp-quote (char-to-string dired-marker-char))))
|
|
|
|
|
|
|
|
|
|
|
|
(defun dired-plural-s (count)
|
|
|
|
|
|
(if (= 1 count) "" "s"))
|
|
|
|
|
|
|
|
|
|
|
|
(defun dired-mark-prompt (arg files)
|
2011-07-12 02:54:26 +00:00
|
|
|
|
"Return a string suitable for use in a Dired prompt.
|
|
|
|
|
|
ARG is normally the prefix argument for the calling command.
|
|
|
|
|
|
FILES should be a list of file names.
|
|
|
|
|
|
|
|
|
|
|
|
The return value has a form like \"foo.txt\", \"[next 3 files]\",
|
|
|
|
|
|
or \"* [3 files]\"."
|
2008-02-22 18:47:26 +00:00
|
|
|
|
;; distinguish-one-marked can cause the first element to be just t.
|
|
|
|
|
|
(if (eq (car files) t) (setq files (cdr files)))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(let ((count (length files)))
|
|
|
|
|
|
(if (= count 1)
|
|
|
|
|
|
(car files)
|
|
|
|
|
|
;; more than 1 file:
|
|
|
|
|
|
(if (integerp arg)
|
|
|
|
|
|
;; abs(arg) = count
|
|
|
|
|
|
;; Perhaps this is nicer, but it also takes more screen space:
|
|
|
|
|
|
;;(format "[%s %d files]" (if (> arg 0) "next" "previous")
|
|
|
|
|
|
;; count)
|
|
|
|
|
|
(format "[next %d files]" arg)
|
|
|
|
|
|
(format "%c [%d files]" dired-marker-char count)))))
|
|
|
|
|
|
|
|
|
|
|
|
(defun dired-pop-to-buffer (buf)
|
2009-01-07 09:58:23 +00:00
|
|
|
|
"Pop up buffer BUF in a way suitable for Dired."
|
2009-05-15 15:00:32 +00:00
|
|
|
|
(let ((split-window-preferred-function
|
|
|
|
|
|
(lambda (window)
|
2009-05-15 18:14:03 +00:00
|
|
|
|
(or (and (let ((split-height-threshold 0))
|
|
|
|
|
|
(window-splittable-p (selected-window)))
|
2009-05-15 15:00:32 +00:00
|
|
|
|
;; Try to split the selected window vertically if
|
|
|
|
|
|
;; that's possible. (Bug#1806)
|
|
|
|
|
|
(split-window-vertically))
|
|
|
|
|
|
;; Otherwise, try to split WINDOW sensibly.
|
2010-12-04 22:43:51 +00:00
|
|
|
|
(split-window-sensibly window))))
|
|
|
|
|
|
pop-up-frames)
|
2009-01-07 09:58:23 +00:00
|
|
|
|
(pop-to-buffer (get-buffer-create buf)))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;; If dired-shrink-to-fit is t, make its window fit its contents.
|
2008-12-11 09:48:08 +00:00
|
|
|
|
(when dired-shrink-to-fit
|
2008-12-11 17:20:45 +00:00
|
|
|
|
;; Try to not delete window when we want to display less than
|
|
|
|
|
|
;; `window-min-height' lines.
|
|
|
|
|
|
(fit-window-to-buffer (get-buffer-window buf) nil 1)))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
2006-01-19 17:50:15 +00:00
|
|
|
|
(defcustom dired-no-confirm nil
|
2010-07-22 12:15:31 +00:00
|
|
|
|
"A list of symbols for commands Dired should not confirm, or t.
|
1997-03-20 12:37:06 +00:00
|
|
|
|
Command symbols are `byte-compile', `chgrp', `chmod', `chown', `compress',
|
2004-03-31 16:29:46 +00:00
|
|
|
|
`copy', `delete', `hardlink', `load', `move', `print', `shell', `symlink',
|
2010-07-22 12:15:31 +00:00
|
|
|
|
`touch' and `uncompress'.
|
|
|
|
|
|
If t, confirmation is never needed."
|
2006-01-19 17:50:15 +00:00
|
|
|
|
:group 'dired
|
2010-07-22 12:15:31 +00:00
|
|
|
|
:type '(choice (const :tag "Confirmation never needed" t)
|
|
|
|
|
|
(set (const byte-compile) (const chgrp)
|
|
|
|
|
|
(const chmod) (const chown) (const compress)
|
|
|
|
|
|
(const copy) (const delete) (const hardlink)
|
|
|
|
|
|
(const load) (const move) (const print)
|
|
|
|
|
|
(const shell) (const symlink) (const touch)
|
|
|
|
|
|
(const uncompress))))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
|
|
|
|
|
(defun dired-mark-pop-up (bufname op-symbol files function &rest args)
|
2002-09-19 01:03:43 +00:00
|
|
|
|
"Return FUNCTION's result on ARGS after showing which files are marked.
|
|
|
|
|
|
Displays the file names in a buffer named BUFNAME;
|
|
|
|
|
|
nil gives \" *Marked Files*\".
|
|
|
|
|
|
This uses function `dired-pop-to-buffer' to do that.
|
|
|
|
|
|
|
|
|
|
|
|
FUNCTION should not manipulate files, just read input
|
|
|
|
|
|
(an argument or confirmation).
|
2000-10-04 23:38:28 +00:00
|
|
|
|
The window is not shown if there is just one file or
|
|
|
|
|
|
OP-SYMBOL is a member of the list in `dired-no-confirm'.
|
2005-05-15 21:33:25 +00:00
|
|
|
|
FILES is the list of marked files. It can also be (t FILENAME)
|
|
|
|
|
|
in the case of one marked file, to distinguish that from using
|
|
|
|
|
|
just the current file."
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(or bufname (setq bufname " *Marked Files*"))
|
1997-03-20 12:37:06 +00:00
|
|
|
|
(if (or (eq dired-no-confirm t)
|
|
|
|
|
|
(memq op-symbol dired-no-confirm)
|
2005-05-15 21:33:25 +00:00
|
|
|
|
;; If FILES defaulted to the current line's file.
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(= (length files) 1))
|
|
|
|
|
|
(apply function args)
|
2000-10-04 23:38:28 +00:00
|
|
|
|
(with-current-buffer (get-buffer-create bufname)
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(erase-buffer)
|
2005-05-15 21:33:25 +00:00
|
|
|
|
;; Handle (t FILE) just like (FILE), here.
|
|
|
|
|
|
;; That value is used (only in some cases), to mean
|
|
|
|
|
|
;; just one file that was marked, rather than the current line file.
|
|
|
|
|
|
(dired-format-columns-of-files (if (eq (car files) t) (cdr files) files))
|
2001-06-18 06:51:38 +00:00
|
|
|
|
(remove-text-properties (point-min) (point-max)
|
|
|
|
|
|
'(mouse-face nil help-echo nil)))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(save-window-excursion
|
|
|
|
|
|
(dired-pop-to-buffer bufname)
|
|
|
|
|
|
(apply function args))))
|
|
|
|
|
|
|
|
|
|
|
|
(defun dired-format-columns-of-files (files)
|
2008-05-02 17:39:02 +00:00
|
|
|
|
(let ((beg (point)))
|
|
|
|
|
|
(completion--insert-strings files)
|
|
|
|
|
|
(put-text-property beg (point) 'mouse-face nil)))
|
2001-01-26 13:14:11 +00:00
|
|
|
|
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;; Commands to mark or flag file(s) at or near current line.
|
|
|
|
|
|
|
|
|
|
|
|
(defun dired-repeat-over-lines (arg function)
|
|
|
|
|
|
;; This version skips non-file lines.
|
1993-06-15 07:59:07 +00:00
|
|
|
|
(let ((pos (make-marker)))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(beginning-of-line)
|
1993-06-15 07:59:07 +00:00
|
|
|
|
(while (and (> arg 0) (not (eobp)))
|
|
|
|
|
|
(setq arg (1- arg))
|
|
|
|
|
|
(beginning-of-line)
|
|
|
|
|
|
(while (and (not (eobp)) (dired-between-files)) (forward-line 1))
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(forward-line 1)
|
|
|
|
|
|
(move-marker pos (1+ (point))))
|
|
|
|
|
|
(save-excursion (funcall function))
|
|
|
|
|
|
;; Advance to the next line--actually, to the line that *was* next.
|
|
|
|
|
|
;; (If FUNCTION inserted some new lines in between, skip them.)
|
|
|
|
|
|
(goto-char pos))
|
|
|
|
|
|
(while (and (< arg 0) (not (bobp)))
|
|
|
|
|
|
(setq arg (1+ arg))
|
|
|
|
|
|
(forward-line -1)
|
|
|
|
|
|
(while (and (not (bobp)) (dired-between-files)) (forward-line -1))
|
|
|
|
|
|
(beginning-of-line)
|
|
|
|
|
|
(save-excursion (funcall function)))
|
|
|
|
|
|
(move-marker pos nil)
|
|
|
|
|
|
(dired-move-to-filename)))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
|
|
|
|
|
(defun dired-between-files ()
|
2003-12-24 23:18:55 +00:00
|
|
|
|
;; This used to be a regexp match of the `total ...' line output by
|
|
|
|
|
|
;; ls, which is slightly faster, but that is not very robust; notably,
|
|
|
|
|
|
;; it fails for non-english locales.
|
|
|
|
|
|
(save-excursion (not (dired-move-to-filename))))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
|
|
|
|
|
(defun dired-next-marked-file (arg &optional wrap opoint)
|
|
|
|
|
|
"Move to the next marked file, wrapping around the end of the buffer."
|
|
|
|
|
|
(interactive "p\np")
|
|
|
|
|
|
(or opoint (setq opoint (point)));; return to where interactively started
|
|
|
|
|
|
(if (if (> arg 0)
|
|
|
|
|
|
(re-search-forward dired-re-mark nil t arg)
|
|
|
|
|
|
(beginning-of-line)
|
|
|
|
|
|
(re-search-backward dired-re-mark nil t (- arg)))
|
|
|
|
|
|
(dired-move-to-filename)
|
|
|
|
|
|
(if (null wrap)
|
|
|
|
|
|
(progn
|
|
|
|
|
|
(goto-char opoint)
|
|
|
|
|
|
(error "No next marked file"))
|
|
|
|
|
|
(message "(Wraparound for next marked file)")
|
|
|
|
|
|
(goto-char (if (> arg 0) (point-min) (point-max)))
|
|
|
|
|
|
(dired-next-marked-file arg nil opoint))))
|
|
|
|
|
|
|
|
|
|
|
|
(defun dired-prev-marked-file (arg &optional wrap)
|
|
|
|
|
|
"Move to the previous marked file, wrapping around the end of the buffer."
|
|
|
|
|
|
(interactive "p\np")
|
|
|
|
|
|
(dired-next-marked-file (- arg) wrap))
|
|
|
|
|
|
|
|
|
|
|
|
(defun dired-file-marker (file)
|
|
|
|
|
|
;; Return FILE's marker, or nil if unmarked.
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(and (dired-goto-file file)
|
|
|
|
|
|
(progn
|
|
|
|
|
|
(beginning-of-line)
|
|
|
|
|
|
(if (not (equal ?\040 (following-char)))
|
|
|
|
|
|
(following-char))))))
|
|
|
|
|
|
|
|
|
|
|
|
(defun dired-mark-files-in-region (start end)
|
(dired-read-dir-and-switches): Ignore ., .., and
completion-ignored-extension directories if there's something else.
(dired-mark-if, dired-map-over-marks, dired-readin, dired-revert)
(dired-remember-marks, dired-undo, dired-build-subdir-alist)
(dired-internal-do-deletions, dired-mark-files-in-region, dired-mark)
(dired-toggle-marks, dired-change-marks, dired-unmark-all-files):
buffer-read-only -> inhibit-read-only.
2008-05-13 05:15:57 +00:00
|
|
|
|
(let ((inhibit-read-only t))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(if (> start end)
|
|
|
|
|
|
(error "start > end"))
|
|
|
|
|
|
(goto-char start) ; assumed at beginning of line
|
|
|
|
|
|
(while (< (point) end)
|
|
|
|
|
|
;; Skip subdir line and following garbage like the `total' line:
|
|
|
|
|
|
(while (and (< (point) end) (dired-between-files))
|
|
|
|
|
|
(forward-line 1))
|
|
|
|
|
|
(if (and (not (looking-at dired-re-dot))
|
|
|
|
|
|
(dired-get-filename nil t))
|
|
|
|
|
|
(progn
|
|
|
|
|
|
(delete-char 1)
|
|
|
|
|
|
(insert dired-marker-char)))
|
|
|
|
|
|
(forward-line 1))))
|
|
|
|
|
|
|
|
|
|
|
|
(defun dired-mark (arg)
|
|
|
|
|
|
"Mark the current (or next ARG) files.
|
|
|
|
|
|
If on a subdir headerline, mark all its files except `.' and `..'.
|
|
|
|
|
|
|
|
|
|
|
|
Use \\[dired-unmark-all-files] to remove all marks
|
|
|
|
|
|
and \\[dired-unmark] on a subdir to remove the marks in
|
|
|
|
|
|
this subdir."
|
|
|
|
|
|
(interactive "P")
|
1995-02-09 09:40:01 +00:00
|
|
|
|
(if (dired-get-subdir)
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(save-excursion (dired-mark-subdir-files))
|
(dired-read-dir-and-switches): Ignore ., .., and
completion-ignored-extension directories if there's something else.
(dired-mark-if, dired-map-over-marks, dired-readin, dired-revert)
(dired-remember-marks, dired-undo, dired-build-subdir-alist)
(dired-internal-do-deletions, dired-mark-files-in-region, dired-mark)
(dired-toggle-marks, dired-change-marks, dired-unmark-all-files):
buffer-read-only -> inhibit-read-only.
2008-05-13 05:15:57 +00:00
|
|
|
|
(let ((inhibit-read-only t))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(dired-repeat-over-lines
|
1992-07-21 22:40:10 +00:00
|
|
|
|
(prefix-numeric-value arg)
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(function (lambda () (delete-char 1) (insert dired-marker-char)))))))
|
|
|
|
|
|
|
|
|
|
|
|
(defun dired-unmark (arg)
|
|
|
|
|
|
"Unmark the current (or next ARG) files.
|
|
|
|
|
|
If looking at a subdir, unmark all its files except `.' and `..'."
|
|
|
|
|
|
(interactive "P")
|
|
|
|
|
|
(let ((dired-marker-char ?\040))
|
|
|
|
|
|
(dired-mark arg)))
|
|
|
|
|
|
|
|
|
|
|
|
(defun dired-flag-file-deletion (arg)
|
2001-11-12 17:05:13 +00:00
|
|
|
|
"In Dired, flag the current line's file for deletion.
|
1992-06-24 02:13:56 +00:00
|
|
|
|
With prefix arg, repeat over several lines.
|
|
|
|
|
|
|
|
|
|
|
|
If on a subdir headerline, mark all its files except `.' and `..'."
|
|
|
|
|
|
(interactive "P")
|
|
|
|
|
|
(let ((dired-marker-char dired-del-marker))
|
|
|
|
|
|
(dired-mark arg)))
|
|
|
|
|
|
|
|
|
|
|
|
(defun dired-unmark-backward (arg)
|
2011-07-06 17:10:36 +00:00
|
|
|
|
"In Dired, move up lines and remove marks or deletion flags there.
|
|
|
|
|
|
Optional prefix ARG says how many lines to unmark/unflag; default
|
|
|
|
|
|
is one line."
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(interactive "p")
|
|
|
|
|
|
(dired-unmark (- arg)))
|
1998-02-27 21:45:01 +00:00
|
|
|
|
|
2002-03-28 18:32:59 +00:00
|
|
|
|
(defun dired-toggle-marks ()
|
|
|
|
|
|
"Toggle marks: marked files become unmarked, and vice versa.
|
1998-02-27 21:45:01 +00:00
|
|
|
|
Files marked with other flags (such as `D') are not affected.
|
|
|
|
|
|
`.' and `..' are never toggled.
|
|
|
|
|
|
As always, hidden subdirs are not affected."
|
|
|
|
|
|
(interactive)
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(goto-char (point-min))
|
(dired-read-dir-and-switches): Ignore ., .., and
completion-ignored-extension directories if there's something else.
(dired-mark-if, dired-map-over-marks, dired-readin, dired-revert)
(dired-remember-marks, dired-undo, dired-build-subdir-alist)
(dired-internal-do-deletions, dired-mark-files-in-region, dired-mark)
(dired-toggle-marks, dired-change-marks, dired-unmark-all-files):
buffer-read-only -> inhibit-read-only.
2008-05-13 05:15:57 +00:00
|
|
|
|
(let ((inhibit-read-only t))
|
1998-02-27 21:45:01 +00:00
|
|
|
|
(while (not (eobp))
|
|
|
|
|
|
(or (dired-between-files)
|
|
|
|
|
|
(looking-at dired-re-dot)
|
|
|
|
|
|
;; use subst instead of insdel because it does not move
|
|
|
|
|
|
;; the gap and thus should be faster and because
|
|
|
|
|
|
;; other characters are left alone automatically
|
|
|
|
|
|
(apply 'subst-char-in-region
|
|
|
|
|
|
(point) (1+ (point))
|
|
|
|
|
|
(if (eq ?\040 (following-char)) ; SPC
|
|
|
|
|
|
(list ?\040 dired-marker-char)
|
|
|
|
|
|
(list dired-marker-char ?\040))))
|
|
|
|
|
|
(forward-line 1)))))
|
2001-01-26 13:14:11 +00:00
|
|
|
|
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;;; Commands to mark or flag files based on their characteristics or names.
|
|
|
|
|
|
|
1993-01-09 13:53:49 +00:00
|
|
|
|
(defvar dired-regexp-history nil
|
|
|
|
|
|
"History list of regular expressions used in Dired commands.")
|
|
|
|
|
|
|
|
|
|
|
|
(defun dired-read-regexp (prompt)
|
|
|
|
|
|
(read-from-minibuffer prompt nil nil nil 'dired-regexp-history))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
|
|
|
|
|
(defun dired-mark-files-regexp (regexp &optional marker-char)
|
|
|
|
|
|
"Mark all files matching REGEXP for use in later commands.
|
|
|
|
|
|
A prefix argument means to unmark them instead.
|
|
|
|
|
|
`.' and `..' are never marked.
|
|
|
|
|
|
|
|
|
|
|
|
REGEXP is an Emacs regexp, not a shell wildcard. Thus, use `\\.o$' for
|
|
|
|
|
|
object files--just `.o' will mark more than you might think."
|
|
|
|
|
|
(interactive
|
|
|
|
|
|
(list (dired-read-regexp (concat (if current-prefix-arg "Unmark" "Mark")
|
|
|
|
|
|
" files (regexp): "))
|
|
|
|
|
|
(if current-prefix-arg ?\040)))
|
|
|
|
|
|
(let ((dired-marker-char (or marker-char dired-marker-char)))
|
|
|
|
|
|
(dired-mark-if
|
|
|
|
|
|
(and (not (looking-at dired-re-dot))
|
|
|
|
|
|
(not (eolp)) ; empty line
|
|
|
|
|
|
(let ((fn (dired-get-filename nil t)))
|
|
|
|
|
|
(and fn (string-match regexp (file-name-nondirectory fn)))))
|
|
|
|
|
|
"matching file")))
|
|
|
|
|
|
|
1998-05-24 00:55:39 +00:00
|
|
|
|
(defun dired-mark-files-containing-regexp (regexp &optional marker-char)
|
|
|
|
|
|
"Mark all files with contents containing REGEXP for use in later commands.
|
|
|
|
|
|
A prefix argument means to unmark them instead.
|
|
|
|
|
|
`.' and `..' are never marked."
|
|
|
|
|
|
(interactive
|
|
|
|
|
|
(list (dired-read-regexp (concat (if current-prefix-arg "Unmark" "Mark")
|
|
|
|
|
|
" files containing (regexp): "))
|
|
|
|
|
|
(if current-prefix-arg ?\040)))
|
|
|
|
|
|
(let ((dired-marker-char (or marker-char dired-marker-char)))
|
|
|
|
|
|
(dired-mark-if
|
|
|
|
|
|
(and (not (looking-at dired-re-dot))
|
|
|
|
|
|
(not (eolp)) ; empty line
|
|
|
|
|
|
(let ((fn (dired-get-filename nil t)))
|
1998-09-10 16:00:20 +00:00
|
|
|
|
(when (and fn (file-readable-p fn)
|
|
|
|
|
|
(not (file-directory-p fn)))
|
|
|
|
|
|
(let ((prebuf (get-file-buffer fn)))
|
|
|
|
|
|
(message "Checking %s" fn)
|
|
|
|
|
|
;; For now we do it inside emacs
|
|
|
|
|
|
;; Grep might be better if there are a lot of files
|
|
|
|
|
|
(if prebuf
|
|
|
|
|
|
(with-current-buffer prebuf
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
|
(re-search-forward regexp nil t)))
|
|
|
|
|
|
(with-temp-buffer
|
|
|
|
|
|
(insert-file-contents fn)
|
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
|
(re-search-forward regexp nil t))))
|
1998-09-04 20:43:09 +00:00
|
|
|
|
)))
|
1998-05-24 00:55:39 +00:00
|
|
|
|
"matching file")))
|
|
|
|
|
|
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(defun dired-flag-files-regexp (regexp)
|
2001-11-12 17:05:13 +00:00
|
|
|
|
"In Dired, flag all files containing the specified REGEXP for deletion.
|
1992-06-24 02:13:56 +00:00
|
|
|
|
The match is against the non-directory part of the filename. Use `^'
|
|
|
|
|
|
and `$' to anchor matches. Exclude subdirs by hiding them.
|
|
|
|
|
|
`.' and `..' are never flagged."
|
|
|
|
|
|
(interactive (list (dired-read-regexp "Flag for deletion (regexp): ")))
|
|
|
|
|
|
(dired-mark-files-regexp regexp dired-del-marker))
|
|
|
|
|
|
|
|
|
|
|
|
(defun dired-mark-symlinks (unflag-p)
|
|
|
|
|
|
"Mark all symbolic links.
|
2011-07-06 17:10:36 +00:00
|
|
|
|
With prefix argument, unmark or unflag all those files."
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(interactive "P")
|
|
|
|
|
|
(let ((dired-marker-char (if unflag-p ?\040 dired-marker-char)))
|
|
|
|
|
|
(dired-mark-if (looking-at dired-re-sym) "symbolic link")))
|
|
|
|
|
|
|
|
|
|
|
|
(defun dired-mark-directories (unflag-p)
|
|
|
|
|
|
"Mark all directory file lines except `.' and `..'.
|
2011-07-06 17:10:36 +00:00
|
|
|
|
With prefix argument, unmark or unflag all those files."
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(interactive "P")
|
|
|
|
|
|
(let ((dired-marker-char (if unflag-p ?\040 dired-marker-char)))
|
|
|
|
|
|
(dired-mark-if (and (looking-at dired-re-dir)
|
|
|
|
|
|
(not (looking-at dired-re-dot)))
|
|
|
|
|
|
"directory file")))
|
|
|
|
|
|
|
|
|
|
|
|
(defun dired-mark-executables (unflag-p)
|
|
|
|
|
|
"Mark all executable files.
|
2011-07-06 17:10:36 +00:00
|
|
|
|
With prefix argument, unmark or unflag all those files."
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(interactive "P")
|
|
|
|
|
|
(let ((dired-marker-char (if unflag-p ?\040 dired-marker-char)))
|
|
|
|
|
|
(dired-mark-if (looking-at dired-re-exe) "executable file")))
|
|
|
|
|
|
|
|
|
|
|
|
;; dired-x.el has a dired-mark-sexp interactive command: mark
|
|
|
|
|
|
;; files for which PREDICATE returns non-nil.
|
|
|
|
|
|
|
|
|
|
|
|
(defun dired-flag-auto-save-files (&optional unflag-p)
|
1992-05-30 23:52:26 +00:00
|
|
|
|
"Flag for deletion files whose names suggest they are auto save files.
|
2011-07-06 17:10:36 +00:00
|
|
|
|
A prefix argument says to unmark or unflag those files instead."
|
1992-05-30 23:52:26 +00:00
|
|
|
|
(interactive "P")
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(let ((dired-marker-char (if unflag-p ?\040 dired-del-marker)))
|
|
|
|
|
|
(dired-mark-if
|
1993-06-11 05:56:00 +00:00
|
|
|
|
;; It is less than general to check for # here,
|
1993-05-24 23:03:04 +00:00
|
|
|
|
;; but it's the only way this runs fast enough.
|
|
|
|
|
|
(and (save-excursion (end-of-line)
|
1993-06-08 22:54:46 +00:00
|
|
|
|
(or
|
|
|
|
|
|
(eq (preceding-char) ?#)
|
|
|
|
|
|
;; Handle executables in case of -F option.
|
|
|
|
|
|
;; We need not worry about the other kinds
|
|
|
|
|
|
;; of markings that -F makes, since they won't
|
|
|
|
|
|
;; appear on real auto-save files.
|
|
|
|
|
|
(if (eq (preceding-char) ?*)
|
|
|
|
|
|
(progn
|
|
|
|
|
|
(forward-char -1)
|
|
|
|
|
|
(eq (preceding-char) ?#)))))
|
1993-05-24 23:03:04 +00:00
|
|
|
|
(not (looking-at dired-re-dir))
|
|
|
|
|
|
(let ((fn (dired-get-filename t t)))
|
|
|
|
|
|
(if fn (auto-save-file-name-p
|
|
|
|
|
|
(file-name-nondirectory fn)))))
|
|
|
|
|
|
"auto save file")))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
2004-03-23 21:44:31 +00:00
|
|
|
|
(defcustom dired-garbage-files-regexp
|
2004-03-25 10:40:59 +00:00
|
|
|
|
;; `log' here is dubious, since it's typically used for useful log
|
2004-03-23 21:44:31 +00:00
|
|
|
|
;; files, not just TeX stuff. -- fx
|
2003-01-10 16:42:27 +00:00
|
|
|
|
(concat (regexp-opt
|
|
|
|
|
|
'(".log" ".toc" ".dvi" ".bak" ".orig" ".rej" ".aux"))
|
2003-01-31 15:24:20 +00:00
|
|
|
|
"\\'")
|
2004-03-23 21:44:31 +00:00
|
|
|
|
"Regular expression to match \"garbage\" files for `dired-flag-garbage-files'."
|
|
|
|
|
|
:type 'regexp
|
|
|
|
|
|
:group 'dired)
|
1997-01-04 00:10:30 +00:00
|
|
|
|
|
|
|
|
|
|
(defun dired-flag-garbage-files ()
|
|
|
|
|
|
"Flag for deletion all files that match `dired-garbage-files-regexp'."
|
1997-09-06 22:22:24 +00:00
|
|
|
|
(interactive)
|
1997-01-04 00:10:30 +00:00
|
|
|
|
(dired-flag-files-regexp dired-garbage-files-regexp))
|
|
|
|
|
|
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(defun dired-flag-backup-files (&optional unflag-p)
|
|
|
|
|
|
"Flag all backup files (names ending with `~') for deletion.
|
2011-07-06 17:10:36 +00:00
|
|
|
|
With prefix argument, unmark or unflag these files."
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(interactive "P")
|
(dired-align-file, dired-flag-backup-files, dired-change-marks,
dired-unmark-all-files): "?\ " -> "?\s".
(dired-listing-switches, dired-ls-F-marks-symlinks, dired-dwim-target,
dired-load-hook, dired-mode-hook, dired-directory, dired-faces, dired,
dired-revert, dired-mode, dired-summary, dired-view-file,
dired-copy-filename-as-kill, dired-delete-file, dired-no-confirm,
dired-unmark-all-marks, dired-sort-by-date-regexp, dired-sort-by-name-regexp,
dired-sort-inhibit, dired-sort-other): Fix typos in docstrings.
(dired-undo, dired-get-file-for-visit, dired-sort-toggle-or-edit):
Fix typos in message strings.
2005-07-20 14:08:39 +00:00
|
|
|
|
(let ((dired-marker-char (if unflag-p ?\s dired-del-marker)))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(dired-mark-if
|
1995-12-13 19:42:33 +00:00
|
|
|
|
;; Don't call backup-file-name-p unless the last character looks like
|
|
|
|
|
|
;; it might be the end of a backup file name. This isn't very general,
|
1993-05-24 23:03:04 +00:00
|
|
|
|
;; but it's the only way this runs fast enough.
|
|
|
|
|
|
(and (save-excursion (end-of-line)
|
1995-12-13 19:42:33 +00:00
|
|
|
|
;; Handle executables in case of -F option.
|
|
|
|
|
|
;; We need not worry about the other kinds
|
|
|
|
|
|
;; of markings that -F makes, since they won't
|
|
|
|
|
|
;; appear on real backup files.
|
|
|
|
|
|
(if (eq (preceding-char) ?*)
|
|
|
|
|
|
(forward-char -1))
|
1995-12-19 21:39:23 +00:00
|
|
|
|
(eq (preceding-char) ?~))
|
1993-05-24 23:03:04 +00:00
|
|
|
|
(not (looking-at dired-re-dir))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(let ((fn (dired-get-filename t t)))
|
|
|
|
|
|
(if fn (backup-file-name-p fn))))
|
|
|
|
|
|
"backup file")))
|
|
|
|
|
|
|
1992-08-03 03:44:51 +00:00
|
|
|
|
(defun dired-change-marks (&optional old new)
|
|
|
|
|
|
"Change all OLD marks to NEW marks.
|
|
|
|
|
|
OLD and NEW are both characters used to mark files."
|
|
|
|
|
|
(interactive
|
|
|
|
|
|
(let* ((cursor-in-echo-area t)
|
|
|
|
|
|
(old (progn (message "Change (old mark): ") (read-char)))
|
|
|
|
|
|
(new (progn (message "Change %c marks to (new mark): " old)
|
|
|
|
|
|
(read-char))))
|
|
|
|
|
|
(list old new)))
|
1993-06-04 07:25:58 +00:00
|
|
|
|
(if (or (eq old ?\r) (eq new ?\r))
|
|
|
|
|
|
(ding)
|
|
|
|
|
|
(let ((string (format "\n%c" old))
|
(dired-read-dir-and-switches): Ignore ., .., and
completion-ignored-extension directories if there's something else.
(dired-mark-if, dired-map-over-marks, dired-readin, dired-revert)
(dired-remember-marks, dired-undo, dired-build-subdir-alist)
(dired-internal-do-deletions, dired-mark-files-in-region, dired-mark)
(dired-toggle-marks, dired-change-marks, dired-unmark-all-files):
buffer-read-only -> inhibit-read-only.
2008-05-13 05:15:57 +00:00
|
|
|
|
(inhibit-read-only t))
|
1993-06-04 07:25:58 +00:00
|
|
|
|
(save-excursion
|
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
|
(while (search-forward string nil t)
|
(dired-align-file, dired-flag-backup-files, dired-change-marks,
dired-unmark-all-files): "?\ " -> "?\s".
(dired-listing-switches, dired-ls-F-marks-symlinks, dired-dwim-target,
dired-load-hook, dired-mode-hook, dired-directory, dired-faces, dired,
dired-revert, dired-mode, dired-summary, dired-view-file,
dired-copy-filename-as-kill, dired-delete-file, dired-no-confirm,
dired-unmark-all-marks, dired-sort-by-date-regexp, dired-sort-by-name-regexp,
dired-sort-inhibit, dired-sort-other): Fix typos in docstrings.
(dired-undo, dired-get-file-for-visit, dired-sort-toggle-or-edit):
Fix typos in message strings.
2005-07-20 14:08:39 +00:00
|
|
|
|
(if (if (= old ?\s)
|
1995-06-14 11:46:56 +00:00
|
|
|
|
(save-match-data
|
|
|
|
|
|
(dired-get-filename 'no-dir t))
|
|
|
|
|
|
t)
|
|
|
|
|
|
(subst-char-in-region (match-beginning 0)
|
|
|
|
|
|
(match-end 0) old new)))))))
|
1992-08-03 03:44:51 +00:00
|
|
|
|
|
1997-06-07 19:31:24 +00:00
|
|
|
|
(defun dired-unmark-all-marks ()
|
(dired-align-file, dired-flag-backup-files, dired-change-marks,
dired-unmark-all-files): "?\ " -> "?\s".
(dired-listing-switches, dired-ls-F-marks-symlinks, dired-dwim-target,
dired-load-hook, dired-mode-hook, dired-directory, dired-faces, dired,
dired-revert, dired-mode, dired-summary, dired-view-file,
dired-copy-filename-as-kill, dired-delete-file, dired-no-confirm,
dired-unmark-all-marks, dired-sort-by-date-regexp, dired-sort-by-name-regexp,
dired-sort-inhibit, dired-sort-other): Fix typos in docstrings.
(dired-undo, dired-get-file-for-visit, dired-sort-toggle-or-edit):
Fix typos in message strings.
2005-07-20 14:08:39 +00:00
|
|
|
|
"Remove all marks from all files in the dired buffer."
|
1993-07-20 01:11:28 +00:00
|
|
|
|
(interactive)
|
|
|
|
|
|
(dired-unmark-all-files ?\r))
|
|
|
|
|
|
|
1993-05-25 22:59:26 +00:00
|
|
|
|
(defun dired-unmark-all-files (mark &optional arg)
|
1993-06-06 21:13:16 +00:00
|
|
|
|
"Remove a specific mark (or any mark) from every file.
|
2003-01-31 15:24:20 +00:00
|
|
|
|
After this command, type the mark character to remove,
|
1993-06-06 21:13:16 +00:00
|
|
|
|
or type RET to remove all marks.
|
1993-04-05 06:23:05 +00:00
|
|
|
|
With prefix arg, query for each marked file.
|
1992-06-24 02:13:56 +00:00
|
|
|
|
Type \\[help-command] at that time for help."
|
1993-06-06 21:13:16 +00:00
|
|
|
|
(interactive "cRemove marks (RET means all): \nP")
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(let* ((count 0)
|
2011-03-01 05:03:24 +00:00
|
|
|
|
(inhibit-read-only t) case-fold-search
|
1993-06-06 21:13:16 +00:00
|
|
|
|
(string (format "\n%c" mark))
|
|
|
|
|
|
(help-form "\
|
1993-05-25 22:59:26 +00:00
|
|
|
|
Type SPC or `y' to unmark one file, DEL or `n' to skip to next,
|
|
|
|
|
|
`!' to unmark all remaining files with no more questions."))
|
1993-06-06 21:13:16 +00:00
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
|
(while (if (eq mark ?\r)
|
|
|
|
|
|
(re-search-forward dired-re-mark nil t)
|
|
|
|
|
|
(search-forward string nil t))
|
|
|
|
|
|
(if (or (not arg)
|
2003-06-04 09:02:55 +00:00
|
|
|
|
(let ((file (dired-get-filename t t)))
|
|
|
|
|
|
(and file
|
|
|
|
|
|
(dired-query 'query "Unmark file `%s'? "
|
|
|
|
|
|
file))))
|
1993-06-06 21:13:16 +00:00
|
|
|
|
(progn (subst-char-in-region (1- (point)) (point)
|
(dired-align-file, dired-flag-backup-files, dired-change-marks,
dired-unmark-all-files): "?\ " -> "?\s".
(dired-listing-switches, dired-ls-F-marks-symlinks, dired-dwim-target,
dired-load-hook, dired-mode-hook, dired-directory, dired-faces, dired,
dired-revert, dired-mode, dired-summary, dired-view-file,
dired-copy-filename-as-kill, dired-delete-file, dired-no-confirm,
dired-unmark-all-marks, dired-sort-by-date-regexp, dired-sort-by-name-regexp,
dired-sort-inhibit, dired-sort-other): Fix typos in docstrings.
(dired-undo, dired-get-file-for-visit, dired-sort-toggle-or-edit):
Fix typos in message strings.
2005-07-20 14:08:39 +00:00
|
|
|
|
(preceding-char) ?\s)
|
1993-06-06 21:13:16 +00:00
|
|
|
|
(setq count (1+ count)))))
|
|
|
|
|
|
(message (if (= count 1) "1 mark removed"
|
|
|
|
|
|
"%d marks removed")
|
|
|
|
|
|
count))))
|
2001-01-26 13:14:11 +00:00
|
|
|
|
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;; Logging failures operating on files, and showing the results.
|
1992-05-30 23:52:26 +00:00
|
|
|
|
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(defvar dired-log-buffer "*Dired log*")
|
1992-05-30 23:52:26 +00:00
|
|
|
|
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(defun dired-why ()
|
|
|
|
|
|
"Pop up a buffer with error log output from Dired.
|
|
|
|
|
|
A group of errors from a single command ends with a formfeed.
|
|
|
|
|
|
Thus, use \\[backward-page] to find the beginning of a group of errors."
|
|
|
|
|
|
(interactive)
|
|
|
|
|
|
(if (get-buffer dired-log-buffer)
|
|
|
|
|
|
(let ((owindow (selected-window))
|
|
|
|
|
|
(window (display-buffer (get-buffer dired-log-buffer))))
|
|
|
|
|
|
(unwind-protect
|
1992-08-03 03:44:51 +00:00
|
|
|
|
(progn
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(select-window window)
|
|
|
|
|
|
(goto-char (point-max))
|
2002-09-15 01:52:54 +00:00
|
|
|
|
(forward-line -1)
|
|
|
|
|
|
(backward-page 1)
|
|
|
|
|
|
(recenter 0))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(select-window owindow)))))
|
|
|
|
|
|
|
|
|
|
|
|
(defun dired-log (log &rest args)
|
|
|
|
|
|
;; Log a message or the contents of a buffer.
|
|
|
|
|
|
;; If LOG is a string and there are more args, it is formatted with
|
|
|
|
|
|
;; those ARGS. Usually the LOG string ends with a \n.
|
2003-01-31 15:24:20 +00:00
|
|
|
|
;; End each bunch of errors with (dired-log t):
|
2002-09-15 01:52:54 +00:00
|
|
|
|
;; this inserts the current time and buffer at the start of the page,
|
|
|
|
|
|
;; and \f (formfeed) at the end.
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(let ((obuf (current-buffer)))
|
2002-09-15 01:52:54 +00:00
|
|
|
|
(with-current-buffer (get-buffer-create dired-log-buffer)
|
|
|
|
|
|
(goto-char (point-max))
|
|
|
|
|
|
(let ((inhibit-read-only t))
|
|
|
|
|
|
(cond ((stringp log)
|
|
|
|
|
|
(insert (if args
|
|
|
|
|
|
(apply (function format) log args)
|
|
|
|
|
|
log)))
|
|
|
|
|
|
((bufferp log)
|
2005-07-18 10:24:58 +00:00
|
|
|
|
(insert-buffer-substring log))
|
2002-09-15 01:52:54 +00:00
|
|
|
|
((eq t log)
|
|
|
|
|
|
(backward-page 1)
|
|
|
|
|
|
(unless (bolp)
|
|
|
|
|
|
(insert "\n"))
|
|
|
|
|
|
(insert (current-time-string)
|
|
|
|
|
|
"\tBuffer `" (buffer-name obuf) "'\n")
|
|
|
|
|
|
(goto-char (point-max))
|
|
|
|
|
|
(insert "\f\n")))))))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
|
|
|
|
|
(defun dired-log-summary (string failures)
|
2006-09-08 11:58:18 +00:00
|
|
|
|
"State a summary of a command's failures, in echo area and log buffer.
|
|
|
|
|
|
STRING is an overall summary of the failures.
|
|
|
|
|
|
FAILURES is a list of file names that we failed to operate on,
|
|
|
|
|
|
or nil if file names are not applicable."
|
2002-09-15 01:52:54 +00:00
|
|
|
|
(if (= (length failures) 1)
|
|
|
|
|
|
(message "%s"
|
|
|
|
|
|
(with-current-buffer dired-log-buffer
|
|
|
|
|
|
(goto-char (point-max))
|
|
|
|
|
|
(backward-page 1)
|
|
|
|
|
|
(if (eolp) (forward-line 1))
|
|
|
|
|
|
(buffer-substring (point) (point-max))))
|
|
|
|
|
|
(message (if failures "%s--type ? for details (%s)"
|
|
|
|
|
|
"%s--type ? for details")
|
|
|
|
|
|
string failures))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;; Log a summary describing a bunch of errors.
|
2002-09-15 01:52:54 +00:00
|
|
|
|
(dired-log (concat "\n" string "\n"))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(dired-log t))
|
2001-01-26 13:14:11 +00:00
|
|
|
|
|
1992-06-24 02:13:56 +00:00
|
|
|
|
;;; Sorting
|
|
|
|
|
|
|
|
|
|
|
|
;; Most ls can only sort by name or by date (with -t), nothing else.
|
|
|
|
|
|
;; GNU ls sorts on size with -S, on extension with -X, and unsorted with -U.
|
|
|
|
|
|
;; So anything that does not contain these is sort "by name".
|
|
|
|
|
|
|
|
|
|
|
|
(defvar dired-ls-sorting-switches "SXU"
|
2004-11-22 05:07:07 +00:00
|
|
|
|
"String of `ls' switches \(single letters\) except \"t\" that influence sorting.
|
2003-11-01 17:48:54 +00:00
|
|
|
|
|
|
|
|
|
|
This indicates to Dired which option switches to watch out for because they
|
|
|
|
|
|
will change the sorting order behavior of `ls'.
|
|
|
|
|
|
|
|
|
|
|
|
To change the default sorting order \(e.g. add a `-v' option\), see the
|
|
|
|
|
|
variable `dired-listing-switches'. To temporarily override the listing
|
|
|
|
|
|
format, use `\\[universal-argument] \\[dired]'.")
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
|
|
|
|
|
(defvar dired-sort-by-date-regexp
|
2010-09-05 21:28:50 +00:00
|
|
|
|
(concat "\\(\\`\\| \\)-[^- ]*t"
|
|
|
|
|
|
;; `dired-ls-sorting-switches' after -t overrides -t.
|
|
|
|
|
|
"[^ " dired-ls-sorting-switches "]*"
|
|
|
|
|
|
"\\(\\(\\`\\| +\\)\\(--[^ ]+\\|-[^- t"
|
|
|
|
|
|
dired-ls-sorting-switches "]+\\)\\)* *$")
|
(dired-align-file, dired-flag-backup-files, dired-change-marks,
dired-unmark-all-files): "?\ " -> "?\s".
(dired-listing-switches, dired-ls-F-marks-symlinks, dired-dwim-target,
dired-load-hook, dired-mode-hook, dired-directory, dired-faces, dired,
dired-revert, dired-mode, dired-summary, dired-view-file,
dired-copy-filename-as-kill, dired-delete-file, dired-no-confirm,
dired-unmark-all-marks, dired-sort-by-date-regexp, dired-sort-by-name-regexp,
dired-sort-inhibit, dired-sort-other): Fix typos in docstrings.
(dired-undo, dired-get-file-for-visit, dired-sort-toggle-or-edit):
Fix typos in message strings.
2005-07-20 14:08:39 +00:00
|
|
|
|
"Regexp recognized by Dired to set `by date' mode.")
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
|
|
|
|
|
(defvar dired-sort-by-name-regexp
|
2010-09-05 21:28:50 +00:00
|
|
|
|
(concat "\\`\\(\\(\\`\\| +\\)\\(--[^ ]+\\|"
|
|
|
|
|
|
"-[^- t" dired-ls-sorting-switches "]+\\)\\)* *$")
|
(dired-align-file, dired-flag-backup-files, dired-change-marks,
dired-unmark-all-files): "?\ " -> "?\s".
(dired-listing-switches, dired-ls-F-marks-symlinks, dired-dwim-target,
dired-load-hook, dired-mode-hook, dired-directory, dired-faces, dired,
dired-revert, dired-mode, dired-summary, dired-view-file,
dired-copy-filename-as-kill, dired-delete-file, dired-no-confirm,
dired-unmark-all-marks, dired-sort-by-date-regexp, dired-sort-by-name-regexp,
dired-sort-inhibit, dired-sort-other): Fix typos in docstrings.
(dired-undo, dired-get-file-for-visit, dired-sort-toggle-or-edit):
Fix typos in message strings.
2005-07-20 14:08:39 +00:00
|
|
|
|
"Regexp recognized by Dired to set `by name' mode.")
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
2002-11-21 17:31:51 +00:00
|
|
|
|
(defvar dired-sort-inhibit nil
|
|
|
|
|
|
"Non-nil means the Dired sort command is disabled.
|
(dired-align-file, dired-flag-backup-files, dired-change-marks,
dired-unmark-all-files): "?\ " -> "?\s".
(dired-listing-switches, dired-ls-F-marks-symlinks, dired-dwim-target,
dired-load-hook, dired-mode-hook, dired-directory, dired-faces, dired,
dired-revert, dired-mode, dired-summary, dired-view-file,
dired-copy-filename-as-kill, dired-delete-file, dired-no-confirm,
dired-unmark-all-marks, dired-sort-by-date-regexp, dired-sort-by-name-regexp,
dired-sort-inhibit, dired-sort-other): Fix typos in docstrings.
(dired-undo, dired-get-file-for-visit, dired-sort-toggle-or-edit):
Fix typos in message strings.
2005-07-20 14:08:39 +00:00
|
|
|
|
The idea is to set this buffer-locally in special dired buffers.")
|
2002-11-21 17:31:51 +00:00
|
|
|
|
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(defun dired-sort-set-modeline ()
|
|
|
|
|
|
;; Set modeline display according to dired-actual-switches.
|
|
|
|
|
|
;; Modeline display of "by name" or "by date" guarantees the user a
|
|
|
|
|
|
;; match with the corresponding regexps. Non-matching switches are
|
|
|
|
|
|
;; shown literally.
|
2006-12-29 23:57:38 +00:00
|
|
|
|
(when (eq major-mode 'dired-mode)
|
|
|
|
|
|
(setq mode-name
|
|
|
|
|
|
(let (case-fold-search)
|
2007-05-16 10:51:25 +00:00
|
|
|
|
(cond ((string-match
|
2006-12-29 23:57:38 +00:00
|
|
|
|
dired-sort-by-name-regexp dired-actual-switches)
|
|
|
|
|
|
"Dired by name")
|
|
|
|
|
|
((string-match
|
|
|
|
|
|
dired-sort-by-date-regexp dired-actual-switches)
|
|
|
|
|
|
"Dired by date")
|
|
|
|
|
|
(t
|
|
|
|
|
|
(concat "Dired " dired-actual-switches)))))
|
|
|
|
|
|
(force-mode-line-update)))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
|
|
|
|
|
|
(defun dired-sort-toggle-or-edit (&optional arg)
|
2010-09-05 21:28:50 +00:00
|
|
|
|
"Toggle sorting by date, and refresh the Dired buffer.
|
|
|
|
|
|
With a prefix argument, edit the current listing switches instead."
|
1992-05-30 23:52:26 +00:00
|
|
|
|
(interactive "P")
|
2002-11-21 17:31:51 +00:00
|
|
|
|
(when dired-sort-inhibit
|
(dired-align-file, dired-flag-backup-files, dired-change-marks,
dired-unmark-all-files): "?\ " -> "?\s".
(dired-listing-switches, dired-ls-F-marks-symlinks, dired-dwim-target,
dired-load-hook, dired-mode-hook, dired-directory, dired-faces, dired,
dired-revert, dired-mode, dired-summary, dired-view-file,
dired-copy-filename-as-kill, dired-delete-file, dired-no-confirm,
dired-unmark-all-marks, dired-sort-by-date-regexp, dired-sort-by-name-regexp,
dired-sort-inhibit, dired-sort-other): Fix typos in docstrings.
(dired-undo, dired-get-file-for-visit, dired-sort-toggle-or-edit):
Fix typos in message strings.
2005-07-20 14:08:39 +00:00
|
|
|
|
(error "Cannot sort this dired buffer"))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(if arg
|
|
|
|
|
|
(dired-sort-other
|
|
|
|
|
|
(read-string "ls switches (must contain -l): " dired-actual-switches))
|
|
|
|
|
|
(dired-sort-toggle)))
|
|
|
|
|
|
|
|
|
|
|
|
(defun dired-sort-toggle ()
|
|
|
|
|
|
;; Toggle between sort by date/name. Reverts the buffer.
|
2010-09-05 21:28:50 +00:00
|
|
|
|
(let ((sorting-by-date (string-match dired-sort-by-date-regexp
|
|
|
|
|
|
dired-actual-switches))
|
|
|
|
|
|
;; Regexp for finding (possibly embedded) -t switches.
|
|
|
|
|
|
(switch-regexp "\\(\\`\\| \\)-\\([a-su-zA-Z]*\\)\\(t\\)\\([^ ]*\\)")
|
|
|
|
|
|
case-fold-search)
|
|
|
|
|
|
;; Remove the -t switch.
|
|
|
|
|
|
(while (string-match switch-regexp dired-actual-switches)
|
|
|
|
|
|
(if (and (equal (match-string 2 dired-actual-switches) "")
|
|
|
|
|
|
(equal (match-string 4 dired-actual-switches) ""))
|
|
|
|
|
|
;; Remove a stand-alone -t switch.
|
|
|
|
|
|
(setq dired-actual-switches
|
|
|
|
|
|
(replace-match "" t t dired-actual-switches))
|
|
|
|
|
|
;; Remove a switch of the form -XtY for some X and Y.
|
|
|
|
|
|
(setq dired-actual-switches
|
|
|
|
|
|
(replace-match "" t t dired-actual-switches 3))))
|
|
|
|
|
|
;; Now, if we weren't sorting by date before, add the -t switch.
|
|
|
|
|
|
(unless sorting-by-date
|
|
|
|
|
|
(setq dired-actual-switches (concat dired-actual-switches " -t"))))
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(dired-sort-set-modeline)
|
|
|
|
|
|
(revert-buffer))
|
|
|
|
|
|
|
2001-01-26 13:14:11 +00:00
|
|
|
|
;; Some user code loads dired especially for this.
|
2002-01-13 02:39:08 +00:00
|
|
|
|
;; Don't do that--use replace-regexp-in-string instead.
|
2001-01-26 13:14:11 +00:00
|
|
|
|
(defun dired-replace-in-string (regexp newtext string)
|
|
|
|
|
|
;; Replace REGEXP with NEWTEXT everywhere in STRING and return result.
|
|
|
|
|
|
;; NEWTEXT is taken literally---no \\DIGIT escapes will be recognized.
|
|
|
|
|
|
(let ((result "") (start 0) mb me)
|
|
|
|
|
|
(while (string-match regexp string start)
|
|
|
|
|
|
(setq mb (match-beginning 0)
|
|
|
|
|
|
me (match-end 0)
|
|
|
|
|
|
result (concat result (substring string start mb) newtext)
|
|
|
|
|
|
start me))
|
|
|
|
|
|
(concat result (substring string start))))
|
|
|
|
|
|
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(defun dired-sort-other (switches &optional no-revert)
|
(dired-align-file, dired-flag-backup-files, dired-change-marks,
dired-unmark-all-files): "?\ " -> "?\s".
(dired-listing-switches, dired-ls-F-marks-symlinks, dired-dwim-target,
dired-load-hook, dired-mode-hook, dired-directory, dired-faces, dired,
dired-revert, dired-mode, dired-summary, dired-view-file,
dired-copy-filename-as-kill, dired-delete-file, dired-no-confirm,
dired-unmark-all-marks, dired-sort-by-date-regexp, dired-sort-by-name-regexp,
dired-sort-inhibit, dired-sort-other): Fix typos in docstrings.
(dired-undo, dired-get-file-for-visit, dired-sort-toggle-or-edit):
Fix typos in message strings.
2005-07-20 14:08:39 +00:00
|
|
|
|
"Specify new `ls' SWITCHES for current dired buffer.
|
2004-03-26 15:17:50 +00:00
|
|
|
|
Values matching `dired-sort-by-date-regexp' or `dired-sort-by-name-regexp'
|
|
|
|
|
|
set the minor mode accordingly, others appear literally in the mode line.
|
|
|
|
|
|
With optional second arg NO-REVERT, don't refresh the listing afterwards."
|
2000-07-24 12:27:26 +00:00
|
|
|
|
(dired-sort-R-check switches)
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(setq dired-actual-switches switches)
|
2006-12-29 23:57:38 +00:00
|
|
|
|
(dired-sort-set-modeline)
|
1992-06-24 02:13:56 +00:00
|
|
|
|
(or no-revert (revert-buffer)))
|
2000-07-24 12:27:26 +00:00
|
|
|
|
|
2006-01-19 17:50:15 +00:00
|
|
|
|
(defvar dired-subdir-alist-pre-R nil
|
|
|
|
|
|
"Value of `dired-subdir-alist' before -R switch added.")
|
2006-01-19 19:29:20 +00:00
|
|
|
|
(make-variable-buffer-local 'dired-subdir-alist-pre-R)
|
2000-07-24 12:27:26 +00:00
|
|
|
|
|
|
|
|
|
|
(defun dired-sort-R-check (switches)
|
|
|
|
|
|
"Additional processing of -R in ls option string SWITCHES.
|
|
|
|
|
|
Saves `dired-subdir-alist' when R is set and restores saved value
|
|
|
|
|
|
minus any directories explicitly deleted when R is cleared.
|
|
|
|
|
|
To be called first in body of `dired-sort-other', etc."
|
|
|
|
|
|
(cond
|
|
|
|
|
|
((and (string-match "R" switches)
|
|
|
|
|
|
(not (string-match "R" dired-actual-switches)))
|
|
|
|
|
|
;; Adding -R to ls switches -- save `dired-subdir-alist':
|
|
|
|
|
|
(setq dired-subdir-alist-pre-R dired-subdir-alist))
|
|
|
|
|
|
((and (string-match "R" dired-actual-switches)
|
|
|
|
|
|
(not (string-match "R" switches)))
|
|
|
|
|
|
;; Deleting -R from ls switches -- revert to pre-R subdirs
|
|
|
|
|
|
;; that are still present:
|
|
|
|
|
|
(setq dired-subdir-alist
|
|
|
|
|
|
(if dired-subdir-alist-pre-R
|
|
|
|
|
|
(let (subdirs)
|
|
|
|
|
|
(while dired-subdir-alist-pre-R
|
|
|
|
|
|
(if (assoc (caar dired-subdir-alist-pre-R)
|
|
|
|
|
|
dired-subdir-alist)
|
|
|
|
|
|
;; subdir still present...
|
|
|
|
|
|
(setq subdirs
|
|
|
|
|
|
(cons (car dired-subdir-alist-pre-R)
|
|
|
|
|
|
subdirs)))
|
|
|
|
|
|
(setq dired-subdir-alist-pre-R
|
|
|
|
|
|
(cdr dired-subdir-alist-pre-R)))
|
|
|
|
|
|
(reverse subdirs))
|
|
|
|
|
|
;; No pre-R subdir alist, so revert to main directory
|
|
|
|
|
|
;; listing:
|
|
|
|
|
|
(list (car (reverse dired-subdir-alist))))))))
|
2001-01-26 13:14:11 +00:00
|
|
|
|
|
2004-02-03 16:55:30 +00:00
|
|
|
|
|
|
|
|
|
|
;;;; Drag and drop support
|
|
|
|
|
|
|
2007-06-01 05:01:56 +00:00
|
|
|
|
(defcustom dired-recursive-copies 'top
|
2008-12-03 05:48:14 +00:00
|
|
|
|
"Decide whether recursive copies are allowed.
|
2007-05-16 10:51:25 +00:00
|
|
|
|
A value of nil means no recursive copies.
|
2004-11-22 16:53:41 +00:00
|
|
|
|
`always' means copy recursively without asking.
|
|
|
|
|
|
`top' means ask for each directory at top level.
|
|
|
|
|
|
Anything else means ask for each directory."
|
|
|
|
|
|
:type '(choice :tag "Copy directories"
|
|
|
|
|
|
(const :tag "No recursive copies" nil)
|
|
|
|
|
|
(const :tag "Ask for each directory" t)
|
|
|
|
|
|
(const :tag "Ask for each top directory only" top)
|
|
|
|
|
|
(const :tag "Copy directories without asking" always))
|
|
|
|
|
|
:group 'dired)
|
|
|
|
|
|
|
2004-02-03 16:55:30 +00:00
|
|
|
|
(defun dired-dnd-popup-notice ()
|
2005-05-23 23:36:18 +00:00
|
|
|
|
(message-box
|
2008-04-06 21:01:54 +00:00
|
|
|
|
"Dired recursive copies are currently disabled.\nSee the variable `dired-recursive-copies'."))
|
2004-02-03 16:55:30 +00:00
|
|
|
|
|
2009-11-10 08:11:47 +00:00
|
|
|
|
(declare-function x-popup-menu "menu.c" (position menu))
|
2004-02-03 16:55:30 +00:00
|
|
|
|
|
|
|
|
|
|
(defun dired-dnd-do-ask-action (uri)
|
|
|
|
|
|
;; No need to get actions and descriptions from the source,
|
|
|
|
|
|
;; we only have three actions anyway.
|
2004-06-06 02:22:41 +00:00
|
|
|
|
(let ((action (x-popup-menu
|
2004-02-03 16:55:30 +00:00
|
|
|
|
t
|
|
|
|
|
|
(list "What action?"
|
|
|
|
|
|
(cons ""
|
|
|
|
|
|
'(("Copy here" . copy)
|
|
|
|
|
|
("Move here" . move)
|
|
|
|
|
|
("Link here" . link)
|
|
|
|
|
|
"--"
|
|
|
|
|
|
("Cancel" . nil)))))))
|
|
|
|
|
|
(if action
|
|
|
|
|
|
(dired-dnd-handle-local-file uri action)
|
|
|
|
|
|
nil)))
|
|
|
|
|
|
|
2007-11-19 00:08:01 +00:00
|
|
|
|
(declare-function dired-relist-entry "dired-aux" (file))
|
2007-11-22 13:48:39 +00:00
|
|
|
|
(declare-function make-symbolic-link "fileio.c")
|
2007-11-19 00:08:01 +00:00
|
|
|
|
|
2008-06-12 03:56:20 +00:00
|
|
|
|
;; Only used when (featurep 'dnd).
|
|
|
|
|
|
(declare-function dnd-get-local-file-name "dnd" (uri &optional must-exist))
|
|
|
|
|
|
(declare-function dnd-get-local-file-uri "dnd" (uri))
|
|
|
|
|
|
|
2011-03-01 05:03:24 +00:00
|
|
|
|
(defvar dired-overwrite-confirmed) ;Defined in dired-aux.
|
|
|
|
|
|
|
2004-02-03 16:55:30 +00:00
|
|
|
|
(defun dired-dnd-handle-local-file (uri action)
|
|
|
|
|
|
"Copy, move or link a file to the dired directory.
|
|
|
|
|
|
URI is the file to handle, ACTION is one of copy, move, link or ask.
|
|
|
|
|
|
Ask means pop up a menu for the user to select one of copy, move or link."
|
|
|
|
|
|
(require 'dired-aux)
|
2005-04-11 19:28:07 +00:00
|
|
|
|
(let* ((from (dnd-get-local-file-name uri t))
|
2008-04-06 20:58:20 +00:00
|
|
|
|
(to (when from
|
|
|
|
|
|
(concat (dired-current-directory)
|
|
|
|
|
|
(file-name-nondirectory from)))))
|
2008-04-06 20:11:47 +00:00
|
|
|
|
(when from
|
2008-04-06 20:58:20 +00:00
|
|
|
|
(cond ((eq action 'ask)
|
2008-04-06 20:11:47 +00:00
|
|
|
|
(dired-dnd-do-ask-action uri))
|
2008-04-06 20:58:20 +00:00
|
|
|
|
;; If copying a directory and dired-recursive-copies is
|
|
|
|
|
|
;; nil, dired-copy-file fails. Pop up a notice.
|
|
|
|
|
|
((and (memq action '(copy private))
|
|
|
|
|
|
(file-directory-p from)
|
|
|
|
|
|
(not dired-recursive-copies))
|
|
|
|
|
|
(dired-dnd-popup-notice))
|
|
|
|
|
|
((memq action '(copy private move link))
|
|
|
|
|
|
(let ((overwrite (and (file-exists-p to)
|
|
|
|
|
|
(y-or-n-p
|
|
|
|
|
|
(format "Overwrite existing file `%s'? " to))))
|
|
|
|
|
|
;; Binding dired-overwrite-confirmed to nil makes
|
|
|
|
|
|
;; dired-handle-overwrite a no-op. We instead use
|
|
|
|
|
|
;; y-or-n-p, which pops a graphical menu.
|
|
|
|
|
|
dired-overwrite-confirmed backup-file)
|
|
|
|
|
|
(when (and overwrite
|
|
|
|
|
|
;; d-b-o is defined in dired-aux.
|
|
|
|
|
|
(boundp 'dired-backup-overwrite)
|
|
|
|
|
|
dired-backup-overwrite
|
|
|
|
|
|
(setq backup-file
|
|
|
|
|
|
(car (find-backup-file-name to)))
|
|
|
|
|
|
(or (eq dired-backup-overwrite 'always)
|
|
|
|
|
|
(y-or-n-p
|
|
|
|
|
|
(format
|
|
|
|
|
|
"Make backup for existing file `%s'? " to))))
|
|
|
|
|
|
(rename-file to backup-file 0)
|
|
|
|
|
|
(dired-relist-entry backup-file))
|
|
|
|
|
|
(cond ((memq action '(copy private))
|
|
|
|
|
|
(dired-copy-file from to overwrite))
|
|
|
|
|
|
((eq action 'move)
|
|
|
|
|
|
(dired-rename-file from to overwrite))
|
|
|
|
|
|
((eq action 'link)
|
|
|
|
|
|
(make-symbolic-link from to overwrite)))
|
|
|
|
|
|
(dired-relist-entry to)
|
|
|
|
|
|
action))))))
|
2004-02-03 16:55:30 +00:00
|
|
|
|
|
|
|
|
|
|
(defun dired-dnd-handle-file (uri action)
|
|
|
|
|
|
"Copy, move or link a file to the dired directory if it is a local file.
|
|
|
|
|
|
URI is the file to handle. If the hostname in the URI isn't local, do nothing.
|
|
|
|
|
|
ACTION is one of copy, move, link or ask.
|
|
|
|
|
|
Ask means pop up a menu for the user to select one of copy, move or link."
|
2005-04-11 19:28:07 +00:00
|
|
|
|
(let ((local-file (dnd-get-local-file-uri uri)))
|
2004-02-03 16:55:30 +00:00
|
|
|
|
(if local-file (dired-dnd-handle-local-file local-file action)
|
|
|
|
|
|
nil)))
|
2004-04-21 20:52:18 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;;; Desktop support
|
|
|
|
|
|
|
|
|
|
|
|
(eval-when-compile (require 'desktop))
|
|
|
|
|
|
|
2011-02-11 22:30:02 +00:00
|
|
|
|
(defun dired-desktop-buffer-misc-data (dirname)
|
2004-04-21 20:52:18 +00:00
|
|
|
|
"Auxiliary information to be saved in desktop file."
|
|
|
|
|
|
(cons
|
|
|
|
|
|
;; Value of `dired-directory'.
|
|
|
|
|
|
(if (consp dired-directory)
|
|
|
|
|
|
;; Directory name followed by list of files.
|
2011-02-11 22:30:02 +00:00
|
|
|
|
(cons (desktop-file-name (car dired-directory) dirname)
|
2004-04-21 20:52:18 +00:00
|
|
|
|
(cdr dired-directory))
|
2005-07-18 15:18:33 +00:00
|
|
|
|
;; Directory name, optionally with shell wildcard.
|
2011-02-11 22:30:02 +00:00
|
|
|
|
(desktop-file-name dired-directory dirname))
|
2004-04-21 20:52:18 +00:00
|
|
|
|
;; Subdirectories in `dired-subdir-alist'.
|
|
|
|
|
|
(cdr
|
|
|
|
|
|
(nreverse
|
|
|
|
|
|
(mapcar
|
2011-02-11 22:30:02 +00:00
|
|
|
|
(function (lambda (f) (desktop-file-name (car f) dirname)))
|
2004-04-21 20:52:18 +00:00
|
|
|
|
dired-subdir-alist)))))
|
2004-02-03 16:55:30 +00:00
|
|
|
|
|
2011-03-01 05:03:24 +00:00
|
|
|
|
(defun dired-restore-desktop-buffer (_file-name
|
|
|
|
|
|
_buffer-name
|
|
|
|
|
|
misc-data)
|
2004-04-21 20:52:18 +00:00
|
|
|
|
"Restore a dired buffer specified in a desktop file."
|
2011-03-01 05:03:24 +00:00
|
|
|
|
;; First element of `misc-data' is the value of `dired-directory'.
|
2005-07-18 15:18:33 +00:00
|
|
|
|
;; This value is a directory name, optionally with shell wildcard or
|
2004-04-21 20:52:18 +00:00
|
|
|
|
;; a directory name followed by list of files.
|
2011-03-01 05:03:24 +00:00
|
|
|
|
(let* ((dired-dir (car misc-data))
|
2004-04-21 20:52:18 +00:00
|
|
|
|
(dir (if (consp dired-dir) (car dired-dir) dired-dir)))
|
|
|
|
|
|
(if (file-directory-p (file-name-directory dir))
|
|
|
|
|
|
(progn
|
|
|
|
|
|
(dired dired-dir)
|
2011-03-01 05:03:24 +00:00
|
|
|
|
;; The following elements of `misc-data' are the keys
|
2004-04-21 20:52:18 +00:00
|
|
|
|
;; from `dired-subdir-alist'.
|
2011-03-01 05:03:24 +00:00
|
|
|
|
(mapc 'dired-maybe-insert-subdir (cdr misc-data))
|
2004-04-21 20:52:18 +00:00
|
|
|
|
(current-buffer))
|
|
|
|
|
|
(message "Desktop: Directory %s no longer exists." dir)
|
|
|
|
|
|
(when desktop-missing-file-warning (sit-for 1))
|
|
|
|
|
|
nil)))
|
2004-02-03 16:55:30 +00:00
|
|
|
|
|
2005-08-14 23:45:46 +00:00
|
|
|
|
(add-to-list 'desktop-buffer-mode-handlers
|
|
|
|
|
|
'(dired-mode . dired-restore-desktop-buffer))
|
2005-08-10 19:39:16 +00:00
|
|
|
|
|
2001-01-26 13:14:11 +00:00
|
|
|
|
|
2009-09-11 06:50:49 +00:00
|
|
|
|
;;; Start of automatically extracted autoloads.
|
|
|
|
|
|
|
|
|
|
|
|
;;;### (autoloads (dired-show-file-type dired-do-query-replace-regexp
|
|
|
|
|
|
;;;;;; dired-do-search dired-do-isearch-regexp dired-do-isearch
|
|
|
|
|
|
;;;;;; dired-isearch-filenames-regexp dired-isearch-filenames dired-isearch-filenames-setup
|
|
|
|
|
|
;;;;;; dired-hide-all dired-hide-subdir dired-tree-down dired-tree-up
|
|
|
|
|
|
;;;;;; dired-kill-subdir dired-mark-subdir-files dired-goto-subdir
|
|
|
|
|
|
;;;;;; dired-prev-subdir dired-insert-subdir dired-maybe-insert-subdir
|
|
|
|
|
|
;;;;;; dired-downcase dired-upcase dired-do-symlink-regexp dired-do-hardlink-regexp
|
|
|
|
|
|
;;;;;; dired-do-copy-regexp dired-do-rename-regexp dired-do-rename
|
|
|
|
|
|
;;;;;; dired-do-hardlink dired-do-symlink dired-do-copy dired-create-directory
|
|
|
|
|
|
;;;;;; dired-rename-file dired-copy-file dired-relist-file dired-remove-file
|
|
|
|
|
|
;;;;;; dired-add-file dired-do-redisplay dired-do-load dired-do-byte-compile
|
|
|
|
|
|
;;;;;; dired-do-compress dired-query dired-compress-file dired-do-kill-lines
|
|
|
|
|
|
;;;;;; dired-run-shell-command dired-do-shell-command dired-do-async-shell-command
|
|
|
|
|
|
;;;;;; dired-clean-directory dired-do-print dired-do-touch dired-do-chown
|
|
|
|
|
|
;;;;;; dired-do-chgrp dired-do-chmod dired-compare-directories dired-backup-diff
|
2011-08-03 05:05:38 +00:00
|
|
|
|
;;;;;; dired-diff) "dired-aux" "dired-aux.el" "bbb53a5b6bf56c413fe0f898559bef8d")
|
2009-09-11 06:50:49 +00:00
|
|
|
|
;;; Generated autoloads from dired-aux.el
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-diff "dired-aux" "\
|
|
|
|
|
|
Compare file at point with file FILE using `diff'.
|
|
|
|
|
|
FILE defaults to the file at the mark. (That's the mark set by
|
|
|
|
|
|
\\[set-mark-command], not by Dired's \\[dired-mark] command.)
|
2011-07-02 10:23:45 +00:00
|
|
|
|
The prompted-for FILE is the first file given to `diff'.
|
2009-09-11 06:50:49 +00:00
|
|
|
|
With prefix arg, prompt for second argument SWITCHES,
|
2011-07-02 10:23:45 +00:00
|
|
|
|
which is the string of command switches for `diff'.
|
2009-09-11 06:50:49 +00:00
|
|
|
|
|
|
|
|
|
|
\(fn FILE &optional SWITCHES)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-backup-diff "dired-aux" "\
|
|
|
|
|
|
Diff this file with its backup file or vice versa.
|
|
|
|
|
|
Uses the latest backup, if there are several numerical backups.
|
|
|
|
|
|
If this file is a backup, diff it with its original.
|
|
|
|
|
|
The backup file is the first file given to `diff'.
|
|
|
|
|
|
With prefix arg, prompt for argument SWITCHES which is options for `diff'.
|
|
|
|
|
|
|
|
|
|
|
|
\(fn &optional SWITCHES)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-compare-directories "dired-aux" "\
|
|
|
|
|
|
Mark files with different file attributes in two dired buffers.
|
|
|
|
|
|
Compare file attributes of files in the current directory
|
|
|
|
|
|
with file attributes in directory DIR2 using PREDICATE on pairs of files
|
|
|
|
|
|
with the same name. Mark files for which PREDICATE returns non-nil.
|
|
|
|
|
|
Mark files with different names if PREDICATE is nil (or interactively
|
|
|
|
|
|
with empty input at the predicate prompt).
|
|
|
|
|
|
|
|
|
|
|
|
PREDICATE is a Lisp expression that can refer to the following variables:
|
|
|
|
|
|
|
|
|
|
|
|
size1, size2 - file size in bytes
|
|
|
|
|
|
mtime1, mtime2 - last modification time in seconds, as a float
|
|
|
|
|
|
fa1, fa2 - list of file attributes
|
|
|
|
|
|
returned by function `file-attributes'
|
|
|
|
|
|
|
|
|
|
|
|
where 1 refers to attribute of file in the current dired buffer
|
|
|
|
|
|
and 2 to attribute of file in second dired buffer.
|
|
|
|
|
|
|
|
|
|
|
|
Examples of PREDICATE:
|
|
|
|
|
|
|
|
|
|
|
|
(> mtime1 mtime2) - mark newer files
|
|
|
|
|
|
(not (= size1 size2)) - mark files with different sizes
|
|
|
|
|
|
(not (string= (nth 8 fa1) (nth 8 fa2))) - mark files with different modes
|
|
|
|
|
|
(not (and (= (nth 2 fa1) (nth 2 fa2)) - mark files with different UID
|
|
|
|
|
|
(= (nth 3 fa1) (nth 3 fa2)))) and GID.
|
|
|
|
|
|
|
|
|
|
|
|
\(fn DIR2 PREDICATE)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-do-chmod "dired-aux" "\
|
|
|
|
|
|
Change the mode of the marked (or next ARG) files.
|
|
|
|
|
|
Symbolic modes like `g+w' are allowed.
|
|
|
|
|
|
|
|
|
|
|
|
\(fn &optional ARG)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-do-chgrp "dired-aux" "\
|
|
|
|
|
|
Change the group of the marked (or next ARG) files.
|
|
|
|
|
|
|
|
|
|
|
|
\(fn &optional ARG)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-do-chown "dired-aux" "\
|
|
|
|
|
|
Change the owner of the marked (or next ARG) files.
|
|
|
|
|
|
|
|
|
|
|
|
\(fn &optional ARG)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-do-touch "dired-aux" "\
|
|
|
|
|
|
Change the timestamp of the marked (or next ARG) files.
|
|
|
|
|
|
This calls touch.
|
|
|
|
|
|
|
|
|
|
|
|
\(fn &optional ARG)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-do-print "dired-aux" "\
|
|
|
|
|
|
Print the marked (or next ARG) files.
|
|
|
|
|
|
Uses the shell command coming from variables `lpr-command' and
|
|
|
|
|
|
`lpr-switches' as default.
|
|
|
|
|
|
|
|
|
|
|
|
\(fn &optional ARG)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-clean-directory "dired-aux" "\
|
|
|
|
|
|
Flag numerical backups for deletion.
|
|
|
|
|
|
Spares `dired-kept-versions' latest versions, and `kept-old-versions' oldest.
|
|
|
|
|
|
Positive prefix arg KEEP overrides `dired-kept-versions';
|
|
|
|
|
|
Negative prefix arg KEEP overrides `kept-old-versions' with KEEP made positive.
|
|
|
|
|
|
|
|
|
|
|
|
To clear the flags on these files, you can use \\[dired-flag-backup-files]
|
|
|
|
|
|
with a prefix argument.
|
|
|
|
|
|
|
|
|
|
|
|
\(fn KEEP)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-do-async-shell-command "dired-aux" "\
|
|
|
|
|
|
Run a shell command COMMAND on the marked files asynchronously.
|
|
|
|
|
|
|
|
|
|
|
|
Like `dired-do-shell-command' but if COMMAND doesn't end in ampersand,
|
|
|
|
|
|
adds `* &' surrounded by whitespace and executes the command asynchronously.
|
|
|
|
|
|
The output appears in the buffer `*Async Shell Command*'.
|
|
|
|
|
|
|
|
|
|
|
|
\(fn COMMAND &optional ARG FILE-LIST)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-do-shell-command "dired-aux" "\
|
|
|
|
|
|
Run a shell command COMMAND on the marked files.
|
|
|
|
|
|
If no files are marked or a specific numeric prefix arg is given,
|
|
|
|
|
|
the next ARG files are used. Just \\[universal-argument] means the current file.
|
|
|
|
|
|
The prompt mentions the file(s) or the marker, as appropriate.
|
|
|
|
|
|
|
|
|
|
|
|
If there is a `*' in COMMAND, surrounded by whitespace, this runs
|
|
|
|
|
|
COMMAND just once with the entire file list substituted there.
|
|
|
|
|
|
|
|
|
|
|
|
If there is no `*', but there is a `?' in COMMAND, surrounded by
|
|
|
|
|
|
whitespace, this runs COMMAND on each file individually with the
|
|
|
|
|
|
file name substituted for `?'.
|
|
|
|
|
|
|
|
|
|
|
|
Otherwise, this runs COMMAND on each file individually with the
|
|
|
|
|
|
file name added at the end of COMMAND (separated by a space).
|
|
|
|
|
|
|
|
|
|
|
|
`*' and `?' when not surrounded by whitespace have no special
|
|
|
|
|
|
significance for `dired-do-shell-command', and are passed through
|
|
|
|
|
|
normally to the shell, but you must confirm first. To pass `*' by
|
|
|
|
|
|
itself to the shell as a wildcard, type `*\"\"'.
|
|
|
|
|
|
|
|
|
|
|
|
If COMMAND produces output, it goes to a separate buffer.
|
|
|
|
|
|
|
|
|
|
|
|
This feature does not try to redisplay Dired buffers afterward, as
|
|
|
|
|
|
there's no telling what files COMMAND may have changed.
|
|
|
|
|
|
Type \\[dired-do-redisplay] to redisplay the marked files.
|
|
|
|
|
|
|
2009-09-24 01:37:14 +00:00
|
|
|
|
When COMMAND runs, its working directory is the top-level directory
|
|
|
|
|
|
of the Dired buffer, so output files usually are created there
|
|
|
|
|
|
instead of in a subdir.
|
2009-09-11 06:50:49 +00:00
|
|
|
|
|
|
|
|
|
|
In a noninteractive call (from Lisp code), you must specify
|
|
|
|
|
|
the list of file names explicitly with the FILE-LIST argument, which
|
|
|
|
|
|
can be produced by `dired-get-marked-files', for example.
|
|
|
|
|
|
|
|
|
|
|
|
\(fn COMMAND &optional ARG FILE-LIST)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-run-shell-command "dired-aux" "\
|
2011-04-04 09:28:26 +00:00
|
|
|
|
|
2009-09-11 06:50:49 +00:00
|
|
|
|
|
|
|
|
|
|
\(fn COMMAND)" nil nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-do-kill-lines "dired-aux" "\
|
|
|
|
|
|
Kill all marked lines (not the files).
|
|
|
|
|
|
With a prefix argument, kill that many lines starting with the current line.
|
|
|
|
|
|
\(A negative argument kills backward.)
|
|
|
|
|
|
If you use this command with a prefix argument to kill the line
|
|
|
|
|
|
for a file that is a directory, which you have inserted in the
|
|
|
|
|
|
Dired buffer as a subdirectory, then it deletes that subdirectory
|
|
|
|
|
|
from the buffer as well.
|
|
|
|
|
|
To kill an entire subdirectory (without killing its line in the
|
|
|
|
|
|
parent directory), go to its directory header line and use this
|
|
|
|
|
|
command with a prefix argument (the value does not matter).
|
|
|
|
|
|
|
|
|
|
|
|
\(fn &optional ARG FMT)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-compress-file "dired-aux" "\
|
2011-04-04 09:28:26 +00:00
|
|
|
|
|
2009-09-11 06:50:49 +00:00
|
|
|
|
|
|
|
|
|
|
\(fn FILE)" nil nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-query "dired-aux" "\
|
2011-01-08 19:17:23 +00:00
|
|
|
|
Format PROMPT with ARGS, query user, and store the result in SYM.
|
|
|
|
|
|
The return value is either nil or t.
|
2009-09-11 06:50:49 +00:00
|
|
|
|
|
2011-01-08 19:17:23 +00:00
|
|
|
|
The user may type y or SPC to accept once; n or DEL to skip once;
|
|
|
|
|
|
! to accept this and subsequent queries; or q or ESC to decline
|
|
|
|
|
|
this and subsequent queries.
|
|
|
|
|
|
|
|
|
|
|
|
If SYM is already bound to a non-nil value, this function may
|
|
|
|
|
|
return automatically without querying the user. If SYM is !,
|
|
|
|
|
|
return t; if SYM is q or ESC, return nil.
|
|
|
|
|
|
|
|
|
|
|
|
\(fn SYM PROMPT &rest ARGS)" nil nil)
|
2009-09-11 06:50:49 +00:00
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-do-compress "dired-aux" "\
|
|
|
|
|
|
Compress or uncompress marked (or next ARG) files.
|
|
|
|
|
|
|
|
|
|
|
|
\(fn &optional ARG)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-do-byte-compile "dired-aux" "\
|
|
|
|
|
|
Byte compile marked (or next ARG) Emacs Lisp files.
|
|
|
|
|
|
|
|
|
|
|
|
\(fn &optional ARG)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-do-load "dired-aux" "\
|
|
|
|
|
|
Load the marked (or next ARG) Emacs Lisp files.
|
|
|
|
|
|
|
|
|
|
|
|
\(fn &optional ARG)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-do-redisplay "dired-aux" "\
|
|
|
|
|
|
Redisplay all marked (or next ARG) files.
|
|
|
|
|
|
If on a subdir line, redisplay that subdirectory. In that case,
|
|
|
|
|
|
a prefix arg lets you edit the `ls' switches used for the new listing.
|
|
|
|
|
|
|
|
|
|
|
|
Dired remembers switches specified with a prefix arg, so that reverting
|
|
|
|
|
|
the buffer will not reset them. However, using `dired-undo' to re-insert
|
|
|
|
|
|
or delete subdirectories can bypass this machinery. Hence, you sometimes
|
|
|
|
|
|
may have to reset some subdirectory switches after a `dired-undo'.
|
|
|
|
|
|
You can reset all subdirectory switches to the default using
|
|
|
|
|
|
\\<dired-mode-map>\\[dired-reset-subdir-switches].
|
|
|
|
|
|
See Info node `(emacs)Subdir switches' for more details.
|
|
|
|
|
|
|
|
|
|
|
|
\(fn &optional ARG TEST-FOR-SUBDIR)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-add-file "dired-aux" "\
|
2011-04-04 09:28:26 +00:00
|
|
|
|
|
2009-09-11 06:50:49 +00:00
|
|
|
|
|
|
|
|
|
|
\(fn FILENAME &optional MARKER-CHAR)" nil nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-remove-file "dired-aux" "\
|
2011-04-04 09:28:26 +00:00
|
|
|
|
|
2009-09-11 06:50:49 +00:00
|
|
|
|
|
|
|
|
|
|
\(fn FILE)" nil nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-relist-file "dired-aux" "\
|
|
|
|
|
|
Create or update the line for FILE in all Dired buffers it would belong in.
|
|
|
|
|
|
|
|
|
|
|
|
\(fn FILE)" nil nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-copy-file "dired-aux" "\
|
2011-04-04 09:28:26 +00:00
|
|
|
|
|
2009-09-11 06:50:49 +00:00
|
|
|
|
|
|
|
|
|
|
\(fn FROM TO OK-FLAG)" nil nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-rename-file "dired-aux" "\
|
2011-04-04 09:28:26 +00:00
|
|
|
|
|
2009-09-11 06:50:49 +00:00
|
|
|
|
|
|
|
|
|
|
\(fn FILE NEWNAME OK-IF-ALREADY-EXISTS)" nil nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-create-directory "dired-aux" "\
|
|
|
|
|
|
Create a directory called DIRECTORY.
|
2011-03-19 22:07:41 +00:00
|
|
|
|
If DIRECTORY already exists, signal an error.
|
2009-09-11 06:50:49 +00:00
|
|
|
|
|
|
|
|
|
|
\(fn DIRECTORY)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-do-copy "dired-aux" "\
|
|
|
|
|
|
Copy all marked (or next ARG) files, or copy the current file.
|
|
|
|
|
|
This normally preserves the last-modified date when copying.
|
|
|
|
|
|
When operating on just the current file, you specify the new name.
|
|
|
|
|
|
When operating on multiple or marked files, you specify a directory,
|
|
|
|
|
|
and new copies of these files are made in that directory
|
|
|
|
|
|
with the same names that the files currently have. The default
|
|
|
|
|
|
suggested for the target directory depends on the value of
|
|
|
|
|
|
`dired-dwim-target', which see.
|
|
|
|
|
|
|
|
|
|
|
|
This command copies symbolic links by creating new ones,
|
|
|
|
|
|
like `cp -d'.
|
|
|
|
|
|
|
|
|
|
|
|
\(fn &optional ARG)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-do-symlink "dired-aux" "\
|
|
|
|
|
|
Make symbolic links to current file or all marked (or next ARG) files.
|
|
|
|
|
|
When operating on just the current file, you specify the new name.
|
|
|
|
|
|
When operating on multiple or marked files, you specify a directory
|
|
|
|
|
|
and new symbolic links are made in that directory
|
|
|
|
|
|
with the same names that the files currently have. The default
|
|
|
|
|
|
suggested for the target directory depends on the value of
|
|
|
|
|
|
`dired-dwim-target', which see.
|
|
|
|
|
|
|
|
|
|
|
|
For relative symlinks, use \\[dired-do-relsymlink].
|
|
|
|
|
|
|
|
|
|
|
|
\(fn &optional ARG)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-do-hardlink "dired-aux" "\
|
|
|
|
|
|
Add names (hard links) current file or all marked (or next ARG) files.
|
|
|
|
|
|
When operating on just the current file, you specify the new name.
|
|
|
|
|
|
When operating on multiple or marked files, you specify a directory
|
|
|
|
|
|
and new hard links are made in that directory
|
|
|
|
|
|
with the same names that the files currently have. The default
|
|
|
|
|
|
suggested for the target directory depends on the value of
|
|
|
|
|
|
`dired-dwim-target', which see.
|
|
|
|
|
|
|
|
|
|
|
|
\(fn &optional ARG)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-do-rename "dired-aux" "\
|
|
|
|
|
|
Rename current file or all marked (or next ARG) files.
|
|
|
|
|
|
When renaming just the current file, you specify the new name.
|
|
|
|
|
|
When renaming multiple or marked files, you specify a directory.
|
|
|
|
|
|
This command also renames any buffers that are visiting the files.
|
|
|
|
|
|
The default suggested for the target directory depends on the value
|
|
|
|
|
|
of `dired-dwim-target', which see.
|
|
|
|
|
|
|
|
|
|
|
|
\(fn &optional ARG)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-do-rename-regexp "dired-aux" "\
|
|
|
|
|
|
Rename selected files whose names match REGEXP to NEWNAME.
|
|
|
|
|
|
|
|
|
|
|
|
With non-zero prefix argument ARG, the command operates on the next ARG
|
|
|
|
|
|
files. Otherwise, it operates on all the marked files, or the current
|
|
|
|
|
|
file if none are marked.
|
|
|
|
|
|
|
|
|
|
|
|
As each match is found, the user must type a character saying
|
|
|
|
|
|
what to do with it. For directions, type \\[help-command] at that time.
|
|
|
|
|
|
NEWNAME may contain \\=\\<n> or \\& as in `query-replace-regexp'.
|
|
|
|
|
|
REGEXP defaults to the last regexp used.
|
|
|
|
|
|
|
|
|
|
|
|
With a zero prefix arg, renaming by regexp affects the absolute file name.
|
|
|
|
|
|
Normally, only the non-directory part of the file name is used and changed.
|
|
|
|
|
|
|
|
|
|
|
|
\(fn REGEXP NEWNAME &optional ARG WHOLE-NAME)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-do-copy-regexp "dired-aux" "\
|
|
|
|
|
|
Copy selected files whose names match REGEXP to NEWNAME.
|
|
|
|
|
|
See function `dired-do-rename-regexp' for more info.
|
|
|
|
|
|
|
|
|
|
|
|
\(fn REGEXP NEWNAME &optional ARG WHOLE-NAME)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-do-hardlink-regexp "dired-aux" "\
|
|
|
|
|
|
Hardlink selected files whose names match REGEXP to NEWNAME.
|
|
|
|
|
|
See function `dired-do-rename-regexp' for more info.
|
|
|
|
|
|
|
|
|
|
|
|
\(fn REGEXP NEWNAME &optional ARG WHOLE-NAME)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-do-symlink-regexp "dired-aux" "\
|
|
|
|
|
|
Symlink selected files whose names match REGEXP to NEWNAME.
|
|
|
|
|
|
See function `dired-do-rename-regexp' for more info.
|
|
|
|
|
|
|
|
|
|
|
|
\(fn REGEXP NEWNAME &optional ARG WHOLE-NAME)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-upcase "dired-aux" "\
|
|
|
|
|
|
Rename all marked (or next ARG) files to upper case.
|
|
|
|
|
|
|
|
|
|
|
|
\(fn &optional ARG)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-downcase "dired-aux" "\
|
|
|
|
|
|
Rename all marked (or next ARG) files to lower case.
|
|
|
|
|
|
|
|
|
|
|
|
\(fn &optional ARG)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-maybe-insert-subdir "dired-aux" "\
|
|
|
|
|
|
Insert this subdirectory into the same dired buffer.
|
|
|
|
|
|
If it is already present, just move to it (type \\[dired-do-redisplay] to refresh),
|
|
|
|
|
|
else inserts it at its natural place (as `ls -lR' would have done).
|
|
|
|
|
|
With a prefix arg, you may edit the ls switches used for this listing.
|
|
|
|
|
|
You can add `R' to the switches to expand the whole tree starting at
|
|
|
|
|
|
this subdirectory.
|
|
|
|
|
|
This function takes some pains to conform to `ls -lR' output.
|
|
|
|
|
|
|
|
|
|
|
|
Dired remembers switches specified with a prefix arg, so that reverting
|
|
|
|
|
|
the buffer will not reset them. However, using `dired-undo' to re-insert
|
|
|
|
|
|
or delete subdirectories can bypass this machinery. Hence, you sometimes
|
|
|
|
|
|
may have to reset some subdirectory switches after a `dired-undo'.
|
|
|
|
|
|
You can reset all subdirectory switches to the default using
|
|
|
|
|
|
\\<dired-mode-map>\\[dired-reset-subdir-switches].
|
|
|
|
|
|
See Info node `(emacs)Subdir switches' for more details.
|
|
|
|
|
|
|
|
|
|
|
|
\(fn DIRNAME &optional SWITCHES NO-ERROR-IF-NOT-DIR-P)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-insert-subdir "dired-aux" "\
|
|
|
|
|
|
Insert this subdirectory into the same dired buffer.
|
|
|
|
|
|
If it is already present, overwrites previous entry,
|
|
|
|
|
|
else inserts it at its natural place (as `ls -lR' would have done).
|
|
|
|
|
|
With a prefix arg, you may edit the `ls' switches used for this listing.
|
|
|
|
|
|
You can add `R' to the switches to expand the whole tree starting at
|
|
|
|
|
|
this subdirectory.
|
|
|
|
|
|
This function takes some pains to conform to `ls -lR' output.
|
|
|
|
|
|
|
|
|
|
|
|
\(fn DIRNAME &optional SWITCHES NO-ERROR-IF-NOT-DIR-P)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-prev-subdir "dired-aux" "\
|
|
|
|
|
|
Go to previous subdirectory, regardless of level.
|
|
|
|
|
|
When called interactively and not on a subdir line, go to this subdir's line.
|
|
|
|
|
|
|
|
|
|
|
|
\(fn ARG &optional NO-ERROR-IF-NOT-FOUND NO-SKIP)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-goto-subdir "dired-aux" "\
|
|
|
|
|
|
Go to end of header line of DIR in this dired buffer.
|
|
|
|
|
|
Return value of point on success, otherwise return nil.
|
|
|
|
|
|
The next char is either \\n, or \\r if DIR is hidden.
|
|
|
|
|
|
|
|
|
|
|
|
\(fn DIR)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-mark-subdir-files "dired-aux" "\
|
|
|
|
|
|
Mark all files except `.' and `..' in current subdirectory.
|
|
|
|
|
|
If the Dired buffer shows multiple directories, this command
|
|
|
|
|
|
marks the files listed in the subdirectory that point is in.
|
|
|
|
|
|
|
|
|
|
|
|
\(fn)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-kill-subdir "dired-aux" "\
|
|
|
|
|
|
Remove all lines of current subdirectory.
|
|
|
|
|
|
Lower levels are unaffected.
|
|
|
|
|
|
|
|
|
|
|
|
\(fn &optional REMEMBER-MARKS)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-tree-up "dired-aux" "\
|
|
|
|
|
|
Go up ARG levels in the dired tree.
|
|
|
|
|
|
|
|
|
|
|
|
\(fn ARG)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-tree-down "dired-aux" "\
|
|
|
|
|
|
Go down in the dired tree.
|
|
|
|
|
|
|
|
|
|
|
|
\(fn)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-hide-subdir "dired-aux" "\
|
|
|
|
|
|
Hide or unhide the current subdirectory and move to next directory.
|
|
|
|
|
|
Optional prefix arg is a repeat factor.
|
|
|
|
|
|
Use \\[dired-hide-all] to (un)hide all directories.
|
|
|
|
|
|
|
|
|
|
|
|
\(fn ARG)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-hide-all "dired-aux" "\
|
|
|
|
|
|
Hide all subdirectories, leaving only their header lines.
|
|
|
|
|
|
If there is already something hidden, make everything visible again.
|
|
|
|
|
|
Use \\[dired-hide-subdir] to (un)hide a particular subdirectory.
|
|
|
|
|
|
|
2010-01-20 16:42:50 +00:00
|
|
|
|
\(fn &optional IGNORED)" t nil)
|
2009-09-11 06:50:49 +00:00
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-isearch-filenames-setup "dired-aux" "\
|
|
|
|
|
|
Set up isearch to search in Dired file names.
|
|
|
|
|
|
Intended to be added to `isearch-mode-hook'.
|
|
|
|
|
|
|
|
|
|
|
|
\(fn)" nil nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-isearch-filenames "dired-aux" "\
|
|
|
|
|
|
Search for a string using Isearch only in file names in the Dired buffer.
|
|
|
|
|
|
|
|
|
|
|
|
\(fn)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-isearch-filenames-regexp "dired-aux" "\
|
|
|
|
|
|
Search for a regexp using Isearch only in file names in the Dired buffer.
|
|
|
|
|
|
|
|
|
|
|
|
\(fn)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-do-isearch "dired-aux" "\
|
|
|
|
|
|
Search for a string through all marked files using Isearch.
|
|
|
|
|
|
|
|
|
|
|
|
\(fn)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-do-isearch-regexp "dired-aux" "\
|
|
|
|
|
|
Search for a regexp through all marked files using Isearch.
|
|
|
|
|
|
|
|
|
|
|
|
\(fn)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-do-search "dired-aux" "\
|
|
|
|
|
|
Search through all marked files for a match for REGEXP.
|
|
|
|
|
|
Stops when a match is found.
|
|
|
|
|
|
To continue searching for next match, use command \\[tags-loop-continue].
|
|
|
|
|
|
|
|
|
|
|
|
\(fn REGEXP)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-do-query-replace-regexp "dired-aux" "\
|
|
|
|
|
|
Do `query-replace-regexp' of FROM with TO, on all marked files.
|
|
|
|
|
|
Third arg DELIMITED (prefix arg) means replace only word-delimited matches.
|
|
|
|
|
|
If you exit (\\[keyboard-quit], RET or q), you can resume the query replace
|
|
|
|
|
|
with the command \\[tags-loop-continue].
|
|
|
|
|
|
|
|
|
|
|
|
\(fn FROM TO &optional DELIMITED)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-show-file-type "dired-aux" "\
|
|
|
|
|
|
Print the type of FILE, according to the `file' command.
|
2011-07-02 10:23:45 +00:00
|
|
|
|
If you give a prefix to this command, and FILE is a symbolic
|
|
|
|
|
|
link, then the type of the file linked to by FILE is printed
|
|
|
|
|
|
instead.
|
2009-09-11 06:50:49 +00:00
|
|
|
|
|
|
|
|
|
|
\(fn FILE &optional DEREF-SYMLINKS)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
;;;***
|
|
|
|
|
|
|
2011-03-02 10:42:47 +00:00
|
|
|
|
;;;### (autoloads (dired-do-relsymlink dired-jump-other-window dired-jump)
|
2011-07-12 10:24:54 +00:00
|
|
|
|
;;;;;; "dired-x" "dired-x.el" "219648338c42c7912fa336680b434db0")
|
2009-09-11 06:50:49 +00:00
|
|
|
|
;;; Generated autoloads from dired-x.el
|
|
|
|
|
|
|
|
|
|
|
|
(autoload 'dired-jump "dired-x" "\
|
|
|
|
|
|
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.
|
|
|
|
|
|
In case the proper dired file line cannot be found, refresh the dired
|
|
|
|
|
|
buffer and try again.
|
2010-05-20 21:33:58 +00:00
|
|
|
|
When OTHER-WINDOW is non-nil, jump to dired buffer in other window.
|
|
|
|
|
|
Interactively with prefix argument, read FILE-NAME and
|
|
|
|
|
|
move to its line in dired.
|
2009-09-11 06:50:49 +00:00
|
|
|
|
|
2010-05-20 21:33:58 +00:00
|
|
|
|
\(fn &optional OTHER-WINDOW FILE-NAME)" t nil)
|
2009-09-11 06:50:49 +00:00
|
|
|
|
|
2011-03-02 10:42:47 +00:00
|
|
|
|
(autoload 'dired-jump-other-window "dired-x" "\
|
|
|
|
|
|
Like \\[dired-jump] (`dired-jump') but in other window.
|
|
|
|
|
|
|
|
|
|
|
|
\(fn &optional FILE-NAME)" t nil)
|
|
|
|
|
|
|
2009-09-11 06:50:49 +00:00
|
|
|
|
(autoload 'dired-do-relsymlink "dired-x" "\
|
|
|
|
|
|
Relative symlink all marked (or next ARG) files into a directory.
|
|
|
|
|
|
Otherwise make a relative symbolic link to the current file.
|
|
|
|
|
|
This creates relative symbolic links like
|
|
|
|
|
|
|
|
|
|
|
|
foo -> ../bar/foo
|
|
|
|
|
|
|
|
|
|
|
|
not absolute ones like
|
|
|
|
|
|
|
|
|
|
|
|
foo -> /ugly/file/name/that/may/change/any/day/bar/foo
|
|
|
|
|
|
|
|
|
|
|
|
For absolute symlinks, use \\[dired-do-symlink].
|
|
|
|
|
|
|
|
|
|
|
|
\(fn &optional ARG)" t nil)
|
|
|
|
|
|
|
|
|
|
|
|
;;;***
|
|
|
|
|
|
|
|
|
|
|
|
;;; End of automatically extracted autoloads.
|
|
|
|
|
|
|
1992-07-21 22:40:10 +00:00
|
|
|
|
(provide 'dired)
|
|
|
|
|
|
|
1993-10-25 06:13:41 +00:00
|
|
|
|
(run-hooks 'dired-load-hook) ; for your customizations
|
|
|
|
|
|
|
1992-07-21 22:40:10 +00:00
|
|
|
|
;;; dired.el ends here
|