mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-01 08:17:38 +00:00
Code Issues Releases Activity
f9e68477a2
emacs/lisp/dired.el

4057 lines
158 KiB
EmacsLisp
Raw Normal View History

Added standard library headers.
1993-03-17 15:20:58 +00:00
;;; dired.el --- directory-browsing commands
*** empty log message ***
1992-07-21 22:40:10 +00:00
(dired-align-file): Don't assume line starts with spaces.
2004-11-22 05:07:07 +00:00
;; Copyright (C) 1985, 1986, 1992, 1993, 1994, 1995, 1996, 1997, 2000,
Add 2010 to copyright years.
2010-01-13 08:35:10 +00:00
;; 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
Comment.
2009-01-27 03:53:07 +00:00
;; Free Software Foundation, Inc.
*** empty log message ***
1992-07-27 02:56:28 +00:00
(dired-listing-switches): Doc fix.
1994-02-06 18:11:59 +00:00
;; Author: Sebastian Kremer <sk@thp.uni-koeln.de>
;; Maintainer: FSF
Add Keywords header.
2001-08-29 15:02:01 +00:00
;; Keywords: files
Add "Package:" file headers to denote built-in packages.
2010-08-29 16:17:13 +00:00
;; Package: emacs
Initial revision
1992-05-30 23:52:26 +00:00
;; This file is part of GNU Emacs.
Switch to recommended form of GPLv3 permissions notice.
2008-05-06 08:06:51 +00:00
;; GNU Emacs is free software: you can redistribute it and/or modify
Initial revision
1992-05-30 23:52:26 +00:00
;; it under the terms of the GNU General Public License as published by
Switch to recommended form of GPLv3 permissions notice.
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.
Initial revision
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
Switch to recommended form of GPLv3 permissions notice.
2008-05-06 08:06:51 +00:00
;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
Initial revision
1992-05-30 23:52:26 +00:00
*** empty log message ***
1992-07-21 22:40:10 +00:00
;;; Commentary:
Make some dired defvars into defcustoms. * lisp/dired.el (dired-subdir-switches, dired-chown-program) (dired-use-ls-dired, dired-chmod-program, dired-touch-program): Make into defcustoms. (dired-chown-program): Simplify initialization.
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.
Added or corrected Commentary sections
1993-03-22 03:27:18 +00:00
*** empty log message ***
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.
*** empty log message ***
1992-07-21 22:40:10 +00:00
;;; Code:
*** empty log message ***
1992-06-24 02:13:56 +00:00
Require 'cl.
2008-04-30 03:40:37 +00:00
(eval-when-compile (require 'cl))
*** empty log message ***
1992-06-24 02:13:56 +00:00
;;; Customizable variables
Use defgroup and defcustom.
1997-05-25 18:08:23 +00:00
(defgroup dired nil
"Directory editing."
(dired) <defgroup>: Add link to manual. (dired-font-lock-keywords): Ad highlighting on unusual permissions. (dired-revert): Use dolist. (dired-mode-map): Add U binding. (dired-mode): Add font-lock-beginning-of-syntax-function. (dired-garbage-files-regexp): Make it a defcustom.
2004-03-23 21:44:31 +00:00
:link '(custom-manual "(emacs)Dired")
(defgroup dired): Use `files' as parent. (dired-get-filename): Ignore handler if it has safe-magic prop.
2002-09-01 13:27:47 +00:00
:group 'files)
Use defgroup and defcustom.
1997-05-25 18:08:23 +00:00
(defgroup dired-mark nil
Many trivial doc fixes. (dired-get-file-for-visit): New function. (dired-find-alternate-file, dired-mouse-find-file-other-window): (dired-view-file, dired-find-file-other-window, dired-display-file): (dired-find-file): Use dired-get-file-for-visit.
2001-11-12 17:05:13 +00:00
"Handling marks in Dired."
Use defgroup and defcustom.
1997-05-25 18:08:23 +00:00
:prefix "dired-"
:group 'dired)
Initial revision
1992-05-30 23:52:26 +00:00
;;;###autoload
* term/x-win.el (x-gtk-stock-map): * progmodes/vera-mode.el (auto-mode-alist): * progmodes/inf-lisp.el (inferior-lisp-filter-regexp) (inferior-lisp-program, inferior-lisp-load-command): * progmodes/hideshow.el (hs-special-modes-alist): * progmodes/gud.el (same-window-regexps): * progmodes/grep.el (grep-program, find-program, xargs-program): * net/telnet.el (same-window-regexps): * net/rlogin.el (same-window-regexps): * language/ethiopic.el (font-ccl-encoder-alist): * vc-sccs.el (vc-sccs-master-templates): * vc-rcs.el (vc-rcs-master-templates): * subr.el (cl-assertion-failed): * simple.el (next-error-overlay-arrow-position): * lpr.el (lpr-command): * locate.el (locate-ls-subdir-switches): * info.el (same-window-regexps, info) (Info-goto-emacs-command-node, Info-goto-emacs-key-command-node): * image-mode.el (image-mode, auto-mode-alist): * hippie-exp.el (hippie-expand-ignore-buffers): * format.el (format-alist): * find-dired.el (find-ls-subdir-switches, find-grep-options) (find-name-arg): * facemenu.el (facemenu-keybindings): * dired.el (dired-listing-switches, dired-chown-program): * diff.el (diff-switches, diff-command): * cus-edit.el (same-window-regexps): * bindings.el (mode-line-mule-info) (mode-line-buffer-identification): Purecopy strings.
2009-11-11 05:49:09 +00:00
(defcustom dired-listing-switches (purecopy "-al")
* align.el: * allout.el: * apropos.el: * arc-mode.el: * autoinsert.el: * avoid.el: * battery.el: * bookmark.el: * buff-menu.el: * calculator.el: * chistory.el: * cmuscheme.el: * comint.el: * compare-w.el: * dabbrev.el: * delim-col.el: * desktop.el: * diff-mode.el: * diff.el: * dired-aux.el: * dired-x.el: * dired.el: * dos-vars.el: * ediff-diff.el: * ediff-help.el: * ediff-init.el: * ediff-merg.el: * ediff-mult.el: * ediff-ptch.el: * ediff-vers.el: * ediff-wind.el: * ediff.el: * emerge.el: * facemenu.el: * faces.el: * ffap.el: * filecache.el: * find-dired.el: * font-core.el: * font-lock.el: * forms.el: * fringe.el: * help-at-pt.el: * hippie-exp.el: * ido.el: * image-file.el: * imenu.el: * indent.el: * info.el: * isearchb.el: * iswitchb.el: * jit-lock.el: * jka-compr.el: * log-edit.el: * lpr.el: * ls-lisp.el: * man.el: * menu-bar.el: * midnight.el: * mouse-sel.el: * mouse.el: * msb.el: * outline.el: * paren.el: * pcmpl-cvs.el: * pcmpl-gnu.el: * pcomplete.el: * pcvs-info.el: * pcvs-parse.el: * printing.el: * ps-mule.el: * ps-print.el: * replace.el: * ruler-mode.el: * saveplace.el: * sb-image.el: * scroll-bar.el: * sha1.el: * shadowfile.el: * shell.el: * sort.el: * speedbar.el: * strokes.el: * tempo.el: * term.el: * terminal.el: * time-stamp.el: * time.el: * tree-widget.el: * type-break.el: * vc-cvs.el: * vc-hg.el: * vc-mcvs.el: * vc-rcs.el: * vc-sccs.el: * vc.el: * view.el: * w32-vars.el: * whitespace.el: * wid-edit.el: Remove leading * from docstrings of defcustoms, deffaces, defconsts and defuns.
2008-12-03 05:48:14 +00:00
"Switches passed to `ls' for Dired. MUST contain the `l' option.
*** empty log message ***
1992-06-24 02:13:56 +00:00
May contain all other options that don't contradict `-l';
(dired-listing-switches): Doc fix.
1994-02-06 18:11:59 +00:00
may contain even `F', `b', `i' and `s'. See also the variable
(dired-listing-switches): Mention in the doc string that some switches are not supported by ls-lisp.el
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
(dired-listing-switches): Fix doc typo.
2007-01-27 23:17:19 +00:00
`insert-directory' in `ls-lisp.el' for more details."
Use defgroup and defcustom.
1997-05-25 18:08:23 +00:00
:type 'string
:group 'dired)
Initial revision
1992-05-30 23:52:26 +00:00
Make some dired defvars into defcustoms. * lisp/dired.el (dired-subdir-switches, dired-chown-program) (dired-use-ls-dired, dired-chmod-program, dired-touch-program): Make into defcustoms. (dired-chown-program): Simplify initialization.
2010-12-14 04:32:14 +00:00
(defcustom dired-subdir-switches nil
(dired-subdir-switches, dired-switches-alist): New vars. (dired-insert-old-subdirs): Do not repeatedly delete and reinsert subdirs if -R switch is used for a subdir. (dired-mode): Set `dired-switches-alist'. (dired-build-subdir-alist): Only print number of directories in echo area when invoked interactively.
2004-06-06 02:22:41 +00:00
"If non-nil, switches passed to `ls' for inserting subdirectories.
Make some dired defvars into defcustoms. * lisp/dired.el (dired-subdir-switches, dired-chown-program) (dired-use-ls-dired, dired-chmod-program, dired-touch-program): Make into defcustoms. (dired-chown-program): Simplify initialization.
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")))
*** empty log message ***
1992-06-24 02:13:56 +00:00
Make some dired defvars into defcustoms. * lisp/dired.el (dired-subdir-switches, dired-chown-program) (dired-use-ls-dired, dired-chmod-program, dired-touch-program): Make into defcustoms. (dired-chown-program): Simplify initialization.
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
Smarter initialization for dired-use-ls-dired (Bug#7546). * lisp/dired.el (dired-use-ls-dired): Set default to a special "unspecified" value. (dired-insert-directory): When called the first time, check whether "ls --dired" succeeds and set dired-use-ls-dired (Bug#7546).
2010-12-04 22:10:12 +00:00
"Non-nil means Dired should use \"ls --dired\".
The special value of `unspecified' means to check explicitly, and
save the result in this variable. This is performed the first
Make some dired defvars into defcustoms. * lisp/dired.el (dired-subdir-switches, dired-chown-program) (dired-use-ls-dired, dired-chmod-program, dired-touch-program): Make into defcustoms. (dired-chown-program): Simplify initialization.
2010-12-14 04:32:14 +00:00
time `dired-insert-directory' is called."
: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)
Add autoload for `dired-do-touch'. (dired-touch-program): New var. (dired-mode-map): Bind `dired-do-touch' to T and add menu-item. (dired-no-confirm): Add `touch' to docstring.
2004-03-31 16:29:46 +00:00
Use defgroup and defcustom.
1997-05-25 18:08:23 +00:00
(defcustom dired-ls-F-marks-symlinks nil
* align.el: * allout.el: * apropos.el: * arc-mode.el: * autoinsert.el: * avoid.el: * battery.el: * bookmark.el: * buff-menu.el: * calculator.el: * chistory.el: * cmuscheme.el: * comint.el: * compare-w.el: * dabbrev.el: * delim-col.el: * desktop.el: * diff-mode.el: * diff.el: * dired-aux.el: * dired-x.el: * dired.el: * dos-vars.el: * ediff-diff.el: * ediff-help.el: * ediff-init.el: * ediff-merg.el: * ediff-mult.el: * ediff-ptch.el: * ediff-vers.el: * ediff-wind.el: * ediff.el: * emerge.el: * facemenu.el: * faces.el: * ffap.el: * filecache.el: * find-dired.el: * font-core.el: * font-lock.el: * forms.el: * fringe.el: * help-at-pt.el: * hippie-exp.el: * ido.el: * image-file.el: * imenu.el: * indent.el: * info.el: * isearchb.el: * iswitchb.el: * jit-lock.el: * jka-compr.el: * log-edit.el: * lpr.el: * ls-lisp.el: * man.el: * menu-bar.el: * midnight.el: * mouse-sel.el: * mouse.el: * msb.el: * outline.el: * paren.el: * pcmpl-cvs.el: * pcmpl-gnu.el: * pcomplete.el: * pcvs-info.el: * pcvs-parse.el: * printing.el: * ps-mule.el: * ps-print.el: * replace.el: * ruler-mode.el: * saveplace.el: * sb-image.el: * scroll-bar.el: * sha1.el: * shadowfile.el: * shell.el: * sort.el: * speedbar.el: * strokes.el: * tempo.el: * term.el: * terminal.el: * time-stamp.el: * time.el: * tree-widget.el: * type-break.el: * vc-cvs.el: * vc-hg.el: * vc-mcvs.el: * vc-rcs.el: * vc-sccs.el: * vc.el: * view.el: * w32-vars.el: * whitespace.el: * wid-edit.el: Remove leading * from docstrings of defcustoms, deffaces, defconsts and defuns.
2008-12-03 05:48:14 +00:00
"Informs Dired about how `ls -lF' marks symbolic links.
(dired-ls-F-marks-symlinks): Doc fix.
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
*** empty log message ***
1992-06-24 02:13:56 +00:00
itself with a trailing @ (usually the case under Ultrix).
Initial revision
1992-05-30 23:52:26 +00:00
*** empty log message ***
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
Use defgroup and defcustom.
1997-05-25 18:08:23 +00:00
always set this variable to t."
:type 'boolean
:group 'dired-mark)
*** empty log message ***
1992-06-24 02:13:56 +00:00
* widget.el (define-widget): Purecopy the docstring. * international/mule-cmds.el (charset): Do not purecopy the docstring here, define-widget does it. * textmodes/texinfo.el (texinfo-open-quote, texinfo-close-quote): * textmodes/bibtex-style.el (auto-mode-alist): * progmodes/inf-lisp.el (inferior-lisp-prompt): * progmodes/compile.el (compile-command): * language/korea-util.el (default-korean-keyboard): * international/mule-conf.el (file-coding-system-alist): * emacs-lisp/eldoc.el (eldoc-minor-mode-string): * tooltip.el (tooltip-frame-parameters): * newcomment.el (comment-end, comment-padding): * dired.el (dired-trivial-filenames): * comint.el (comint-file-name-prefix): Purecopy initial values.
2009-11-11 19:24:20 +00:00
(defcustom dired-trivial-filenames (purecopy "^\\.\\.?$\\|^#")
* align.el: * allout.el: * apropos.el: * arc-mode.el: * autoinsert.el: * avoid.el: * battery.el: * bookmark.el: * buff-menu.el: * calculator.el: * chistory.el: * cmuscheme.el: * comint.el: * compare-w.el: * dabbrev.el: * delim-col.el: * desktop.el: * diff-mode.el: * diff.el: * dired-aux.el: * dired-x.el: * dired.el: * dos-vars.el: * ediff-diff.el: * ediff-help.el: * ediff-init.el: * ediff-merg.el: * ediff-mult.el: * ediff-ptch.el: * ediff-vers.el: * ediff-wind.el: * ediff.el: * emerge.el: * facemenu.el: * faces.el: * ffap.el: * filecache.el: * find-dired.el: * font-core.el: * font-lock.el: * forms.el: * fringe.el: * help-at-pt.el: * hippie-exp.el: * ido.el: * image-file.el: * imenu.el: * indent.el: * info.el: * isearchb.el: * iswitchb.el: * jit-lock.el: * jka-compr.el: * log-edit.el: * lpr.el: * ls-lisp.el: * man.el: * menu-bar.el: * midnight.el: * mouse-sel.el: * mouse.el: * msb.el: * outline.el: * paren.el: * pcmpl-cvs.el: * pcmpl-gnu.el: * pcomplete.el: * pcvs-info.el: * pcvs-parse.el: * printing.el: * ps-mule.el: * ps-print.el: * replace.el: * ruler-mode.el: * saveplace.el: * sb-image.el: * scroll-bar.el: * sha1.el: * shadowfile.el: * shell.el: * sort.el: * speedbar.el: * strokes.el: * tempo.el: * term.el: * terminal.el: * time-stamp.el: * time.el: * tree-widget.el: * type-break.el: * vc-cvs.el: * vc-hg.el: * vc-mcvs.el: * vc-rcs.el: * vc-sccs.el: * vc.el: * view.el: * w32-vars.el: * whitespace.el: * wid-edit.el: Remove leading * from docstrings of defcustoms, deffaces, defconsts and defuns.
2008-12-03 05:48:14 +00:00
"Regexp of files to skip when finding first file of a directory.
*** empty log message ***
1992-06-24 02:13:56 +00:00
A value of nil means move to the subdir line.
Use defgroup and defcustom.
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)
*** empty log message ***
1992-06-24 02:13:56 +00:00
Use defgroup and defcustom.
1997-05-25 18:08:23 +00:00
(defcustom dired-keep-marker-rename t
*** empty log message ***
1992-06-24 02:13:56 +00:00
;; Use t as default so that moved files "take their markers with them".
* align.el: * allout.el: * apropos.el: * arc-mode.el: * autoinsert.el: * avoid.el: * battery.el: * bookmark.el: * buff-menu.el: * calculator.el: * chistory.el: * cmuscheme.el: * comint.el: * compare-w.el: * dabbrev.el: * delim-col.el: * desktop.el: * diff-mode.el: * diff.el: * dired-aux.el: * dired-x.el: * dired.el: * dos-vars.el: * ediff-diff.el: * ediff-help.el: * ediff-init.el: * ediff-merg.el: * ediff-mult.el: * ediff-ptch.el: * ediff-vers.el: * ediff-wind.el: * ediff.el: * emerge.el: * facemenu.el: * faces.el: * ffap.el: * filecache.el: * find-dired.el: * font-core.el: * font-lock.el: * forms.el: * fringe.el: * help-at-pt.el: * hippie-exp.el: * ido.el: * image-file.el: * imenu.el: * indent.el: * info.el: * isearchb.el: * iswitchb.el: * jit-lock.el: * jka-compr.el: * log-edit.el: * lpr.el: * ls-lisp.el: * man.el: * menu-bar.el: * midnight.el: * mouse-sel.el: * mouse.el: * msb.el: * outline.el: * paren.el: * pcmpl-cvs.el: * pcmpl-gnu.el: * pcomplete.el: * pcvs-info.el: * pcvs-parse.el: * printing.el: * ps-mule.el: * ps-print.el: * replace.el: * ruler-mode.el: * saveplace.el: * sb-image.el: * scroll-bar.el: * sha1.el: * shadowfile.el: * shell.el: * sort.el: * speedbar.el: * strokes.el: * tempo.el: * term.el: * terminal.el: * time-stamp.el: * time.el: * tree-widget.el: * type-break.el: * vc-cvs.el: * vc-hg.el: * vc-mcvs.el: * vc-rcs.el: * vc-sccs.el: * vc.el: * view.el: * w32-vars.el: * whitespace.el: * wid-edit.el: Remove leading * from docstrings of defcustoms, deffaces, defconsts and defuns.
2008-12-03 05:48:14 +00:00
"Controls marking of renamed files.
*** empty log message ***
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)
Use defgroup and defcustom.
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)
*** empty log message ***
1992-06-24 02:13:56 +00:00
Use defgroup and defcustom.
1997-05-25 18:08:23 +00:00
(defcustom dired-keep-marker-copy ?C
* align.el: * allout.el: * apropos.el: * arc-mode.el: * autoinsert.el: * avoid.el: * battery.el: * bookmark.el: * buff-menu.el: * calculator.el: * chistory.el: * cmuscheme.el: * comint.el: * compare-w.el: * dabbrev.el: * delim-col.el: * desktop.el: * diff-mode.el: * diff.el: * dired-aux.el: * dired-x.el: * dired.el: * dos-vars.el: * ediff-diff.el: * ediff-help.el: * ediff-init.el: * ediff-merg.el: * ediff-mult.el: * ediff-ptch.el: * ediff-vers.el: * ediff-wind.el: * ediff.el: * emerge.el: * facemenu.el: * faces.el: * ffap.el: * filecache.el: * find-dired.el: * font-core.el: * font-lock.el: * forms.el: * fringe.el: * help-at-pt.el: * hippie-exp.el: * ido.el: * image-file.el: * imenu.el: * indent.el: * info.el: * isearchb.el: * iswitchb.el: * jit-lock.el: * jka-compr.el: * log-edit.el: * lpr.el: * ls-lisp.el: * man.el: * menu-bar.el: * midnight.el: * mouse-sel.el: * mouse.el: * msb.el: * outline.el: * paren.el: * pcmpl-cvs.el: * pcmpl-gnu.el: * pcomplete.el: * pcvs-info.el: * pcvs-parse.el: * printing.el: * ps-mule.el: * ps-print.el: * replace.el: * ruler-mode.el: * saveplace.el: * sb-image.el: * scroll-bar.el: * sha1.el: * shadowfile.el: * shell.el: * sort.el: * speedbar.el: * strokes.el: * tempo.el: * term.el: * terminal.el: * time-stamp.el: * time.el: * tree-widget.el: * type-break.el: * vc-cvs.el: * vc-hg.el: * vc-mcvs.el: * vc-rcs.el: * vc-sccs.el: * vc.el: * view.el: * w32-vars.el: * whitespace.el: * wid-edit.el: Remove leading * from docstrings of defcustoms, deffaces, defconsts and defuns.
2008-12-03 05:48:14 +00:00
"Controls marking of copied files.
*** empty log message ***
1992-06-24 02:13:56 +00:00
If t, copied files are marked if and as the corresponding original files were.
Use defgroup and defcustom.
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)
*** empty log message ***
1992-06-24 02:13:56 +00:00
Use defgroup and defcustom.
1997-05-25 18:08:23 +00:00
(defcustom dired-keep-marker-hardlink ?H
* align.el: * allout.el: * apropos.el: * arc-mode.el: * autoinsert.el: * avoid.el: * battery.el: * bookmark.el: * buff-menu.el: * calculator.el: * chistory.el: * cmuscheme.el: * comint.el: * compare-w.el: * dabbrev.el: * delim-col.el: * desktop.el: * diff-mode.el: * diff.el: * dired-aux.el: * dired-x.el: * dired.el: * dos-vars.el: * ediff-diff.el: * ediff-help.el: * ediff-init.el: * ediff-merg.el: * ediff-mult.el: * ediff-ptch.el: * ediff-vers.el: * ediff-wind.el: * ediff.el: * emerge.el: * facemenu.el: * faces.el: * ffap.el: * filecache.el: * find-dired.el: * font-core.el: * font-lock.el: * forms.el: * fringe.el: * help-at-pt.el: * hippie-exp.el: * ido.el: * image-file.el: * imenu.el: * indent.el: * info.el: * isearchb.el: * iswitchb.el: * jit-lock.el: * jka-compr.el: * log-edit.el: * lpr.el: * ls-lisp.el: * man.el: * menu-bar.el: * midnight.el: * mouse-sel.el: * mouse.el: * msb.el: * outline.el: * paren.el: * pcmpl-cvs.el: * pcmpl-gnu.el: * pcomplete.el: * pcvs-info.el: * pcvs-parse.el: * printing.el: * ps-mule.el: * ps-print.el: * replace.el: * ruler-mode.el: * saveplace.el: * sb-image.el: * scroll-bar.el: * sha1.el: * shadowfile.el: * shell.el: * sort.el: * speedbar.el: * strokes.el: * tempo.el: * term.el: * terminal.el: * time-stamp.el: * time.el: * tree-widget.el: * type-break.el: * vc-cvs.el: * vc-hg.el: * vc-mcvs.el: * vc-rcs.el: * vc-sccs.el: * vc.el: * view.el: * w32-vars.el: * whitespace.el: * wid-edit.el: Remove leading * from docstrings of defcustoms, deffaces, defconsts and defuns.
2008-12-03 05:48:14 +00:00
"Controls marking of newly made hard links.
*** empty log message ***
1992-06-24 02:13:56 +00:00
If t, they are marked if and as the files linked to were marked.
Use defgroup and defcustom.
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)
*** empty log message ***
1992-06-24 02:13:56 +00:00
Use defgroup and defcustom.
1997-05-25 18:08:23 +00:00
(defcustom dired-keep-marker-symlink ?Y
* align.el: * allout.el: * apropos.el: * arc-mode.el: * autoinsert.el: * avoid.el: * battery.el: * bookmark.el: * buff-menu.el: * calculator.el: * chistory.el: * cmuscheme.el: * comint.el: * compare-w.el: * dabbrev.el: * delim-col.el: * desktop.el: * diff-mode.el: * diff.el: * dired-aux.el: * dired-x.el: * dired.el: * dos-vars.el: * ediff-diff.el: * ediff-help.el: * ediff-init.el: * ediff-merg.el: * ediff-mult.el: * ediff-ptch.el: * ediff-vers.el: * ediff-wind.el: * ediff.el: * emerge.el: * facemenu.el: * faces.el: * ffap.el: * filecache.el: * find-dired.el: * font-core.el: * font-lock.el: * forms.el: * fringe.el: * help-at-pt.el: * hippie-exp.el: * ido.el: * image-file.el: * imenu.el: * indent.el: * info.el: * isearchb.el: * iswitchb.el: * jit-lock.el: * jka-compr.el: * log-edit.el: * lpr.el: * ls-lisp.el: * man.el: * menu-bar.el: * midnight.el: * mouse-sel.el: * mouse.el: * msb.el: * outline.el: * paren.el: * pcmpl-cvs.el: * pcmpl-gnu.el: * pcomplete.el: * pcvs-info.el: * pcvs-parse.el: * printing.el: * ps-mule.el: * ps-print.el: * replace.el: * ruler-mode.el: * saveplace.el: * sb-image.el: * scroll-bar.el: * sha1.el: * shadowfile.el: * shell.el: * sort.el: * speedbar.el: * strokes.el: * tempo.el: * term.el: * terminal.el: * time-stamp.el: * time.el: * tree-widget.el: * type-break.el: * vc-cvs.el: * vc-hg.el: * vc-mcvs.el: * vc-rcs.el: * vc-sccs.el: * vc.el: * view.el: * w32-vars.el: * whitespace.el: * wid-edit.el: Remove leading * from docstrings of defcustoms, deffaces, defconsts and defuns.
2008-12-03 05:48:14 +00:00
"Controls marking of newly made symbolic links.
*** empty log message ***
1992-06-24 02:13:56 +00:00
If t, they are marked if and as the files linked to were marked.
Use defgroup and defcustom.
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)
*** empty log message ***
1992-06-24 02:13:56 +00:00
Use defgroup and defcustom.
1997-05-25 18:08:23 +00:00
(defcustom dired-dwim-target nil
* align.el: * allout.el: * apropos.el: * arc-mode.el: * autoinsert.el: * avoid.el: * battery.el: * bookmark.el: * buff-menu.el: * calculator.el: * chistory.el: * cmuscheme.el: * comint.el: * compare-w.el: * dabbrev.el: * delim-col.el: * desktop.el: * diff-mode.el: * diff.el: * dired-aux.el: * dired-x.el: * dired.el: * dos-vars.el: * ediff-diff.el: * ediff-help.el: * ediff-init.el: * ediff-merg.el: * ediff-mult.el: * ediff-ptch.el: * ediff-vers.el: * ediff-wind.el: * ediff.el: * emerge.el: * facemenu.el: * faces.el: * ffap.el: * filecache.el: * find-dired.el: * font-core.el: * font-lock.el: * forms.el: * fringe.el: * help-at-pt.el: * hippie-exp.el: * ido.el: * image-file.el: * imenu.el: * indent.el: * info.el: * isearchb.el: * iswitchb.el: * jit-lock.el: * jka-compr.el: * log-edit.el: * lpr.el: * ls-lisp.el: * man.el: * menu-bar.el: * midnight.el: * mouse-sel.el: * mouse.el: * msb.el: * outline.el: * paren.el: * pcmpl-cvs.el: * pcmpl-gnu.el: * pcomplete.el: * pcvs-info.el: * pcvs-parse.el: * printing.el: * ps-mule.el: * ps-print.el: * replace.el: * ruler-mode.el: * saveplace.el: * sb-image.el: * scroll-bar.el: * sha1.el: * shadowfile.el: * shell.el: * sort.el: * speedbar.el: * strokes.el: * tempo.el: * term.el: * terminal.el: * time-stamp.el: * time.el: * tree-widget.el: * type-break.el: * vc-cvs.el: * vc-hg.el: * vc-mcvs.el: * vc-rcs.el: * vc-sccs.el: * vc.el: * view.el: * w32-vars.el: * whitespace.el: * wid-edit.el: Remove leading * from docstrings of defcustoms, deffaces, defconsts and defuns.
2008-12-03 05:48:14 +00:00
"If non-nil, Dired tries to guess a default target directory.
*** empty log message ***
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.
Use defgroup and defcustom.
1997-05-25 18:08:23 +00:00
The target is used in the prompt for file copy, rename etc."
:type 'boolean
:group 'dired)
*** empty log message ***
1992-06-24 02:13:56 +00:00
Use defgroup and defcustom.
1997-05-25 18:08:23 +00:00
(defcustom dired-copy-preserve-time t
* align.el: * allout.el: * apropos.el: * arc-mode.el: * autoinsert.el: * avoid.el: * battery.el: * bookmark.el: * buff-menu.el: * calculator.el: * chistory.el: * cmuscheme.el: * comint.el: * compare-w.el: * dabbrev.el: * delim-col.el: * desktop.el: * diff-mode.el: * diff.el: * dired-aux.el: * dired-x.el: * dired.el: * dos-vars.el: * ediff-diff.el: * ediff-help.el: * ediff-init.el: * ediff-merg.el: * ediff-mult.el: * ediff-ptch.el: * ediff-vers.el: * ediff-wind.el: * ediff.el: * emerge.el: * facemenu.el: * faces.el: * ffap.el: * filecache.el: * find-dired.el: * font-core.el: * font-lock.el: * forms.el: * fringe.el: * help-at-pt.el: * hippie-exp.el: * ido.el: * image-file.el: * imenu.el: * indent.el: * info.el: * isearchb.el: * iswitchb.el: * jit-lock.el: * jka-compr.el: * log-edit.el: * lpr.el: * ls-lisp.el: * man.el: * menu-bar.el: * midnight.el: * mouse-sel.el: * mouse.el: * msb.el: * outline.el: * paren.el: * pcmpl-cvs.el: * pcmpl-gnu.el: * pcomplete.el: * pcvs-info.el: * pcvs-parse.el: * printing.el: * ps-mule.el: * ps-print.el: * replace.el: * ruler-mode.el: * saveplace.el: * sb-image.el: * scroll-bar.el: * sha1.el: * shadowfile.el: * shell.el: * sort.el: * speedbar.el: * strokes.el: * tempo.el: * term.el: * terminal.el: * time-stamp.el: * time.el: * tree-widget.el: * type-break.el: * vc-cvs.el: * vc-hg.el: * vc-mcvs.el: * vc-rcs.el: * vc-sccs.el: * vc.el: * view.el: * w32-vars.el: * whitespace.el: * wid-edit.el: Remove leading * from docstrings of defcustoms, deffaces, defconsts and defuns.
2008-12-03 05:48:14 +00:00
"If non-nil, Dired preserves the last-modified time in a file copy.
Use defgroup and defcustom.
1997-05-25 18:08:23 +00:00
\(This works on only some systems.)"
:type 'boolean
:group 'dired)
*** empty log message ***
1992-06-24 02:13:56 +00:00
(dired-free-space-program, dired-free-space-args): Aliases for back-compatibility.
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)
*** empty log message ***
1992-06-24 02:13:56 +00:00
;;; Hook variables
(dired-load-hook, dired-mode-hook) (dired-before-readin-hook, dired-after-readin-hook): Defcustom.
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.
(dired-load-hook, dired-mode-hook) (dired-before-readin-hook, dired-after-readin-hook): Defcustom.
2002-02-04 19:40:08 +00:00
You can customize key bindings or load extensions with this."
:group 'dired
:type 'hook)
*** empty log message ***
1992-06-24 02:13:56 +00:00
(dired-load-hook, dired-mode-hook) (dired-before-readin-hook, dired-after-readin-hook): Defcustom.
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'."
(dired-load-hook, dired-mode-hook) (dired-before-readin-hook, dired-after-readin-hook): Defcustom.
2002-02-04 19:40:08 +00:00
:group 'dired
:type 'hook)
*** empty log message ***
1992-06-24 02:13:56 +00:00
(dired-load-hook, dired-mode-hook) (dired-before-readin-hook, dired-after-readin-hook): Defcustom.
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)
*** empty log message ***
1992-06-24 02:13:56 +00:00
(dired-load-hook, dired-mode-hook) (dired-before-readin-hook, dired-after-readin-hook): Defcustom.
2002-02-04 19:40:08 +00:00
(defcustom dired-after-readin-hook nil
*** empty log message ***
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
(dired-load-hook, dired-mode-hook) (dired-before-readin-hook, dired-after-readin-hook): Defcustom.
2002-02-04 19:40:08 +00:00
with the buffer narrowed to the listing."
:group 'dired
:type 'hook)
*** empty log message ***
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.
* dnd.el (dnd-protocol-alist): Improve custom type. * dired.el (dired-dnd-protocol-alist): New variable. (dired-mode): Use `dired-dnd-protocol-alist'. Move call of `dired-mode-hook' to the end.
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
(dired-dnd-protocol-alist): Fix typo.
2006-04-03 17:53:24 +00:00
as in other buffers. Changing this option is effective only for
(dired-dnd-protocol-alist): Mention that change does only apply to new buffers in doc string.
2006-04-03 17:27:06 +00:00
new dired buffers."
* dnd.el (dnd-protocol-alist): Improve custom type. * dired.el (dired-dnd-protocol-alist): New variable. (dired-mode): Use `dired-dnd-protocol-alist'. Move call of `dired-mode-hook' to the end.
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)
(dired-font-lock-keywords): Use regexp-opt. (dired-move-to-filename): Better message when we fail to find the file. (dired-sort-toggle): Minor optimization.
2002-09-16 17:13:16 +00:00
;; Internal variables
*** empty log message ***
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.
(dired-marker-char): Avoid quotations for `do' and `mark' to not create links to unrelated functions in the Help buffer.
2005-07-09 20:44:05 +00:00
This is what the do-commands look for, and what the mark-commands store.")
*** empty log message ***
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
*** empty log message ***
1992-07-27 02:56:28 +00:00
;; I see no reason ever to make this nil -- rms.
;; (> baud-rate search-slow-speed)
*** empty log message ***
1992-06-24 02:13:56 +00:00
"Non-nil means Dired shrinks the display buffer to fit the marked files.")
(defvar dired-flagging-regexp nil);; Last regexp used to flag files.
*** empty log message ***
1992-07-27 02:56:28 +00:00
(defvar dired-file-version-alist)
(dired-directory): Add autoload cookie.
2003-02-13 19:34:17 +00:00
;;;###autoload
*** empty log message ***
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.
dired-noselect, dired-internal-noselect, dired-insert-directory: Enhancements to support passing dired a DIRNAME argument consisting of a directory-name car and a list-of-files cdr. This is needed to support VC's augmented dired, which wants a filtered file display that recurses (showing all version-controlled files in subdirectories as well as the top-level ones).
1993-04-08 16:35:59 +00:00
Local to each dired buffer. May be a list, in which case the car is the
(dired-use-ls-dired): New variable. (dired-directory): Document the rules better. (dired-insert-headerline): Function deleted. (dired-revert): Pass no args to dired-readin. (dired-move-to-filename): First try using dired-filename property. (dired-move-to-end-of-filename): Likewise. (dired-why): Try to show the start of this page of warnings. (dired-log): Insert the buffer name at start of page, not end. (dired-log-summary): If just one failure, explain it in echo area. (dired-internal-noselect): Always set dired-directory, when buffer is not new. Pass dir-or-list, not dirname, to dired-mode. Call dired-readin with no args. Don't call dired-after-readin-hook here. (dired-find-buffer-nocreate): Expand dirname. Expand the dir from dired-directory to compare with dirname. (dired-readin): Take no args. Get the directory from dired-directory. Run dired-before-reading hook inside save-excursion. Run dired-after-readin-hook here. Don't make undo entries at all. Call dired-readin-insert with no args. Don't change indentation here. Don't insert headerline here. (dired-readin-insert): Take no args. Get dir and file-list from dired-directory. Call dired-insert-directory the new way. Don't insert "wildcard" info here. (dired-insert-directory): New arg FILE-LIST. First arg now DIR, always just the directory. This function fully handles setting up the buffer text: update indentation, insert headerline and "wildcard" info. Pass --dired arg if appropriate; put info in dired-filename props. Don't expand file names here.
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.")
*** empty log message ***
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.")
(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 "^. ")
(dired-re-dir, dired-re-sym): Don't match DOS drive letters with a colon after d or l.
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[^:]"))
*** empty log message ***
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]")
"\\|"))
(dired-re-perms): Accept various file type letters.
1994-09-26 23:18:19 +00:00
(defvar dired-re-perms "[-bcdlps][-r][-w].[-r][-w].[-r][-w].")
(dired-re-dot): Make it handle trailing /. (dired-get-filename): Update documentation string. Revert previous change and fix typo in earlier version.
2003-06-10 04:03:03 +00:00
(defvar dired-re-dot "^.* \\.\\.?/?$")
*** empty log message ***
1992-06-24 02:13:56 +00:00
(dired-subdir-switches, dired-switches-alist): New vars. (dired-insert-old-subdirs): Do not repeatedly delete and reinsert subdirs if -R switch is used for a subdir. (dired-mode): Set `dired-switches-alist'. (dired-build-subdir-alist): Only print number of directories in echo area when invoked interactively.
2004-06-06 02:22:41 +00:00
;; The subdirectory names in the next two lists are expanded.
*** empty log message ***
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).
entered into RCS
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.")
*** empty log message ***
1992-06-24 02:13:56 +00:00
(dired-subdir-switches, dired-switches-alist): New vars. (dired-insert-old-subdirs): Do not repeatedly delete and reinsert subdirs if -R switch is used for a subdir. (dired-mode): Set `dired-switches-alist'. (dired-build-subdir-alist): Only print number of directories in echo area when invoked interactively.
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)
(dired-move-to-filename-regexp): Define as alias. (dired-no-confirm): Use defcustom. (dired-subdir-alist-pre-R): Put defvar at top level.
2006-01-19 17:50:15 +00:00
(defvaralias 'dired-move-to-filename-regexp
'directory-listing-before-filename-regexp)
(dired-subdir-regexp): Allow a space in dir name.
1994-04-13 23:22:34 +00:00
(defvar dired-subdir-regexp "^. \\([^\n\r]+\\)\\(:\\)[\n\r]"
*** empty log message ***
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
Change release version from 21.4 to 22.1 throughout. Change development version from 21.3.50 to 22.0.50.
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
Change release version from 21.4 to 22.1 throughout. Change development version from 21.3.50 to 22.0.50.
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
'((t (:inherit font-lock-warning-face)))
"Face used for marked files."
:group 'dired-faces
Change release version from 21.4 to 22.1 throughout. Change development version from 21.3.50 to 22.0.50.
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
'((t (:inherit font-lock-warning-face)))
"Face used for flagged files."
:group 'dired-faces
Change release version from 21.4 to 22.1 throughout. Change development version from 21.3.50 to 22.0.50.
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
"Face name used for flagged files.")
(defface dired-warning
(dired-warning): Inherit from font-lock-warning-face to make it show up with eight colors.
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
Change release version from 21.4 to 22.1 throughout. Change development version from 21.3.50 to 22.0.50.
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.")
(dired-warn-writable): Rename to `dired-perm-write'. (dired-perm-write): Renamed from `dired-warn-writable'. Change parent face from `font-lock-warning-face' to `font-lock-comment-delimiter-face'. (dired-warn-writable-face): Rename to `dired-perm-write-face'. (dired-perm-write-face): Renamed from `dired-warn-writable-face'. (dired-font-lock-keywords): Replace `dired-warn-writable-face' with `dired-perm-write-face'.
2008-03-14 01:01:36 +00:00
(defface dired-perm-write
(dired-warn-writable): New face. (dired-warn-writable-face): New variable. (dired-font-lock-keywords): Use dired-warn-writable-face, instead of dired-warning-face, for group- and world-writable files.
2007-10-13 20:14:23 +00:00
'((((type w32 pc)) :inherit default) ;; These default to rw-rw-rw.
(dired-warn-writable): Rename to `dired-perm-write'. (dired-perm-write): Renamed from `dired-warn-writable'. Change parent face from `font-lock-warning-face' to `font-lock-comment-delimiter-face'. (dired-warn-writable-face): Rename to `dired-perm-write-face'. (dired-perm-write-face): Renamed from `dired-warn-writable-face'. (dired-font-lock-keywords): Replace `dired-warn-writable-face' with `dired-perm-write-face'.
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.
(dired-warn-writable): Rename to `dired-perm-write'. (dired-perm-write): Renamed from `dired-warn-writable'. Change parent face from `font-lock-warning-face' to `font-lock-comment-delimiter-face'. (dired-warn-writable-face): Rename to `dired-perm-write-face'. (dired-perm-write-face): Renamed from `dired-warn-writable-face'. (dired-font-lock-keywords): Replace `dired-warn-writable-face' with `dired-perm-write-face'.
2008-03-14 01:01:36 +00:00
(t (:inherit font-lock-comment-delimiter-face)))
(dired-warn-writable): New face. (dired-warn-writable-face): New variable. (dired-font-lock-keywords): Use dired-warn-writable-face, instead of dired-warning-face, for group- and world-writable files.
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")
(dired-warn-writable): Rename to `dired-perm-write'. (dired-perm-write): Renamed from `dired-warn-writable'. Change parent face from `font-lock-warning-face' to `font-lock-comment-delimiter-face'. (dired-warn-writable-face): Rename to `dired-perm-write-face'. (dired-perm-write-face): Renamed from `dired-warn-writable-face'. (dired-font-lock-keywords): Replace `dired-warn-writable-face' with `dired-perm-write-face'.
2008-03-14 01:01:36 +00:00
(defvar dired-perm-write-face 'dired-perm-write
(dired-warn-writable): New face. (dired-warn-writable-face): New variable. (dired-font-lock-keywords): Use dired-warn-writable-face, instead of dired-warning-face, for group- and world-writable files.
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
Change release version from 21.4 to 22.1 throughout. Change development version from 21.3.50 to 22.0.50.
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
Change release version from 21.4 to 22.1 throughout. Change development version from 21.3.50 to 22.0.50.
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
* dired.el (dired-ignored): Inherit from `shadow' face.
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
Change release version from 21.4 to 22.1 throughout. Change development version from 21.3.50 to 22.0.50.
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'.")
Tweak dired-font-lock-keywords.
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))
Tweak dired-font-lock-keywords.
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)))
(dired-font-lock-keywords): Don't specially highlight files that are writable by others.
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)))
(dired) <defgroup>: Add link to manual. (dired-font-lock-keywords): Ad highlighting on unusual permissions. (dired-revert): Use dolist. (dired-mode-map): Add U binding. (dired-mode): Add font-lock-beginning-of-syntax-function. (dired-garbage-files-regexp): Make it a defcustom.
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
(dired-font-lock-keywords): Fix permission regexps.
2004-04-03 04:19:13 +00:00
"[-d]....\\(w\\)....") ; group writable
(dired-warn-writable): Rename to `dired-perm-write'. (dired-perm-write): Renamed from `dired-warn-writable'. Change parent face from `font-lock-warning-face' to `font-lock-comment-delimiter-face'. (dired-warn-writable-face): Rename to `dired-perm-write-face'. (dired-perm-write-face): Renamed from `dired-warn-writable-face'. (dired-font-lock-keywords): Replace `dired-warn-writable-face' with `dired-perm-write-face'.
2008-03-14 01:01:36 +00:00
'(1 dired-perm-write-face))
(dired) <defgroup>: Add link to manual. (dired-font-lock-keywords): Ad highlighting on unusual permissions. (dired-revert): Use dolist. (dired-mode-map): Add U binding. (dired-mode): Add font-lock-beginning-of-syntax-function. (dired-garbage-files-regexp): Make it a defcustom.
2004-03-23 21:44:31 +00:00
(list (concat dired-re-maybe-mark dired-re-inode-size
(dired-font-lock-keywords): Fix permission regexps.
2004-04-03 04:19:13 +00:00
"[-d].......\\(w\\).") ; world writable
(dired-warn-writable): Rename to `dired-perm-write'. (dired-perm-write): Renamed from `dired-warn-writable'. Change parent face from `font-lock-warning-face' to `font-lock-comment-delimiter-face'. (dired-warn-writable-face): Rename to `dired-perm-write-face'. (dired-perm-write-face): Renamed from `dired-warn-writable-face'. (dired-font-lock-keywords): Replace `dired-warn-writable-face' with `dired-perm-write-face'.
2008-03-14 01:01:36 +00:00
'(1 dired-perm-write-face))
Tweak dired-font-lock-keywords.
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)))
Tweak dired-font-lock-keywords.
1996-10-23 09:26:39 +00:00
;;
;; Symbolic links.
Cygwin support patch.
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)))
Tweak dired-font-lock-keywords.
1996-10-23 09:26:39 +00:00
;;
;; Files suffixed with `completion-ignored-extensions'.
'(eval .
(dired-font-lock-keywords): Use regexp-opt. (dired-move-to-filename): Better message when we fail to find the file. (dired-sort-toggle): Minor optimization.
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) "\\|#\\)$")
(dired-font-lock-keywords): Fontify files with junk extensions even if marked by -F.
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))))
(dired-font-lock-keywords): Avoid fontifying file names ending in a colon as directory header.
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 ".*:$")
(dired-font-lock-keywords): Fix last change.
2008-12-05 13:36:46 +00:00
'(".+" (dired-move-to-filename) nil (0 'default)))
(dired-font-lock-keywords): Avoid fontifying file names ending in a colon as directory header.
2008-12-01 16:07:19 +00:00
;;
;; Directory headers.
(list dired-subdir-regexp '(1 dired-header-face))
(dired-font-lock-keywords): Fontify files with junk extensions even if marked by -F.
2005-05-22 13:35:21 +00:00
)
Tweak dired-font-lock-keywords.
1996-10-23 09:26:39 +00:00
"Additional expressions to highlight in Dired mode.")
(dnd-protocol-alist): Add defvar.
2005-07-03 16:11:04 +00:00
(defvar dnd-protocol-alist)
Revert last change.
2001-01-26 13:14:11 +00:00
*** empty log message ***
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)
(dired) <defgroup>: Add link to manual. (dired-font-lock-keywords): Ad highlighting on unusual permissions. (dired-revert): Use dolist. (dired-mode-map): Add U binding. (dired-mode): Add font-lock-beginning-of-syntax-function. (dired-garbage-files-regexp): Make it a defcustom.
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)
Converted backquote to the new style.
2001-11-27 15:52:52 +00:00
(save-excursion
(setq count 0)
(if ,msg (message "Marking %ss..." ,msg))
(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)))
*** empty log message ***
1992-06-24 02:13:56 +00:00
(dired-map-over-marks): New arg distinguish-one-marked. (dired-get-marked-files): New arg distinguish-one-marked. (dired-mark-pop-up): Handle FILES = (t FILE) specially.
2005-05-15 21:33:25 +00:00
(defmacro dired-map-over-marks (body arg &optional show-progress
distinguish-one-marked)
(dired-map-over-marks): Use modern backquotes and docstring.
2000-09-29 22:24:38 +00:00
"Eval BODY with point on each marked line. Return a list of BODY's results.
If no marked file could be found, execute BODY on the current line.
(dired-get-marked-files, dired-map-over-marks): Doc fixes.
2008-10-22 20:37:22 +00:00
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.
(dired-map-over-marks): Use modern backquotes and docstring.
2000-09-29 22:24:38 +00:00
If optional third arg SHOW-PROGRESS evaluates to non-nil,
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.
(dired-map-over-marks): New arg distinguish-one-marked. (dired-get-marked-files): New arg distinguish-one-marked. (dired-mark-pop-up): Handle FILES = (t FILE) specially.
2005-05-15 21:33:25 +00:00
BODY should not be too long as it is expanded four times.
If DISTINGUISH-ONE-MARKED is non-nil, then if we find just one marked file,
return (t FILENAME) instead of (FILENAME)."
(dired-map-over-marks): Use modern backquotes and docstring.
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)
(dired-map-over-marks): Use modern backquotes and docstring.
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)
*** empty log message ***
1992-06-24 02:13:56 +00:00
(setq next-position (and (re-search-forward regexp nil t)
(dired-map-over-marks): Use modern backquotes and docstring.
2000-09-29 22:24:38 +00:00
(point-marker)))))
(dired-map-over-marks): New arg distinguish-one-marked. (dired-get-marked-files): New arg distinguish-one-marked. (dired-mark-pop-up): Handle FILES = (t FILE) specially.
2005-05-15 21:33:25 +00:00
(if (and ,distinguish-one-marked (= (length results) 1))
(setq results (cons t results)))
(dired-map-over-marks): Use modern backquotes and docstring.
2000-09-29 22:24:38 +00:00
(if found
results
(list ,body)))))
;; save-excursion loses, again
(dired-move-to-filename)))
*** empty log message ***
1992-06-24 02:13:56 +00:00
(dired-map-over-marks): New arg distinguish-one-marked. (dired-get-marked-files): New arg distinguish-one-marked. (dired-mark-pop-up): Handle FILES = (t FILE) specially.
2005-05-15 21:33:25 +00:00
(defun dired-get-marked-files (&optional localp arg filter distinguish-one-marked)
*** empty log message ***
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.
(dired-get-marked-files): New arg FILTER allows selection of some files.
2002-03-29 14:43:14 +00:00
Values returned are normally absolute file names.
*** empty log message ***
1992-06-24 02:13:56 +00:00
Optional arg LOCALP as in `dired-get-filename'.
(dired-get-marked-files, dired-map-over-marks): Doc fixes.
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.
(dired-get-marked-files): New arg FILTER allows selection of some files.
2002-03-29 14:43:14 +00:00
Optional third argument FILTER, if non-nil, is a function to select
(dired-map-over-marks): New arg distinguish-one-marked. (dired-get-marked-files): New arg distinguish-one-marked. (dired-mark-pop-up): Handle FILES = (t FILE) specially.
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)
(dired-get-marked-files): New arg FILTER allows selection of some files.
2002-03-29 14:43:14 +00:00
(if (not filter)
(dired-map-over-marks): New arg distinguish-one-marked. (dired-get-marked-files): New arg distinguish-one-marked. (dired-mark-pop-up): Handle FILES = (t FILE) specially.
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))
(dired-get-marked-files): New arg FILTER allows selection of some files.
2002-03-29 14:43:14 +00:00
(dolist (file all-of-them)
(if (funcall filter file)
(push file result)))
result)))
Revert last change.
2001-01-26 13:14:11 +00:00
*** empty log message ***
1992-06-24 02:13:56 +00:00
;; The dired command
(defun dired-read-dir-and-switches (str)
;; For use in interactive.
(dired-read-dir-and-switches): Revert to 2007-11-22 version (bug@1285).
2008-11-08 14:24:54 +00:00
(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)
Provide additional default values (file name at point or at the current Dired line) via M-n for file reading minibuffers. (Bug#5010) * minibuffer.el (read-file-name-defaults): New function. (read-file-name): Reset `minibuffer-default' to nil when it duplicates initial input `insdef'. Bind `minibuffer-default-add-function' to lambda that calls `read-file-name-defaults' in `minibuffer-selected-window'. (minibuffer-insert-file-name-at-point): New command. * files.el (file-name-at-point-functions): New defcustom. (find-file-default): Remove defvar. (find-file-read-args): Don't use `find-file-default'. Move `minibuffer-with-setup-hook' that sets `minibuffer-default' to `read-file-name'. (find-file-literally): Use `read-file-name' with `confirm-nonexistent-file-or-buffer'. * ffap.el (ffap-guess-file-name-at-point): New autoloaded function. * dired.el (dired-read-dir-and-switches): Move `minibuffer-with-setup-hook' that sets `minibuffer-default' to `read-file-name'. (dired-file-name-at-point): New function. (dired-mode): Add hook `dired-file-name-at-point' to `file-name-at-point-functions'.
2009-11-25 17:11:29 +00:00
(read-file-name (format "Dired %s(directory): " str)
nil default-directory nil)))))
(dired-read-dir-and-switches): Revert to 2007-11-22 version (bug@1285).
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))))))))
Initial revision
1992-05-30 23:52:26 +00:00
Provide additional default values (file name at point or at the current Dired line) via M-n for file reading minibuffers. (Bug#5010) * minibuffer.el (read-file-name-defaults): New function. (read-file-name): Reset `minibuffer-default' to nil when it duplicates initial input `insdef'. Bind `minibuffer-default-add-function' to lambda that calls `read-file-name-defaults' in `minibuffer-selected-window'. (minibuffer-insert-file-name-at-point): New command. * files.el (file-name-at-point-functions): New defcustom. (find-file-default): Remove defvar. (find-file-read-args): Don't use `find-file-default'. Move `minibuffer-with-setup-hook' that sets `minibuffer-default' to `read-file-name'. (find-file-literally): Use `read-file-name' with `confirm-nonexistent-file-or-buffer'. * ffap.el (ffap-guess-file-name-at-point): New autoloaded function. * dired.el (dired-read-dir-and-switches): Move `minibuffer-with-setup-hook' that sets `minibuffer-default' to `read-file-name'. (dired-file-name-at-point): New function. (dired-mode): Add hook `dired-file-name-at-point' to `file-name-at-point-functions'.
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)))))
*** empty log message ***
1992-06-24 02:13:56 +00:00
;;;###autoload (define-key ctl-x-map "d" 'dired)
Initial revision
1992-05-30 23:52:26 +00:00
;;;###autoload
*** empty log message ***
1992-06-24 02:13:56 +00:00
(defun dired (dirname &optional switches)
Initial revision
1992-05-30 23:52:26 +00:00
"\"Edit\" directory DIRNAME--delete, rename, print, etc. some files in it.
*** empty log message ***
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
dired-noselect, dired-internal-noselect, dired-insert-directory: Enhancements to support passing dired a DIRNAME argument consisting of a directory-name car and a list-of-files cdr. This is needed to support VC's augmented dired, which wants a filtered file display that recurses (showing all version-controlled files in subdirectories as well as the top-level ones).
1993-04-08 16:35:59 +00:00
shell wildcards appended to select certain files). If DIRNAME is a cons,
(dired): Fix typo.
1995-12-29 17:59:11 +00:00
its first element is taken as the directory name and the rest as an explicit
dired-noselect, dired-internal-noselect, dired-insert-directory: Enhancements to support passing dired a DIRNAME argument consisting of a directory-name car and a list-of-files cdr. This is needed to support VC's augmented dired, which wants a filtered file display that recurses (showing all version-controlled files in subdirectories as well as the top-level ones).
1993-04-08 16:35:59 +00:00
list of files to make directory entries for.
*** empty log message ***
1992-07-21 22:40:10 +00:00
\\<dired-mode-map>\
*** empty log message ***
1992-06-24 02:13:56 +00:00
You can move around in it with the usual commands.
dired-noselect, dired-internal-noselect, dired-insert-directory: Enhancements to support passing dired a DIRNAME argument consisting of a directory-name car and a list-of-files cdr. This is needed to support VC's augmented dired, which wants a filtered file display that recurses (showing all version-controlled files in subdirectories as well as the top-level ones).
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.
Initial revision
1992-05-30 23:52:26 +00:00
*** empty log message ***
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)
Initial revision
1992-05-30 23:52:26 +00:00
;;;###autoload
*** empty log message ***
1992-06-24 02:13:56 +00:00
(defun dired-other-window (dirname &optional switches)
Initial revision
1992-05-30 23:52:26 +00:00
"\"Edit\" directory DIRNAME. Like `dired' but selects in another window."
*** empty log message ***
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)))
Initial revision
1992-05-30 23:52:26 +00:00
(dired-other-frame): New function, with binding.
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)))
Initial revision
1992-05-30 23:52:26 +00:00
;;;###autoload
dired-noselect, dired-internal-noselect, dired-insert-directory: Enhancements to support passing dired a DIRNAME argument consisting of a directory-name car and a list-of-files cdr. This is needed to support VC's augmented dired, which wants a filtered file display that recurses (showing all version-controlled files in subdirectories as well as the top-level ones).
1993-04-08 16:35:59 +00:00
(defun dired-noselect (dir-or-list &optional switches)
Initial revision
1992-05-30 23:52:26 +00:00
"Like `dired' but returns the dired buffer as value, does not select it."
dired-noselect, dired-internal-noselect, dired-insert-directory: Enhancements to support passing dired a DIRNAME argument consisting of a directory-name car and a list-of-files cdr. This is needed to support VC's augmented dired, which wants a filtered file display that recurses (showing all version-controlled files in subdirectories as well as the top-level ones).
1993-04-08 16:35:59 +00:00
(or dir-or-list (setq dir-or-list default-directory))
*** empty log message ***
1992-06-24 02:13:56 +00:00
;; This loses the distinction between "/foo/*/" and "/foo/*" that
;; some shells make:
(dired-noselect): Avoid calling file-directory-p when the initial argument was syntactically a directory name.
1997-04-13 04:26:38 +00:00
(let (dirname initially-was-dirname)
dired-noselect, dired-internal-noselect, dired-insert-directory: Enhancements to support passing dired a DIRNAME argument consisting of a directory-name car and a list-of-files cdr. This is needed to support VC's augmented dired, which wants a filtered file display that recurses (showing all version-controlled files in subdirectories as well as the top-level ones).
1993-04-08 16:35:59 +00:00
(if (consp dir-or-list)
(setq dirname (car dir-or-list))
(setq dirname dir-or-list))
(dired-noselect): Avoid calling file-directory-p when the initial argument was syntactically a directory name.
1997-04-13 04:26:38 +00:00
(setq initially-was-dirname
(string= (file-name-as-directory dirname) dirname))
(dired-noselect): Call abbreviate-file-name here. (dired-internal-noselect): Not here.
1994-07-31 21:42:11 +00:00
(setq dirname (abbreviate-file-name
(expand-file-name (directory-file-name dirname))))
(dired-noselect): Resolve symbolic links in argument.
1996-04-05 19:11:05 +00:00
(if find-file-visit-truename
(setq dirname (file-truename dirname)))
(dired-noselect): Avoid calling file-directory-p when the initial argument was syntactically a directory name.
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)))
dired-noselect, dired-internal-noselect, dired-insert-directory: Enhancements to support passing dired a DIRNAME argument consisting of a directory-name car and a list-of-files cdr. This is needed to support VC's augmented dired, which wants a filtered file display that recurses (showing all version-controlled files in subdirectories as well as the top-level ones).
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)))
*** empty log message ***
1992-06-24 02:13:56 +00:00
(dired-directory-changed-p, dired-buffer-stale-p): New functions. (dired-internal-noselect): Use dired-directory-changed-p. Eliminate revert messages. (dired-mode): Set buffer-stale-function to dired-buffer-stale-p.
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))
(dired-directory-changed-p): Reindent.
2004-03-25 04:21:24 +00:00
(modtime (visited-file-modtime)))
(or (eq modtime 0)
(not (eq (car attributes) t))
(dired-directory-changed-p): `visited-file-modtime' now returns a list of two integers, instead of a cons.
2004-07-14 22:59:08 +00:00
(equal (nth 5 attributes) modtime)))))
(dired-directory-changed-p, dired-buffer-stale-p): New functions. (dired-internal-noselect): Use dired-directory-changed-p. Eliminate revert messages. (dired-mode): Set buffer-stale-function to dired-buffer-stale-p.
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)
(dired-buffer-stale-p): Do not revert buffer that can be written.
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
(dired-directory-changed-p, dired-buffer-stale-p): New functions. (dired-internal-noselect): Use dired-directory-changed-p. Eliminate revert messages. (dired-mode): Set buffer-stale-function to dired-buffer-stale-p.
2004-03-23 05:20:11 +00:00
(dired-directory-changed-p dirname))))
(dired-auto-revert-buffer): New defcustom. (dired-internal-noselect): Use it.
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")
(dired-internal-noselect): New arg MODE. If it's non-nil, switch to that nil. (dired-find-buffer-nocreate): New arg MODE.
1995-09-03 17:34:56 +00:00
(defun dired-internal-noselect (dir-or-list &optional switches mode)
*** empty log message ***
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.
(dired-directory-changed-p, dired-buffer-stale-p): New functions. (dired-internal-noselect): Use dired-directory-changed-p. Eliminate revert messages. (dired-mode): Set buffer-stale-function to dired-buffer-stale-p.
2004-03-23 05:20:11 +00:00
;; The user can type `g' easily, and it is more consistent with find-file.
*** empty log message ***
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.
(dired-internal-noselect): New arg MODE. If it's non-nil, switch to that nil. (dired-find-buffer-nocreate): New arg MODE.
1995-09-03 17:34:56 +00:00
;; Optional argument MODE is passed to dired-find-buffer-nocreate,
;; see there.
* textmodes/ispell.el (ispell-check-version, ispell-send-string): * international/mule.el (load-with-code-conversion): * emacs-lisp/debug.el (debug): * ediff-vers.el (ediff-rcs-get-output-buffer): * dired.el (dired-internal-noselect): Don't let-bind default-major-mode around code that doesn't use it. E.g. buffer creation via get-buffer-create doesn't use it.
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)))
*** empty log message ***
1992-06-24 02:13:56 +00:00
(or buffer
* textmodes/ispell.el (ispell-check-version, ispell-send-string): * international/mule.el (load-with-code-conversion): * emacs-lisp/debug.el (debug): * ediff-vers.el (ediff-rcs-get-output-buffer): * dired.el (dired-internal-noselect): Don't let-bind default-major-mode around code that doesn't use it. E.g. buffer creation via get-buffer-create doesn't use it.
2009-08-28 16:29:25 +00:00
(setq buffer (create-file-buffer (directory-file-name dirname))))
*** empty log message ***
1992-06-24 02:13:56 +00:00
(set-buffer buffer)
(dired-directory-changed-p, dired-buffer-stale-p): New functions. (dired-internal-noselect): Use dired-directory-changed-p. Eliminate revert messages. (dired-mode): Set buffer-stale-function to dired-buffer-stale-p.
2004-03-23 05:20:11 +00:00
(if (not new-buffer-p) ; existing buffer ...
(cond (switches ; ... but new switches
(dired-internal-noselect): Set dired-directory when refreshing a buffer that displays a list of files. (dired-find-buffer-nocreate): Handle the case when dired-directory is a list. (dired-sort-other): Don't set mode-name if we are not in dired-mode.
1995-09-08 20:38:17 +00:00
;; file list may have changed
(dired-use-ls-dired): New variable. (dired-directory): Document the rules better. (dired-insert-headerline): Function deleted. (dired-revert): Pass no args to dired-readin. (dired-move-to-filename): First try using dired-filename property. (dired-move-to-end-of-filename): Likewise. (dired-why): Try to show the start of this page of warnings. (dired-log): Insert the buffer name at start of page, not end. (dired-log-summary): If just one failure, explain it in echo area. (dired-internal-noselect): Always set dired-directory, when buffer is not new. Pass dir-or-list, not dirname, to dired-mode. Call dired-readin with no args. Don't call dired-after-readin-hook here. (dired-find-buffer-nocreate): Expand dirname. Expand the dir from dired-directory to compare with dirname. (dired-readin): Take no args. Get the directory from dired-directory. Run dired-before-reading hook inside save-excursion. Run dired-after-readin-hook here. Don't make undo entries at all. Call dired-readin-insert with no args. Don't change indentation here. Don't insert headerline here. (dired-readin-insert): Take no args. Get dir and file-list from dired-directory. Call dired-insert-directory the new way. Don't insert "wildcard" info here. (dired-insert-directory): New arg FILE-LIST. First arg now DIR, always just the directory. This function fully handles setting up the buffer text: update indentation, insert headerline and "wildcard" info. Pass --dired arg if appropriate; put info in dired-filename props. Don't expand file names here.
2002-09-15 01:52:54 +00:00
(setq dired-directory dir-or-list)
(dired-internal-noselect): Set dired-directory when refreshing a buffer that displays a list of files. (dired-find-buffer-nocreate): Handle the case when dired-directory is a list. (dired-sort-other): Don't set mode-name if we are not in dired-mode.
1995-09-08 20:38:17 +00:00
;; this calls dired-revert
Cygwin support patch.
2003-01-31 15:24:20 +00:00
(dired-sort-other switches))
(dired-auto-revert-buffer): New defcustom. (dired-internal-noselect): Use it.
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")))
(dired-internal-noselect): Set dired-directory when refreshing a buffer that displays a list of files. (dired-find-buffer-nocreate): Handle the case when dired-directory is a list. (dired-sort-other): Don't set mode-name if we are not in dired-mode.
1995-09-08 20:38:17 +00:00
;; If directory has changed on disk, offer to revert.
(dired-directory-changed-p, dired-buffer-stale-p): New functions. (dired-internal-noselect): Use dired-directory-changed-p. Eliminate revert messages. (dired-mode): Set buffer-stale-function to dired-buffer-stale-p.
2004-03-23 05:20:11 +00:00
((when (dired-directory-changed-p dirname)
(dired-internal-noselect): Pass proper format string to message.
1996-01-25 00:52:48 +00:00
(message "%s"
Fix indentation.
1996-01-25 07:09:48 +00:00
(substitute-command-keys
"Directory has changed on disk; type \\[revert-buffer] to update Dired")))))
*** empty log message ***
1992-06-24 02:13:56 +00:00
;; Else a new buffer
(dired-readin-insert): Expand default-directory and dirname before comparing them. (dired-internal-noselect): Set default-directory to abbreviated name.
1993-11-22 09:29:51 +00:00
(setq default-directory
(dired-internal-noselect): When setting default-directory, don't check file-name-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))
*** empty log message ***
1992-06-24 02:13:56 +00:00
(or switches (setq switches dired-listing-switches))
(dired-internal-noselect): Call either dired-mode or MODE, but not both.
1998-06-05 12:46:02 +00:00
(if mode (funcall mode)
(dired-use-ls-dired): New variable. (dired-directory): Document the rules better. (dired-insert-headerline): Function deleted. (dired-revert): Pass no args to dired-readin. (dired-move-to-filename): First try using dired-filename property. (dired-move-to-end-of-filename): Likewise. (dired-why): Try to show the start of this page of warnings. (dired-log): Insert the buffer name at start of page, not end. (dired-log-summary): If just one failure, explain it in echo area. (dired-internal-noselect): Always set dired-directory, when buffer is not new. Pass dir-or-list, not dirname, to dired-mode. Call dired-readin with no args. Don't call dired-after-readin-hook here. (dired-find-buffer-nocreate): Expand dirname. Expand the dir from dired-directory to compare with dirname. (dired-readin): Take no args. Get the directory from dired-directory. Run dired-before-reading hook inside save-excursion. Run dired-after-readin-hook here. Don't make undo entries at all. Call dired-readin-insert with no args. Don't change indentation here. Don't insert headerline here. (dired-readin-insert): Take no args. Get dir and file-list from dired-directory. Call dired-insert-directory the new way. Don't insert "wildcard" info here. (dired-insert-directory): New arg FILE-LIST. First arg now DIR, always just the directory. This function fully handles setting up the buffer text: update indentation, insert headerline and "wildcard" info. Pass --dired arg if appropriate; put info in dired-filename props. Don't expand file names here.
2002-09-15 01:52:54 +00:00
(dired-mode dir-or-list switches))
*** empty log message ***
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
(dired-use-ls-dired): New variable. (dired-directory): Document the rules better. (dired-insert-headerline): Function deleted. (dired-revert): Pass no args to dired-readin. (dired-move-to-filename): First try using dired-filename property. (dired-move-to-end-of-filename): Likewise. (dired-why): Try to show the start of this page of warnings. (dired-log): Insert the buffer name at start of page, not end. (dired-log-summary): If just one failure, explain it in echo area. (dired-internal-noselect): Always set dired-directory, when buffer is not new. Pass dir-or-list, not dirname, to dired-mode. Call dired-readin with no args. Don't call dired-after-readin-hook here. (dired-find-buffer-nocreate): Expand dirname. Expand the dir from dired-directory to compare with dirname. (dired-readin): Take no args. Get the directory from dired-directory. Run dired-before-reading hook inside save-excursion. Run dired-after-readin-hook here. Don't make undo entries at all. Call dired-readin-insert with no args. Don't change indentation here. Don't insert headerline here. (dired-readin-insert): Take no args. Get dir and file-list from dired-directory. Call dired-insert-directory the new way. Don't insert "wildcard" info here. (dired-insert-directory): New arg FILE-LIST. First arg now DIR, always just the directory. This function fully handles setting up the buffer text: update indentation, insert headerline and "wildcard" info. Pass --dired arg if appropriate; put info in dired-filename props. Don't expand file names here.
2002-09-15 01:52:54 +00:00
(progn (dired-readin)
*** empty log message ***
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)
Initial revision
1992-05-30 23:52:26 +00:00
buffer))
(dired-find-alternate-file): New function. (dired-mode-map): Bind `a' to dired-find-alternate-file. (toplevel): Require dired-aux when compiling. (dired-buffers): Move defvar within file to avoid compiler warning.
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.")
(dired-internal-noselect): New arg MODE. If it's non-nil, switch to that nil. (dired-find-buffer-nocreate): New arg MODE.
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.
(dired-use-ls-dired): New variable. (dired-directory): Document the rules better. (dired-insert-headerline): Function deleted. (dired-revert): Pass no args to dired-readin. (dired-move-to-filename): First try using dired-filename property. (dired-move-to-end-of-filename): Likewise. (dired-why): Try to show the start of this page of warnings. (dired-log): Insert the buffer name at start of page, not end. (dired-log-summary): If just one failure, explain it in echo area. (dired-internal-noselect): Always set dired-directory, when buffer is not new. Pass dir-or-list, not dirname, to dired-mode. Call dired-readin with no args. Don't call dired-after-readin-hook here. (dired-find-buffer-nocreate): Expand dirname. Expand the dir from dired-directory to compare with dirname. (dired-readin): Take no args. Get the directory from dired-directory. Run dired-before-reading hook inside save-excursion. Run dired-after-readin-hook here. Don't make undo entries at all. Call dired-readin-insert with no args. Don't change indentation here. Don't insert headerline here. (dired-readin-insert): Take no args. Get dir and file-list from dired-directory. Call dired-insert-directory the new way. Don't insert "wildcard" info here. (dired-insert-directory): New arg FILE-LIST. First arg now DIR, always just the directory. This function fully handles setting up the buffer text: update indentation, insert headerline and "wildcard" info. Pass --dired arg if appropriate; put info in dired-filename props. Don't expand file names here.
2002-09-15 01:52:54 +00:00
(setq dirname (expand-file-name dirname))
(dired-find-buffer-nocreate): Check only buffers in dired-buffers instead of all buffers in (buffer-list).
1995-05-29 04:36:26 +00:00
(let (found (blist dired-buffers)) ; was (buffer-list)
(dired-internal-noselect): New arg MODE. If it's non-nil, switch to that nil. (dired-find-buffer-nocreate): New arg MODE.
1995-09-03 17:34:56 +00:00
(or mode (setq mode 'dired-mode))
*** empty log message ***
1992-06-24 02:13:56 +00:00
(while blist
(dired-find-buffer-nocreate): Ignore dead buffers.
1995-05-31 21:06:48 +00:00
(if (null (buffer-name (cdr (car blist))))
(setq blist (cdr blist))
* x-dnd.el (x-dnd-maybe-call-test-function): * window.el (split-window-vertically): * whitespace.el (whitespace-help-on): * vc-rcs.el (vc-rcs-consult-headers): * userlock.el (ask-user-about-lock-help) (ask-user-about-supersession-help): * type-break.el (type-break-force-mode-line-update): * time-stamp.el (time-stamp-conv-warn): * terminal.el (te-set-output-log, te-more-break, te-filter) (te-sentinel,terminal-emulator): * term.el (make-term, term-exec, term-sentinel, term-read-input-ring) (term-write-input-ring, term-check-source, term-start-output-log): (term-display-buffer-line, term-dynamic-list-completions): (term-ansi-make-term, serial-term): * subr.el (selective-display): * strokes.el (strokes-xpm-to-compressed-string, strokes-decode-buffer) (strokes-encode-buffer, strokes-xpm-for-compressed-string): * speedbar.el (speedbar-buffers-tail-notes, speedbar-buffers-item-info) (speedbar-reconfigure-keymaps, speedbar-add-localized-speedbar-support) (speedbar-remove-localized-speedbar-support) (speedbar-set-mode-line-format, speedbar-create-tag-hierarchy) (speedbar-update-special-contents, speedbar-buffer-buttons-engine) (speedbar-buffers-line-directory): * simple.el (shell-command-on-region, append-to-buffer) (prepend-to-buffer): * shadowfile.el (shadow-save-todo-file): * scroll-bar.el (scroll-bar-set-window-start, scroll-bar-drag-1) (scroll-bar-maybe-set-window-start): * sb-image.el (speedbar-image-dump): * saveplace.el (save-place-alist-to-file, save-places-to-alist) (load-save-place-alist-from-file): * ps-samp.el (ps-print-message-from-summary): * ps-print.el (ps-flush-output, ps-insert-file, ps-get-boundingbox) (ps-background-image, ps-begin-job, ps-do-despool): * ps-bdf.el (bdf-find-file, bdf-read-font-info): * printing.el (pr-interface, pr-ps-file-print, pr-find-buffer-visiting) (pr-ps-message-from-summary, pr-lpr-message-from-summary): (pr-call-process, pr-file-list, pr-interface-save): * novice.el (disabled-command-function) (enable-command, disable-command): * mouse.el (mouse-buffer-menu-alist): * mouse-copy.el (mouse-kill-preserving-secondary): * macros.el (kbd-macro-query): * ledit.el (ledit-go-to-lisp, ledit-go-to-liszt): * informat.el (batch-info-validate): * ido.el (ido-copy-current-word, ido-initiate-auto-merge): * hippie-exp.el (try-expand-dabbrev-visible): * help-mode.el (help-make-xrefs): * help-fns.el (describe-variable): * generic-x.el (bat-generic-mode-run-as-comint): * finder.el (finder-mouse-select): * find-dired.el (find-dired-sentinel): * filesets.el (filesets-file-close): * files.el (list-directory): * faces.el (list-faces-display, describe-face): * facemenu.el (list-colors-display): * ezimage.el (ezimage-image-association-dump, ezimage-image-dump): * epg.el (epg--process-filter, epg-cancel): * epa.el (epa--marked-keys, epa--select-keys, epa-display-info) (epa--read-signature-type): * emerge.el (emerge-copy-as-kill-A, emerge-copy-as-kill-B) (emerge-file-names): * ehelp.el (electric-helpify): * ediff.el (ediff-regions-wordwise, ediff-regions-linewise): * ediff-vers.el (rcs-ediff-view-revision): * ediff-util.el (ediff-setup): * ediff-mult.el (ediff-append-custom-diff): * ediff-diff.el (ediff-exec-process, ediff-process-sentinel) (ediff-wordify): * echistory.el (Electric-command-history-redo-expression): * dos-w32.el (find-file-not-found-set-buffer-file-coding-system): * disp-table.el (describe-display-table): * dired.el (dired-find-buffer-nocreate): * dired-aux.el (dired-rename-subdir, dired-dwim-target-directory): * dabbrev.el (dabbrev--same-major-mode-p): * chistory.el (list-command-history): * apropos.el (apropos-documentation): * allout.el (allout-obtain-passphrase): (allout-copy-exposed-to-buffer): (allout-verify-passphrase): Use with-current-buffer.
2009-11-13 22:19:45 +00:00
(with-current-buffer (cdr (car blist))
(dired-internal-noselect): New arg MODE. If it's non-nil, switch to that nil. (dired-find-buffer-nocreate): New arg MODE.
1995-09-03 17:34:56 +00:00
(if (and (eq major-mode mode)
(dired-find-buffer-nocreate): Avoid error if dired-directory is nil.
2003-02-04 10:39:35 +00:00
dired-directory ;; nil during find-alternate-file
(dired-use-ls-dired): New variable. (dired-directory): Document the rules better. (dired-insert-headerline): Function deleted. (dired-revert): Pass no args to dired-readin. (dired-move-to-filename): First try using dired-filename property. (dired-move-to-end-of-filename): Likewise. (dired-why): Try to show the start of this page of warnings. (dired-log): Insert the buffer name at start of page, not end. (dired-log-summary): If just one failure, explain it in echo area. (dired-internal-noselect): Always set dired-directory, when buffer is not new. Pass dir-or-list, not dirname, to dired-mode. Call dired-readin with no args. Don't call dired-after-readin-hook here. (dired-find-buffer-nocreate): Expand dirname. Expand the dir from dired-directory to compare with dirname. (dired-readin): Take no args. Get the directory from dired-directory. Run dired-before-reading hook inside save-excursion. Run dired-after-readin-hook here. Don't make undo entries at all. Call dired-readin-insert with no args. Don't change indentation here. Don't insert headerline here. (dired-readin-insert): Take no args. Get dir and file-list from dired-directory. Call dired-insert-directory the new way. Don't insert "wildcard" info here. (dired-insert-directory): New arg FILE-LIST. First arg now DIR, always just the directory. This function fully handles setting up the buffer text: update indentation, insert headerline and "wildcard" info. Pass --dired arg if appropriate; put info in dired-filename props. Don't expand file names here.
2002-09-15 01:52:54 +00:00
(equal dirname
(expand-file-name
(if (consp dired-directory)
(car dired-directory)
dired-directory))))
(dired-find-buffer-nocreate): Ignore dead buffers.
1995-05-31 21:06:48 +00:00
(setq found (cdr (car blist))
blist nil)
(setq blist (cdr blist))))))
*** empty log message ***
1992-06-24 02:13:56 +00:00
found))
Revert last change.
2001-01-26 13:14:11 +00:00
*** empty log message ***
1992-06-24 02:13:56 +00:00
;; Read in a new dired buffer
(dired-use-ls-dired): New variable. (dired-directory): Document the rules better. (dired-insert-headerline): Function deleted. (dired-revert): Pass no args to dired-readin. (dired-move-to-filename): First try using dired-filename property. (dired-move-to-end-of-filename): Likewise. (dired-why): Try to show the start of this page of warnings. (dired-log): Insert the buffer name at start of page, not end. (dired-log-summary): If just one failure, explain it in echo area. (dired-internal-noselect): Always set dired-directory, when buffer is not new. Pass dir-or-list, not dirname, to dired-mode. Call dired-readin with no args. Don't call dired-after-readin-hook here. (dired-find-buffer-nocreate): Expand dirname. Expand the dir from dired-directory to compare with dirname. (dired-readin): Take no args. Get the directory from dired-directory. Run dired-before-reading hook inside save-excursion. Run dired-after-readin-hook here. Don't make undo entries at all. Call dired-readin-insert with no args. Don't change indentation here. Don't insert headerline here. (dired-readin-insert): Take no args. Get dir and file-list from dired-directory. Call dired-insert-directory the new way. Don't insert "wildcard" info here. (dired-insert-directory): New arg FILE-LIST. First arg now DIR, always just the directory. This function fully handles setting up the buffer text: update indentation, insert headerline and "wildcard" info. Pass --dired arg if appropriate; put info in dired-filename props. Don't expand file names here.
2002-09-15 01:52:54 +00:00
(defun dired-readin ()
(dired) <defgroup>: Add link to manual. (dired-font-lock-keywords): Ad highlighting on unusual permissions. (dired-revert): Use dolist. (dired-mode-map): Add U binding. (dired-mode): Add font-lock-beginning-of-syntax-function. (dired-garbage-files-regexp): Make it a defcustom.
2004-03-23 21:44:31 +00:00
"Read in a new dired buffer.
(dired-align-file): Don't assume line starts with spaces.
2004-11-22 05:07:07 +00:00
Differs from `dired-insert-subdir' in that it accepts
(dired) <defgroup>: Add link to manual. (dired-font-lock-keywords): Ad highlighting on unusual permissions. (dired-revert): Use dolist. (dired-mode-map): Add U binding. (dired-mode): Add font-lock-beginning-of-syntax-function. (dired-garbage-files-regexp): Make it a defcustom.
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)."
*** empty log message ***
1992-06-24 02:13:56 +00:00
;; default-directory and dired-actual-switches must be buffer-local
;; and initialized by now.
(dired-readin): Inhibit modification hooks.
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))
(dired-use-ls-dired): New variable. (dired-directory): Document the rules better. (dired-insert-headerline): Function deleted. (dired-revert): Pass no args to dired-readin. (dired-move-to-filename): First try using dired-filename property. (dired-move-to-end-of-filename): Likewise. (dired-why): Try to show the start of this page of warnings. (dired-log): Insert the buffer name at start of page, not end. (dired-log-summary): If just one failure, explain it in echo area. (dired-internal-noselect): Always set dired-directory, when buffer is not new. Pass dir-or-list, not dirname, to dired-mode. Call dired-readin with no args. Don't call dired-after-readin-hook here. (dired-find-buffer-nocreate): Expand dirname. Expand the dir from dired-directory to compare with dirname. (dired-readin): Take no args. Get the directory from dired-directory. Run dired-before-reading hook inside save-excursion. Run dired-after-readin-hook here. Don't make undo entries at all. Call dired-readin-insert with no args. Don't change indentation here. Don't insert headerline here. (dired-readin-insert): Take no args. Get dir and file-list from dired-directory. Call dired-insert-directory the new way. Don't insert "wildcard" info here. (dired-insert-directory): New arg FILE-LIST. First arg now DIR, always just the directory. This function fully handles setting up the buffer text: update indentation, insert headerline and "wildcard" info. Pass --dired arg if appropriate; put info in dired-filename props. Don't expand file names here.
2002-09-15 01:52:54 +00:00
(if (consp dired-directory)
(setq dirname (car dired-directory))
(setq dirname dired-directory))
dired-noselect, dired-internal-noselect, dired-insert-directory: Enhancements to support passing dired a DIRNAME argument consisting of a directory-name car and a list-of-files cdr. This is needed to support VC's augmented dired, which wants a filtered file display that recurses (showing all version-controlled files in subdirectories as well as the top-level ones).
1993-04-08 16:35:59 +00:00
(setq dirname (expand-file-name dirname))
(save-excursion
(dired-use-ls-dired): New variable. (dired-directory): Document the rules better. (dired-insert-headerline): Function deleted. (dired-revert): Pass no args to dired-readin. (dired-move-to-filename): First try using dired-filename property. (dired-move-to-end-of-filename): Likewise. (dired-why): Try to show the start of this page of warnings. (dired-log): Insert the buffer name at start of page, not end. (dired-log-summary): If just one failure, explain it in echo area. (dired-internal-noselect): Always set dired-directory, when buffer is not new. Pass dir-or-list, not dirname, to dired-mode. Call dired-readin with no args. Don't call dired-after-readin-hook here. (dired-find-buffer-nocreate): Expand dirname. Expand the dir from dired-directory to compare with dirname. (dired-readin): Take no args. Get the directory from dired-directory. Run dired-before-reading hook inside save-excursion. Run dired-after-readin-hook here. Don't make undo entries at all. Call dired-readin-insert with no args. Don't change indentation here. Don't insert headerline here. (dired-readin-insert): Take no args. Get dir and file-list from dired-directory. Call dired-insert-directory the new way. Don't insert "wildcard" info here. (dired-insert-directory): New arg FILE-LIST. First arg now DIR, always just the directory. This function fully handles setting up the buffer text: update indentation, insert headerline and "wildcard" info. Pass --dired arg if appropriate; put info in dired-filename props. Don't expand file names here.
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))
(dired-readin): Locally bind file-name-coding-system.
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)
(dired-use-ls-dired): New variable. (dired-directory): Document the rules better. (dired-insert-headerline): Function deleted. (dired-revert): Pass no args to dired-readin. (dired-move-to-filename): First try using dired-filename property. (dired-move-to-end-of-filename): Likewise. (dired-why): Try to show the start of this page of warnings. (dired-log): Insert the buffer name at start of page, not end. (dired-log-summary): If just one failure, explain it in echo area. (dired-internal-noselect): Always set dired-directory, when buffer is not new. Pass dir-or-list, not dirname, to dired-mode. Call dired-readin with no args. Don't call dired-after-readin-hook here. (dired-find-buffer-nocreate): Expand dirname. Expand the dir from dired-directory to compare with dirname. (dired-readin): Take no args. Get the directory from dired-directory. Run dired-before-reading hook inside save-excursion. Run dired-after-readin-hook here. Don't make undo entries at all. Call dired-readin-insert with no args. Don't change indentation here. Don't insert headerline here. (dired-readin-insert): Take no args. Get dir and file-list from dired-directory. Call dired-insert-directory the new way. Don't insert "wildcard" info here. (dired-insert-directory): New arg FILE-LIST. First arg now DIR, always just the directory. This function fully handles setting up the buffer text: update indentation, insert headerline and "wildcard" info. Pass --dired arg if appropriate; put info in dired-filename props. Don't expand file names here.
2002-09-15 01:52:54 +00:00
;; Don't make undo entries for readin.
(buffer-undo-list t))
dired-noselect, dired-internal-noselect, dired-insert-directory: Enhancements to support passing dired a DIRNAME argument consisting of a directory-name car and a list-of-files cdr. This is needed to support VC's augmented dired, which wants a filtered file display that recurses (showing all version-controlled files in subdirectories as well as the top-level ones).
1993-04-08 16:35:59 +00:00
(widen)
(erase-buffer)
(dired-use-ls-dired): New variable. (dired-directory): Document the rules better. (dired-insert-headerline): Function deleted. (dired-revert): Pass no args to dired-readin. (dired-move-to-filename): First try using dired-filename property. (dired-move-to-end-of-filename): Likewise. (dired-why): Try to show the start of this page of warnings. (dired-log): Insert the buffer name at start of page, not end. (dired-log-summary): If just one failure, explain it in echo area. (dired-internal-noselect): Always set dired-directory, when buffer is not new. Pass dir-or-list, not dirname, to dired-mode. Call dired-readin with no args. Don't call dired-after-readin-hook here. (dired-find-buffer-nocreate): Expand dirname. Expand the dir from dired-directory to compare with dirname. (dired-readin): Take no args. Get the directory from dired-directory. Run dired-before-reading hook inside save-excursion. Run dired-after-readin-hook here. Don't make undo entries at all. Call dired-readin-insert with no args. Don't change indentation here. Don't insert headerline here. (dired-readin-insert): Take no args. Get dir and file-list from dired-directory. Call dired-insert-directory the new way. Don't insert "wildcard" info here. (dired-insert-directory): New arg FILE-LIST. First arg now DIR, always just the directory. This function fully handles setting up the buffer text: update indentation, insert headerline and "wildcard" info. Pass --dired arg if appropriate; put info in dired-filename props. Don't expand file names here.
2002-09-15 01:52:54 +00:00
(dired-readin-insert))
(goto-char (point-min))
dired-noselect, dired-internal-noselect, dired-insert-directory: Enhancements to support passing dired a DIRNAME argument consisting of a directory-name car and a list-of-files cdr. This is needed to support VC's augmented dired, which wants a filtered file display that recurses (showing all version-controlled files in subdirectories as well as the top-level ones).
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)
(dired-readin): Clear modified flag at the very end.
1994-05-20 23:56:40 +00:00
(dired-build-subdir-alist)
(dired-readin): Record the directory's modtime. (dired-internal-noselect): Offer to revert if dir has changed.
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))))
(dired-use-ls-dired): New variable. (dired-directory): Document the rules better. (dired-insert-headerline): Function deleted. (dired-revert): Pass no args to dired-readin. (dired-move-to-filename): First try using dired-filename property. (dired-move-to-end-of-filename): Likewise. (dired-why): Try to show the start of this page of warnings. (dired-log): Insert the buffer name at start of page, not end. (dired-log-summary): If just one failure, explain it in echo area. (dired-internal-noselect): Always set dired-directory, when buffer is not new. Pass dir-or-list, not dirname, to dired-mode. Call dired-readin with no args. Don't call dired-after-readin-hook here. (dired-find-buffer-nocreate): Expand dirname. Expand the dir from dired-directory to compare with dirname. (dired-readin): Take no args. Get the directory from dired-directory. Run dired-before-reading hook inside save-excursion. Run dired-after-readin-hook here. Don't make undo entries at all. Call dired-readin-insert with no args. Don't change indentation here. Don't insert headerline here. (dired-readin-insert): Take no args. Get dir and file-list from dired-directory. Call dired-insert-directory the new way. Don't insert "wildcard" info here. (dired-insert-directory): New arg FILE-LIST. First arg now DIR, always just the directory. This function fully handles setting up the buffer text: update indentation, insert headerline and "wildcard" info. Pass --dired arg if appropriate; put info in dired-filename props. Don't expand file names here.
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))))
*** empty log message ***
1992-06-24 02:13:56 +00:00
;; Subroutines of dired-readin
(dired-use-ls-dired): New variable. (dired-directory): Document the rules better. (dired-insert-headerline): Function deleted. (dired-revert): Pass no args to dired-readin. (dired-move-to-filename): First try using dired-filename property. (dired-move-to-end-of-filename): Likewise. (dired-why): Try to show the start of this page of warnings. (dired-log): Insert the buffer name at start of page, not end. (dired-log-summary): If just one failure, explain it in echo area. (dired-internal-noselect): Always set dired-directory, when buffer is not new. Pass dir-or-list, not dirname, to dired-mode. Call dired-readin with no args. Don't call dired-after-readin-hook here. (dired-find-buffer-nocreate): Expand dirname. Expand the dir from dired-directory to compare with dirname. (dired-readin): Take no args. Get the directory from dired-directory. Run dired-before-reading hook inside save-excursion. Run dired-after-readin-hook here. Don't make undo entries at all. Call dired-readin-insert with no args. Don't change indentation here. Don't insert headerline here. (dired-readin-insert): Take no args. Get dir and file-list from dired-directory. Call dired-insert-directory the new way. Don't insert "wildcard" info here. (dired-insert-directory): New arg FILE-LIST. First arg now DIR, always just the directory. This function fully handles setting up the buffer text: update indentation, insert headerline and "wildcard" info. Pass --dired arg if appropriate; put info in dired-filename props. Don't expand file names here.
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))
(dired-readin-insert): Expand dired-directory.
2002-10-16 21:27:40 +00:00
(setq dir (expand-file-name dir))
(dired-use-ls-dired): New variable. (dired-directory): Document the rules better. (dired-insert-headerline): Function deleted. (dired-revert): Pass no args to dired-readin. (dired-move-to-filename): First try using dired-filename property. (dired-move-to-end-of-filename): Likewise. (dired-why): Try to show the start of this page of warnings. (dired-log): Insert the buffer name at start of page, not end. (dired-log-summary): If just one failure, explain it in echo area. (dired-internal-noselect): Always set dired-directory, when buffer is not new. Pass dir-or-list, not dirname, to dired-mode. Call dired-readin with no args. Don't call dired-after-readin-hook here. (dired-find-buffer-nocreate): Expand dirname. Expand the dir from dired-directory to compare with dirname. (dired-readin): Take no args. Get the directory from dired-directory. Run dired-before-reading hook inside save-excursion. Run dired-after-readin-hook here. Don't make undo entries at all. Call dired-readin-insert with no args. Don't change indentation here. Don't insert headerline here. (dired-readin-insert): Take no args. Get dir and file-list from dired-directory. Call dired-insert-directory the new way. Don't insert "wildcard" info here. (dired-insert-directory): New arg FILE-LIST. First arg now DIR, always just the directory. This function fully handles setting up the buffer text: update indentation, insert headerline and "wildcard" info. Pass --dired arg if appropriate; put info in dired-filename props. Don't expand file names here.
2002-09-15 01:52:54 +00:00
(if (and (equal "" (file-name-nondirectory dir))
(not file-list))
(dired-readin-insert): If we got a list of files, pass nil for WILDCARD arg to dired-insert-directory. (dired-readin-insert): Don't use the "whole directory" case if DIR-OR-LIST is a list.
1993-07-26 05:56:43 +00:00
;; If we are reading a whole single directory...
(dired-use-ls-dired): New variable. (dired-directory): Document the rules better. (dired-insert-headerline): Function deleted. (dired-revert): Pass no args to dired-readin. (dired-move-to-filename): First try using dired-filename property. (dired-move-to-end-of-filename): Likewise. (dired-why): Try to show the start of this page of warnings. (dired-log): Insert the buffer name at start of page, not end. (dired-log-summary): If just one failure, explain it in echo area. (dired-internal-noselect): Always set dired-directory, when buffer is not new. Pass dir-or-list, not dirname, to dired-mode. Call dired-readin with no args. Don't call dired-after-readin-hook here. (dired-find-buffer-nocreate): Expand dirname. Expand the dir from dired-directory to compare with dirname. (dired-readin): Take no args. Get the directory from dired-directory. Run dired-before-reading hook inside save-excursion. Run dired-after-readin-hook here. Don't make undo entries at all. Call dired-readin-insert with no args. Don't change indentation here. Don't insert headerline here. (dired-readin-insert): Take no args. Get dir and file-list from dired-directory. Call dired-insert-directory the new way. Don't insert "wildcard" info here. (dired-insert-directory): New arg FILE-LIST. First arg now DIR, always just the directory. This function fully handles setting up the buffer text: update indentation, insert headerline and "wildcard" info. Pass --dired arg if appropriate; put info in dired-filename props. Don't expand file names here.
2002-09-15 01:52:54 +00:00
(dired-insert-directory dir dired-actual-switches nil nil t)
dired-noselect, dired-internal-noselect, dired-insert-directory: Enhancements to support passing dired a DIRNAME argument consisting of a directory-name car and a list-of-files cdr. This is needed to support VC's augmented dired, which wants a filtered file display that recurses (showing all version-controlled files in subdirectories as well as the top-level ones).
1993-04-08 16:35:59 +00:00
(if (not (file-readable-p
(dired-use-ls-dired): New variable. (dired-directory): Document the rules better. (dired-insert-headerline): Function deleted. (dired-revert): Pass no args to dired-readin. (dired-move-to-filename): First try using dired-filename property. (dired-move-to-end-of-filename): Likewise. (dired-why): Try to show the start of this page of warnings. (dired-log): Insert the buffer name at start of page, not end. (dired-log-summary): If just one failure, explain it in echo area. (dired-internal-noselect): Always set dired-directory, when buffer is not new. Pass dir-or-list, not dirname, to dired-mode. Call dired-readin with no args. Don't call dired-after-readin-hook here. (dired-find-buffer-nocreate): Expand dirname. Expand the dir from dired-directory to compare with dirname. (dired-readin): Take no args. Get the directory from dired-directory. Run dired-before-reading hook inside save-excursion. Run dired-after-readin-hook here. Don't make undo entries at all. Call dired-readin-insert with no args. Don't change indentation here. Don't insert headerline here. (dired-readin-insert): Take no args. Get dir and file-list from dired-directory. Call dired-insert-directory the new way. Don't insert "wildcard" info here. (dired-insert-directory): New arg FILE-LIST. First arg now DIR, always just the directory. This function fully handles setting up the buffer text: update indentation, insert headerline and "wildcard" info. Pass --dired arg if appropriate; put info in dired-filename props. Don't expand file names here.
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)))))
(dired-view-command-alist): Use more efficient regexps. Remove dubious args. (dired-align-file): New function. (dired-insert-directory): Use it. (dired-move-to-end-of-filename): Make the " -> " search more specific. (dired-buffers-for-dir): Remove unused var `pattern'.
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.
;;
* files.el (directory-listing-before-filename-regexp): New defvar. Replaces `dired-move-to-filename-regexp' from dired.el. * dired.el (dired-move-to-filename-regexp): Removed. All occurences replaced by `directory-listing-before-filename-regexp'. * dired-x.el, locate.el, vc.el: Replace `dired-move-to-filename-regexp' by `directory-listing-before-filename-regexp'. In vc.el it is overwritten locally; maybe this can be handled in files.el too. * net/ange-ftp.el (ange-ftp-date-regexp): Removed. All occurences replaced by `directory-listing-before-filename-regexp'. * faq.texi (Bugs and problems): Replace `dired-move-to-filename-regexp' by `directory-listing-before-filename-regexp'.
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).
(dired-view-command-alist): Use more efficient regexps. Remove dubious args. (dired-align-file): New function. (dired-insert-directory): Use it. (dired-move-to-end-of-filename): Make the " -> " search more specific. (dired-buffers-for-dir): Remove unused var `pattern'.
2004-09-29 03:14:30 +00:00
(save-excursion
(let (file file-col other other-col)
Fix typos in comments.
2009-10-04 02:11:57 +00:00
;; Check that there is indeed a file, and that there is anoter adjacent
(dired-view-command-alist): Use more efficient regexps. Remove dubious args. (dired-align-file): New function. (dired-insert-directory): Use it. (dired-move-to-end-of-filename): Make the " -> " search more specific. (dired-buffers-for-dir): Remove unused var `pattern'.
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)
(dired-align-file): Don't assume line starts with spaces.
2004-11-22 05:07:07 +00:00
(skip-chars-forward " ") ;Skip to the first field.
(dired-view-command-alist): Use more efficient regexps. Remove dubious args. (dired-align-file): New function. (dired-insert-directory): Use it. (dired-move-to-end-of-filename): Make the " -> " search more specific. (dired-buffers-for-dir): Remove unused var `pattern'.
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) " *" "[^ ]* *")
(dired-view-command-alist): Use more efficient regexps. Remove dubious args. (dired-align-file): New function. (dired-insert-directory): Use it. (dired-move-to-end-of-filename): Make the " -> " search more specific. (dired-buffers-for-dir): Remove unused var `pattern'.
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
(dired-align-file): Don't assume line starts with spaces.
2004-11-22 05:07:07 +00:00
(eq (dired-move-to-filename) (marker-position file)))
(dired-view-command-alist): Use more efficient regexps. Remove dubious args. (dired-align-file): New function. (dired-insert-directory): Use it. (dired-move-to-end-of-filename): Make the " -> " search more specific. (dired-buffers-for-dir): Remove unused var `pattern'.
2004-09-29 03:14:30 +00:00
;; Damn! We messed up: let's revert the change.
(dired-align-file): Don't assume line starts with spaces.
2004-11-22 05:07:07 +00:00
(delete-char (- spaces)))))
;; Now skip to next field.
(skip-chars-forward "^ ") (skip-chars-forward " "))
(dired-view-command-alist): Use more efficient regexps. Remove dubious args. (dired-align-file): New function. (dired-insert-directory): Use it. (dired-move-to-end-of-filename): Make the " -> " search more specific. (dired-buffers-for-dir): Remove unused var `pattern'.
2004-09-29 03:14:30 +00:00
(set-marker file nil)))))
(dired-align-file): Don't assume line starts with spaces.
2004-11-22 05:07:07 +00:00
(dired-view-command-alist): Use more efficient regexps. Remove dubious args. (dired-align-file): New function. (dired-insert-directory): Use it. (dired-move-to-end-of-filename): Make the " -> " search more specific. (dired-buffers-for-dir): Remove unused var `pattern'.
2004-09-29 03:14:30 +00:00
(dired-use-ls-dired): New variable. (dired-directory): Document the rules better. (dired-insert-headerline): Function deleted. (dired-revert): Pass no args to dired-readin. (dired-move-to-filename): First try using dired-filename property. (dired-move-to-end-of-filename): Likewise. (dired-why): Try to show the start of this page of warnings. (dired-log): Insert the buffer name at start of page, not end. (dired-log-summary): If just one failure, explain it in echo area. (dired-internal-noselect): Always set dired-directory, when buffer is not new. Pass dir-or-list, not dirname, to dired-mode. Call dired-readin with no args. Don't call dired-after-readin-hook here. (dired-find-buffer-nocreate): Expand dirname. Expand the dir from dired-directory to compare with dirname. (dired-readin): Take no args. Get the directory from dired-directory. Run dired-before-reading hook inside save-excursion. Run dired-after-readin-hook here. Don't make undo entries at all. Call dired-readin-insert with no args. Don't change indentation here. Don't insert headerline here. (dired-readin-insert): Take no args. Get dir and file-list from dired-directory. Call dired-insert-directory the new way. Don't insert "wildcard" info here. (dired-insert-directory): New arg FILE-LIST. First arg now DIR, always just the directory. This function fully handles setting up the buffer text: update indentation, insert headerline and "wildcard" info. Pass --dired arg if appropriate; put info in dired-filename props. Don't expand file names here.
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."
(dired-insert-directory): Quote certain chars with \. (dired-get-filename): Always unquote \ quoting.
1994-12-07 10:57:12 +00:00
(let ((opoint (point))
(dired-insert-directory): Force use of C locale.
1996-01-04 00:32:19 +00:00
(process-environment (copy-sequence process-environment))
(dired-insert-directory): Quote certain chars with \. (dired-get-filename): Always unquote \ quoting.
1994-12-07 10:57:12 +00:00
end)
Smarter initialization for dired-use-ls-dired (Bug#7546). * lisp/dired.el (dired-use-ls-dired): Set default to a special "unspecified" value. (dired-insert-directory): When called the first time, check whether "ls --dired" succeeds and set dired-use-ls-dired (Bug#7546).
2010-12-04 22:10:12 +00:00
(if (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'.
(setq dired-use-ls-dired
(eq (call-process insert-directory-program nil nil nil "--dired")
0))
dired-use-ls-dired)
(file-remote-p dir))
(dired-use-ls-dired): New variable. (dired-directory): Document the rules better. (dired-insert-headerline): Function deleted. (dired-revert): Pass no args to dired-readin. (dired-move-to-filename): First try using dired-filename property. (dired-move-to-end-of-filename): Likewise. (dired-why): Try to show the start of this page of warnings. (dired-log): Insert the buffer name at start of page, not end. (dired-log-summary): If just one failure, explain it in echo area. (dired-internal-noselect): Always set dired-directory, when buffer is not new. Pass dir-or-list, not dirname, to dired-mode. Call dired-readin with no args. Don't call dired-after-readin-hook here. (dired-find-buffer-nocreate): Expand dirname. Expand the dir from dired-directory to compare with dirname. (dired-readin): Take no args. Get the directory from dired-directory. Run dired-before-reading hook inside save-excursion. Run dired-after-readin-hook here. Don't make undo entries at all. Call dired-readin-insert with no args. Don't change indentation here. Don't insert headerline here. (dired-readin-insert): Take no args. Get dir and file-list from dired-directory. Call dired-insert-directory the new way. Don't insert "wildcard" info here. (dired-insert-directory): New arg FILE-LIST. First arg now DIR, always just the directory. This function fully handles setting up the buffer text: update indentation, insert headerline and "wildcard" info. Pass --dired arg if appropriate; put info in dired-filename props. Don't expand file names here.
2002-09-15 01:52:54 +00:00
(setq switches (concat "--dired " switches)))
(dired-insert-directory): Don't override the user's locale. (dired-standard-move-to-filename-regexp): Var deleted.
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,
* files.el (directory-listing-before-filename-regexp): New defvar. Replaces `dired-move-to-filename-regexp' from dired.el. * dired.el (dired-move-to-filename-regexp): Removed. All occurences replaced by `directory-listing-before-filename-regexp'. * dired-x.el, locate.el, vc.el: Replace `dired-move-to-filename-regexp' by `directory-listing-before-filename-regexp'. In vc.el it is overwritten locally; maybe this can be handled in files.el too. * net/ange-ftp.el (ange-ftp-date-regexp): Removed. All occurences replaced by `directory-listing-before-filename-regexp'. * faq.texi (Bugs and problems): Replace `dired-move-to-filename-regexp' by `directory-listing-before-filename-regexp'.
2005-10-23 12:17:28 +00:00
;; with the new value of `directory-listing-before-filename-regexp'.
(dired-use-ls-dired): New variable. (dired-directory): Document the rules better. (dired-insert-headerline): Function deleted. (dired-revert): Pass no args to dired-readin. (dired-move-to-filename): First try using dired-filename property. (dired-move-to-end-of-filename): Likewise. (dired-why): Try to show the start of this page of warnings. (dired-log): Insert the buffer name at start of page, not end. (dired-log-summary): If just one failure, explain it in echo area. (dired-internal-noselect): Always set dired-directory, when buffer is not new. Pass dir-or-list, not dirname, to dired-mode. Call dired-readin with no args. Don't call dired-after-readin-hook here. (dired-find-buffer-nocreate): Expand dirname. Expand the dir from dired-directory to compare with dirname. (dired-readin): Take no args. Get the directory from dired-directory. Run dired-before-reading hook inside save-excursion. Run dired-after-readin-hook here. Don't make undo entries at all. Call dired-readin-insert with no args. Don't change indentation here. Don't insert headerline here. (dired-readin-insert): Take no args. Get dir and file-list from dired-directory. Call dired-insert-directory the new way. Don't insert "wildcard" info here. (dired-insert-directory): New arg FILE-LIST. First arg now DIR, always just the directory. This function fully handles setting up the buffer text: update indentation, insert headerline and "wildcard" info. Pass --dired arg if appropriate; put info in dired-filename props. Don't expand file names here.
2002-09-15 01:52:54 +00:00
(if file-list
(dolist (f file-list)
(dired-view-command-alist): Use more efficient regexps. Remove dubious args. (dired-align-file): New function. (dired-insert-directory): Use it. (dired-move-to-end-of-filename): Make the " -> " search more specific. (dired-buffers-for-dir): Remove unused var `pattern'.
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))))
(dired-use-ls-dired): New variable. (dired-directory): Document the rules better. (dired-insert-headerline): Function deleted. (dired-revert): Pass no args to dired-readin. (dired-move-to-filename): First try using dired-filename property. (dired-move-to-end-of-filename): Likewise. (dired-why): Try to show the start of this page of warnings. (dired-log): Insert the buffer name at start of page, not end. (dired-log-summary): If just one failure, explain it in echo area. (dired-internal-noselect): Always set dired-directory, when buffer is not new. Pass dir-or-list, not dirname, to dired-mode. Call dired-readin with no args. Don't call dired-after-readin-hook here. (dired-find-buffer-nocreate): Expand dirname. Expand the dir from dired-directory to compare with dirname. (dired-readin): Take no args. Get the directory from dired-directory. Run dired-before-reading hook inside save-excursion. Run dired-after-readin-hook here. Don't make undo entries at all. Call dired-readin-insert with no args. Don't change indentation here. Don't insert headerline here. (dired-readin-insert): Take no args. Get dir and file-list from dired-directory. Call dired-insert-directory the new way. Don't insert "wildcard" info here. (dired-insert-directory): New arg FILE-LIST. First arg now DIR, always just the directory. This function fully handles setting up the buffer text: update indentation, insert headerline and "wildcard" info. Pass --dired arg if appropriate; put info in dired-filename props. Don't expand file names here.
2002-09-15 01:52:54 +00:00
(insert-directory dir switches wildcard (not wildcard)))
(dired-insert-directory): Quote certain chars with \. (dired-get-filename): Always unquote \ quoting.
1994-12-07 10:57:12 +00:00
;; Quote certain characters, unless ls quoted them for us.
Wrap filename character quoting code with save-excursion so following forms relying on point aren't broken.
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)
(dired-insert-directory): Preserve text properties when quoting.
2002-12-21 17:06:54 +00:00
(replace-match (apply #'propertize
"\\\\"
(text-properties-at (match-beginning 0)))
nil t))
Wrap filename character quoting code with save-excursion so following forms relying on point aren't broken.
1995-03-30 07:10:08 +00:00
(goto-char opoint)
(while (search-forward "\^m" end t)
(dired-insert-directory): Preserve text properties when quoting.
2002-12-21 17:06:54 +00:00
(replace-match (apply #'propertize
"\\015"
(text-properties-at (match-beginning 0)))
nil t))
Wrap filename character quoting code with save-excursion so following forms relying on point aren't broken.
1995-03-30 07:10:08 +00:00
(set-marker end nil)))
(dired-use-ls-dired): New variable. (dired-directory): Document the rules better. (dired-insert-headerline): Function deleted. (dired-revert): Pass no args to dired-readin. (dired-move-to-filename): First try using dired-filename property. (dired-move-to-end-of-filename): Likewise. (dired-why): Try to show the start of this page of warnings. (dired-log): Insert the buffer name at start of page, not end. (dired-log-summary): If just one failure, explain it in echo area. (dired-internal-noselect): Always set dired-directory, when buffer is not new. Pass dir-or-list, not dirname, to dired-mode. Call dired-readin with no args. Don't call dired-after-readin-hook here. (dired-find-buffer-nocreate): Expand dirname. Expand the dir from dired-directory to compare with dirname. (dired-readin): Take no args. Get the directory from dired-directory. Run dired-before-reading hook inside save-excursion. Run dired-after-readin-hook here. Don't make undo entries at all. Call dired-readin-insert with no args. Don't change indentation here. Don't insert headerline here. (dired-readin-insert): Take no args. Get dir and file-list from dired-directory. Call dired-insert-directory the new way. Don't insert "wildcard" info here. (dired-insert-directory): New arg FILE-LIST. First arg now DIR, always just the directory. This function fully handles setting up the buffer text: update indentation, insert headerline and "wildcard" info. Pass --dired arg if appropriate; put info in dired-filename props. Don't expand file names here.
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
(dired-insert-directory): When looking for existing indentation, goto OPOINT instead of beginning of buffer.
2002-10-12 23:33:06 +00:00
(goto-char opoint)
(dired-use-ls-dired): New variable. (dired-directory): Document the rules better. (dired-insert-headerline): Function deleted. (dired-revert): Pass no args to dired-readin. (dired-move-to-filename): First try using dired-filename property. (dired-move-to-end-of-filename): Likewise. (dired-why): Try to show the start of this page of warnings. (dired-log): Insert the buffer name at start of page, not end. (dired-log-summary): If just one failure, explain it in echo area. (dired-internal-noselect): Always set dired-directory, when buffer is not new. Pass dir-or-list, not dirname, to dired-mode. Call dired-readin with no args. Don't call dired-after-readin-hook here. (dired-find-buffer-nocreate): Expand dirname. Expand the dir from dired-directory to compare with dirname. (dired-readin): Take no args. Get the directory from dired-directory. Run dired-before-reading hook inside save-excursion. Run dired-after-readin-hook here. Don't make undo entries at all. Call dired-readin-insert with no args. Don't change indentation here. Don't insert headerline here. (dired-readin-insert): Take no args. Get dir and file-list from dired-directory. Call dired-insert-directory the new way. Don't insert "wildcard" info here. (dired-insert-directory): New arg FILE-LIST. First arg now DIR, always just the directory. This function fully handles setting up the buffer text: update indentation, insert headerline and "wildcard" info. Pass --dired arg if appropriate; put info in dired-filename props. Don't expand file names here.
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)
(dired-insert-directory): Don't assume Unix-style dir names.
2008-06-10 19:10:42 +00:00
(if (and (or hdr wildcard)
(not (and (looking-at "^ \\(.*\\):$")
(file-name-absolute-p (match-string 1)))))
(dired-use-ls-dired): New variable. (dired-directory): Document the rules better. (dired-insert-headerline): Function deleted. (dired-revert): Pass no args to dired-readin. (dired-move-to-filename): First try using dired-filename property. (dired-move-to-end-of-filename): Likewise. (dired-why): Try to show the start of this page of warnings. (dired-log): Insert the buffer name at start of page, not end. (dired-log-summary): If just one failure, explain it in echo area. (dired-internal-noselect): Always set dired-directory, when buffer is not new. Pass dir-or-list, not dirname, to dired-mode. Call dired-readin with no args. Don't call dired-after-readin-hook here. (dired-find-buffer-nocreate): Expand dirname. Expand the dir from dired-directory to compare with dirname. (dired-readin): Take no args. Get the directory from dired-directory. Run dired-before-reading hook inside save-excursion. Run dired-after-readin-hook here. Don't make undo entries at all. Call dired-readin-insert with no args. Don't change indentation here. Don't insert headerline here. (dired-readin-insert): Take no args. Get dir and file-list from dired-directory. Call dired-insert-directory the new way. Don't insert "wildcard" info here. (dired-insert-directory): New arg FILE-LIST. First arg now DIR, always just the directory. This function fully handles setting up the buffer text: update indentation, insert headerline and "wildcard" info. Pass --dired arg if appropriate; put info in dired-filename props. Don't expand file names here.
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")))))
*** empty log message ***
1992-06-24 02:13:56 +00:00
(dired-insert-directory): Add mouse-face properties. (dired-insert-set-properties): New subroutine.
1994-04-01 18:51:39 +00:00
(defun dired-insert-set-properties (beg end)
(dired) <defgroup>: Add link to manual. (dired-font-lock-keywords): Ad highlighting on unusual permissions. (dired-revert): Use dolist. (dired-mode-map): Add U binding. (dired-mode): Add font-lock-beginning-of-syntax-function. (dired-garbage-files-regexp): Make it a defcustom.
2004-03-23 21:44:31 +00:00
"Make the file names highlight when the mouse is on them."
(dired-insert-directory): Add mouse-face properties. (dired-insert-set-properties): New subroutine.
1994-04-01 18:51:39 +00:00
(save-excursion
(goto-char beg)
(while (< (point) end)
(dired-insert-set-properties): Catch errors. (dired-do-flagged-delete): New arg nomessage.
1995-07-31 23:13:54 +00:00
(condition-case nil
(if (dired-move-to-filename)
(dired-insert-set-properties): Add help-echo to mouse-highlighted text. (dired-mark-pop-up): Remove help-echo property from the file name.
2001-06-17 11:18:16 +00:00
(add-text-properties
(point)
(save-excursion
(dired-move-to-end-of-filename)
(point))
(dired-insert-set-properties): Fix invalid mouse-face property.
2001-07-16 10:54:22 +00:00
'(mouse-face highlight
(dired-insert-set-properties): Add new text property `dired-filename' to put on file names. (dired-mode-map): Bind `M-s f C-s' to `dired-isearch-filenames' and `M-s f M-C-s' to `dired-isearch-filenames-regexp'. Add menu items. (dired-mode): Add hook `dired-isearch-filenames-setup' to buffer-local `isearch-mode-hook'.
2008-07-29 14:42:07 +00:00
dired-filename t
(dired-insert-set-properties): Add help-echo to mouse-highlighted text. (dired-mark-pop-up): Remove help-echo property from the file name.
2001-06-17 11:18:16 +00:00
help-echo "mouse-2: visit this file in other window")))
(dired-insert-set-properties): Catch errors. (dired-do-flagged-delete): New arg nomessage.
1995-07-31 23:13:54 +00:00
(error nil))
(dired-insert-directory): Add mouse-face properties. (dired-insert-set-properties): New subroutine.
1994-04-01 18:51:39 +00:00
(forward-line 1))))
Revert last change.
2001-01-26 13:14:11 +00:00
*** empty log message ***
1992-06-24 02:13:56 +00:00
;; Reverting a dired buffer
Initial revision
1992-05-30 23:52:26 +00:00
(defun dired-revert (&optional arg noconfirm)
(dired) <defgroup>: Add link to manual. (dired-font-lock-keywords): Ad highlighting on unusual permissions. (dired-revert): Use dolist. (dired-mode-map): Add U binding. (dired-mode): Add font-lock-beginning-of-syntax-function. (dired-garbage-files-regexp): Make it a defcustom.
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.
(dired) <defgroup>: Add link to manual. (dired-font-lock-keywords): Ad highlighting on unusual permissions. (dired-revert): Use dolist. (dired-mode-map): Add U binding. (dired-mode): Add font-lock-beginning-of-syntax-function. (dired-garbage-files-regexp): Make it a defcustom.
2004-03-23 21:44:31 +00:00
Should not fail even on completely garbaged buffers.
Preserves old cursor, marks/flags, hidden-p."
*** empty log message ***
1992-06-24 02:13:56 +00:00
(widen) ; just in case user narrowed
(dired-revert): If buffer is marked unmodified before reverting, keep it marked unmodified. Adapt to new conventions for commenting out code. (dired-make-relative): Adapt to new conventions for commenting out code.
2004-06-11 22:38:52 +00:00
(let ((modflag (buffer-modified-p))
(dired-save-positions, dired-restore-positions): New funs. (dired-revert): Use them (bug#4880).
2009-11-12 22:37:58 +00:00
(positions (dired-save-positions))
*** empty log message ***
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))
*** empty log message ***
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)
* dired.el (dired-revert): If DIRED-DIRECTORY is a cons cell, call `dired-uncache' for every elemnt which is an absolute file name. * net/tramp.el (tramp-handle-dired-uncache): When DIR is not a directory, handle its directory component. (tramp-handle-file-remote-p): Let-bind `tramp-verbose' to 3; this function is called permanently and creates noise, otherwise. * net/tramp-imap.el (tramp-imap-handle-insert-directory): * net/tramp-smb.el (tramp-smb-handle-insert-directory): Handle the case, FILENAME is not in `default-directory'. (Bug#5478)
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))))
(dired-revert): Turn off dired-after-readin-hook around call to dired-readin.
2006-12-04 00:32:00 +00:00
;; Run dired-after-readin-hook just once, below.
*** empty log message ***
1992-06-24 02:13:56 +00:00
(let ((dired-after-readin-hook nil))
(dired-revert): Turn off dired-after-readin-hook around call to dired-readin.
2006-12-04 00:32:00 +00:00
(dired-readin)
*** empty log message ***
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
(dired-save-positions, dired-restore-positions): New funs. (dired-revert): Use them (bug#4880).
2009-11-12 22:37:58 +00:00
(dired-restore-positions positions)
*** empty log message ***
1992-06-24 02:13:56 +00:00
(save-excursion ; hide subdirs that were hidden
(dired) <defgroup>: Add link to manual. (dired-font-lock-keywords): Ad highlighting on unusual permissions. (dired-revert): Use dolist. (dired-mode-map): Add U binding. (dired-mode): Add font-lock-beginning-of-syntax-function. (dired-garbage-files-regexp): Make it a defcustom.
2004-03-23 21:44:31 +00:00
(dolist (dir hidden-subdirs)
(if (dired-goto-subdir dir)
(dired-revert): If buffer is marked unmodified before reverting, keep it marked unmodified. Adapt to new conventions for commenting out code. (dired-make-relative): Adapt to new conventions for commenting out code.
2004-06-11 22:38:52 +00:00
(dired-hide-subdir 1))))
(unless modflag (restore-buffer-modified-p nil)))
*** empty log message ***
1992-06-24 02:13:56 +00:00
;; outside of the let scope
(dired-revert): If buffer is marked unmodified before reverting, keep it marked unmodified. Adapt to new conventions for commenting out code. (dired-make-relative): Adapt to new conventions for commenting out code.
2004-06-11 22:38:52 +00:00
;;; Might as well not override the user if the user changed this.
*** empty log message ***
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.
(dired-save-positions, dired-restore-positions): New funs. (dired-revert): Use them (bug#4880).
2009-11-12 22:37:58 +00:00
(defun dired-save-positions ()
Save and restore dired buffer's point positions too. (Bug#4880) (dired-save-positions): Return in the first element buffer's position in format (BUFFER DIRED-FILENAME BUFFER-POINT). Doc fix. (dired-restore-positions): First restore buffer's position. While restoring window's positions, check if window still displays the original buffer.
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.
* dired.el (dired-save-positions): Doc fix. (Bug#7119)
2010-09-27 23:41:00 +00:00
It has the form (BUFFER DIRED-FILENAME BUFFER-POINT).
Save and restore dired buffer's point positions too. (Bug#4880) (dired-save-positions): Return in the first element buffer's position in format (BUFFER DIRED-FILENAME BUFFER-POINT). Doc fix. (dired-restore-positions): First restore buffer's position. While restoring window's positions, check if window still displays the original buffer.
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))))
(dired-save-positions, dired-restore-positions): New funs. (dired-revert): Use them (bug#4880).
2009-11-12 22:37:58 +00:00
(defun dired-restore-positions (positions)
"Restore POSITIONS saved with `dired-save-positions'."
Save and restore dired buffer's point positions too. (Bug#4880) (dired-save-positions): Return in the first element buffer's position in format (BUFFER DIRED-FILENAME BUFFER-POINT). Doc fix. (dired-restore-positions): First restore buffer's position. While restoring window's positions, check if window still displays the original buffer.
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)))))))
(dired-save-positions, dired-restore-positions): New funs. (dired-revert): Use them (bug#4880).
2009-11-12 22:37:58 +00:00
*** empty log message ***
1992-06-24 02:13:56 +00:00
(defun dired-remember-marks (beg end)
(dired) <defgroup>: Add link to manual. (dired-font-lock-keywords): Ad highlighting on unusual permissions. (dired-revert): Use dolist. (dired-mode-map): Add U binding. (dired-mode): Add font-lock-beginning-of-syntax-function. (dired-garbage-files-regexp): Make it a defcustom.
2004-03-23 21:44:31 +00:00
"Return alist of files and their marks, from BEG to END."
*** empty log message ***
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))
*** empty log message ***
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)
(dired) <defgroup>: Add link to manual. (dired-font-lock-keywords): Ad highlighting on unusual permissions. (dired-revert): Use dolist. (dired-mode-map): Add U binding. (dired-mode): Add font-lock-beginning-of-syntax-function. (dired-garbage-files-regexp): Make it a defcustom.
2004-03-23 21:44:31 +00:00
"Mark all files remembered in ALIST.
Each element of ALIST looks like (FILE . MARKERCHAR)."
*** empty log message ***
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 ()
(dired) <defgroup>: Add link to manual. (dired-font-lock-keywords): Ad highlighting on unusual permissions. (dired-revert): Use dolist. (dired-mode-map): Add U binding. (dired-mode): Add font-lock-beginning-of-syntax-function. (dired-garbage-files-regexp): Make it a defcustom.
2004-03-23 21:44:31 +00:00
"Return a list of names of subdirs currently hidden."
*** empty log message ***
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")
*** empty log message ***
1992-07-21 22:40:10 +00:00
(if (eq (following-char) ?\r)
*** empty log message ***
1992-06-24 02:13:56 +00:00
(setq result (cons dir result))))
result))
(defun dired-insert-old-subdirs (old-subdir-alist)
(dired) <defgroup>: Add link to manual. (dired-font-lock-keywords): Ad highlighting on unusual permissions. (dired-revert): Use dolist. (dired-mode-map): Add U binding. (dired-mode): Add font-lock-beginning-of-syntax-function. (dired-garbage-files-regexp): Make it a defcustom.
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."
*** empty log message ***
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 ()
*** empty log message ***
1992-09-13 20:40:20 +00:00
(progn
(dired-uncache dir)
(dired-insert-old-subdirs): Adapt to fact that the R switch is no longer stored in `dired-switches-alist'.
2004-06-10 19:10:09 +00:00
(dired-insert-subdir dir))
*** empty log message ***
1992-06-24 02:13:56 +00:00
(error nil))))))
*** empty log message ***
1992-09-13 20:40:20 +00:00
(defun dired-uncache (dir)
(dired) <defgroup>: Add link to manual. (dired-font-lock-keywords): Ad highlighting on unusual permissions. (dired-revert): Use dolist. (dired-mode-map): Add U binding. (dired-mode): Add font-lock-beginning-of-syntax-function. (dired-garbage-files-regexp): Make it a defcustom.
2004-03-23 21:44:31 +00:00
"Remove directory DIR from any directory cache."
Pass operation to find-file-name-handler.
1994-04-22 23:59:24 +00:00
(let ((handler (find-file-name-handler dir 'dired-uncache)))
*** empty log message ***
1992-09-13 20:40:20 +00:00
(if handler
(funcall handler 'dired-uncache dir))))
Revert last change.
2001-01-26 13:14:11 +00:00
*** empty log message ***
1992-06-24 02:13:56 +00:00
;; dired mode key bindings and initialization
Initial revision
1992-05-30 23:52:26 +00:00
(dired) <defgroup>: Add link to manual. (dired-font-lock-keywords): Ad highlighting on unusual permissions. (dired-revert): Use dolist. (dired-mode-map): Add U binding. (dired-mode): Add font-lock-beginning-of-syntax-function. (dired-garbage-files-regexp): Make it a defcustom.
2004-03-23 21:44:31 +00:00
(defvar dired-mode-map
*** empty log message ***
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)
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(let ((map (make-keymap)))
(suppress-keymap map)
(define-key map [mouse-2] 'dired-mouse-find-file-other-window)
(dired-mode-map): Map follow-link to mouse-face.
2004-12-17 15:18:02 +00:00
(define-key map [follow-link] 'mouse-face)
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
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)
(dired-mode-map): Use dired-do-query-replace-regexp.
2000-05-16 14:32:33 +00:00
(define-key map "Q" 'dired-do-query-replace-regexp)
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map "R" 'dired-do-rename)
(define-key map "S" 'dired-do-symlink)
Add autoload for `dired-do-touch'. (dired-touch-program): New var. (dired-mode-map): Bind `dired-do-touch' to T and add menu-item. (dired-no-confirm): Add `touch' to docstring.
2004-03-31 16:29:46 +00:00
(define-key map "T" 'dired-do-touch)
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
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)
(dired-mode-map): Rebind `dired-flag-garbage-files' from `&' to `%&'. Bind `&' to `dired-do-async-shell-command'.
2008-07-29 16:37:31 +00:00
(define-key map "&" 'dired-do-async-shell-command)
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
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)
(dired-mark-files-containing-regexp): New command. (dired-mode-map): Bind it to %g and in menu bar.
1998-05-24 00:55:39 +00:00
(define-key map "%g" 'dired-mark-files-containing-regexp)
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
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)
(dired-mode-map): Rebind `dired-flag-garbage-files' from `&' to `%&'. Bind `&' to `dired-do-async-shell-command'.
2008-07-29 16:37:31 +00:00
(define-key map "%&" 'dired-flag-garbage-files)
(dired-mode-map): Make * a prefix for mark commands. Delete the old *, / and @ keybindings.
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)
(dired-mode-map): Put dired-mark-subdir-files on *s.
1996-11-04 23:51:33 +00:00
(define-key map "*s" 'dired-mark-subdir-files)
(dired-mode-map): Make * a prefix for mark commands. Delete the old *, / and @ keybindings.
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)
(dired-unmark-all-marks): Renamed from dired-unmark-all-files-no-query.
1997-06-07 19:31:24 +00:00
(define-key map "*!" 'dired-unmark-all-marks)
(dired) <defgroup>: Add link to manual. (dired-font-lock-keywords): Ad highlighting on unusual permissions. (dired-revert): Use dolist. (dired-mode-map): Add U binding. (dired-mode): Add font-lock-beginning-of-syntax-function. (dired-garbage-files-regexp): Make it a defcustom.
2004-03-23 21:44:31 +00:00
(define-key map "U" 'dired-unmark-all-marks)
(dired-mode-map): Make * a prefix for mark commands. Delete the old *, / and @ keybindings.
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)
(dired-toggle-marks): Renamed from dired-do-toggle. Bindings changed.
2002-03-28 18:32:59 +00:00
(define-key map "*t" 'dired-toggle-marks)
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
;; Lower keys for commands not operating on all the marked files
(dired-find-alternate-file): New function. (dired-mode-map): Bind `a' to dired-find-alternate-file. (toplevel): Require dired-aux when compiling. (dired-buffers): Move defvar within file to avoid compiler warning.
2000-07-07 13:00:21 +00:00
(define-key map "a" 'dired-find-alternate-file)
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
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)
* keymap.c (QCadvertised_binding): New constant. (syms_of_keymap): Initialize it. (Fwhere_is_internal): Try and use bindings from :advertised-binding if applicable. * progmodes/xscheme.el (xscheme-evaluation-commands): Put a :advertised-binding property rather than using advertised-xscheme-send-previous-expression. (advertised-xscheme-send-previous-expression): Declare obsolete. * emulation/crisp.el (crisp-mode-map): Use `undo' rather than `advertised-undo'. (crisp-mode): Add corresponding bindings to undo's :advertised-binding instead. * dired.el (dired-mode-map): Put a :advertised-binding property rather than using dired-advertised-find-file. (dired-advertised-find-file): * simple.el (advertised-undo): * wid-edit.el (advertised-widget-backward): Declare obsolete. (widget-keymap): Put a :advertised-binding property rather than using advertised-widget-backward. * bindings.el (ctl-x-map): Put a :advertised-binding property rather than using advertised-undo. * tutorial.el (tutorial--default-keys): Adjust accordingly.
2009-09-11 00:58:59 +00:00
(define-key map "\C-m" 'dired-find-file)
(put 'dired-find-file :advertised-binding "\C-m")
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map "g" 'revert-buffer)
(define-key map "h" 'describe-mode)
(define-key map "i" 'dired-maybe-insert-subdir)
(dired-mode-map): Put dired-goto-file on j, not M-g. (dired-goto-file): Doc fix.
2006-05-21 00:22:46 +00:00
(define-key map "j" 'dired-goto-file)
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
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)
(dired-quit): Function deleted. (dired-mode-map): Use quit-window for q.
1998-03-08 00:20:56 +00:00
(define-key map "q" 'quit-window)
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map "s" 'dired-sort-toggle-or-edit)
(dired-toggle-marks): Renamed from dired-do-toggle. Bindings changed.
2002-03-28 18:32:59 +00:00
(define-key map "t" 'dired-toggle-marks)
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map "u" 'dired-unmark)
(define-key map "v" 'dired-view-file)
(dired-copy-filename-as-kill): Moved from dired-x.el. (dired-mode-map): Bind w to dired-copy-filename-as-kill.
2001-12-17 01:58:05 +00:00
(define-key map "w" 'dired-copy-filename-as-kill)
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map "x" 'dired-do-flagged-delete)
(dired-mode-map): Bind `y' to dired-show-file-type instread of `w' which is already in use.
2001-08-28 09:12:52 +00:00
(define-key map "y" 'dired-show-file-type)
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
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)
* dired.el (dired-mode-map): Use command remapping (bug#6632).
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)
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
;; hiding
(define-key map "$" 'dired-hide-subdir)
(define-key map "\M-$" 'dired-hide-all)
(dired-mode-map): Bind dired-do-isearch to `M-s a C-s' and dired-do-isearch-regexp to `M-s a M-C-s'. Add menu items.
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)
(dired-insert-set-properties): Add new text property `dired-filename' to put on file names. (dired-mode-map): Bind `M-s f C-s' to `dired-isearch-filenames' and `M-s f M-C-s' to `dired-isearch-filenames-regexp'. Add menu items. (dired-mode): Add hook `dired-isearch-filenames-setup' to buffer-local `isearch-mode-hook'.
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)
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
;; misc
* dired.el (dired-mode-map): Use command remapping (bug#6632).
2010-07-22 11:54:27 +00:00
(define-key map [remap toggle-read-only] 'dired-toggle-read-only)
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map "?" 'dired-summary)
(define-key map "\177" 'dired-unmark-backward)
(dired-mode-map): Remap `undo' and `advertised-undo' instead of rebinding C-x u and C-_.
2005-01-29 17:28:48 +00:00
(define-key map [remap undo] 'dired-undo)
(define-key map [remap advertised-undo] 'dired-undo)
Rename "thumbnails" to "image-dired".
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)
* dired.el (dired-mode-map): Rebind "\C-t\C-t" from `image-dired-dired-insert-marked-thumbs' to `image-dired-dired-toggle-marked-thumbs'. * image-dired.el: Require cl when compiling. (image-dired-dired-toggle-marked-thumbs): Rename from `image-dired-dired-insert-marked-thumbs'. Add ARG. Doc fix. Use interactive spec "P". Set LOCALP arg of `dired-get-filename' to 'no-dir. Skip files whose names don't match `image-file-name-regexp'. When file has a thumbnail overlay, delete it. (Bug#5270)
2010-05-25 17:43:58 +00:00
(define-key map "\C-t\C-t" 'image-dired-dired-toggle-marked-thumbs)
Rename "thumbnails" to "image-dired".
2007-04-22 13:40:00 +00:00
(define-key map "\C-te" 'image-dired-dired-edit-comment-and-tags)
* epa-file.el (auto-encryption-mode): Rename from epa-file-mode. (epa-file-handler): Put 'safe-magic and 'operations properties. * epa.el (epa-global-minor-modes, epa-mode, epa-menu) (epa-menu-items): Remove. * epa-dired.el (epa-dired-do-decrypt, epa-dired-do-verify) (epa-dired-do-sign, epa-dired-do-encrypt): Add autoload cookie. (epa-dired-mode, epa-global-dired-mode): Remove. * dired.el (dired-mode-map): Bind encryption/decryption commands. * menu-bar.el (menu-bar-encryption-decryption-menu): New menu item. * files.el (insert-file-contents-literally): Inhibit epa-file-handler.
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)
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
;; Make menu bar items.
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
;; No need to fo this, now that top-level items are fewer.
;;;;
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
;; Get rid of the Edit menu bar item to save space.
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
;(define-key map [menu-bar edit] 'undefined)
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
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]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
'(menu-item "Hide All" dired-hide-all
:help "Hide all subdirectories, leave only header lines"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar subdir hide-subdir]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
'(menu-item "Hide/UnHide Subdir" dired-hide-subdir
:help "Hide or unhide current directory listing"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar subdir tree-down]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
'(menu-item "Tree Down" dired-tree-down
:help "Go to first subdirectory header down the tree"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar subdir tree-up]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
'(menu-item "Tree Up" dired-tree-up
:help "Go to first subdirectory header up the tree"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar subdir up]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
'(menu-item "Up Directory" dired-up-directory
:help "Edit the parent directory"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar subdir prev-subdir]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
'(menu-item "Prev Subdir" dired-prev-subdir
:help "Go to previous subdirectory header line"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar subdir next-subdir]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
'(menu-item "Next Subdir" dired-next-subdir
:help "Go to next subdirectory header line"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar subdir prev-dirline]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
'(menu-item "Prev Dirline" dired-prev-dirline
:help "Move to next directory-file line"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar subdir next-dirline]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
'(menu-item "Next Dirline" dired-next-dirline
:help "Move to previous directory-file line"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar subdir insert]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
'(menu-item "Insert This Subdir" dired-maybe-insert-subdir
* dired-aux.el (dired-query): Place cursor in echo area and allow C-g. * dired.el (dired-mode-map): Disable dired-maybe-insert-subdir menu item if not on a directory (Bug#4701).
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)))))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar immediate]
(cons "Immediate" (make-sparse-keymap "Immediate")))
(dired-mode-map): Fix breakage.
2006-05-24 21:42:14 +00:00
(define-key map
Rename "thumbnails" to "image-dired".
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
* dired.el (dired-mode-map): Add help-echo strings to tumme commands. * dired.el (dired-mode-map): Bind `tumme-dired-display-image' to C-t i.
2006-05-25 15:11:10 +00:00
:help "Display image in external viewer"))
(dired-mode-map): Fix breakage.
2006-05-24 21:42:14 +00:00
(define-key map
Rename "thumbnails" to "image-dired".
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
* dired.el (dired-mode-map): Add help-echo strings to tumme commands. * dired.el (dired-mode-map): Bind `tumme-dired-display-image' to C-t i.
2006-05-25 15:11:10 +00:00
:help "Display sized image in a separate window"))
(dired-mode-map): `tumme-display-dired-image' was renamed in tumme.el, but there was still a key binding to it here. Changed the binding to the new name.
2006-05-25 12:09:01 +00:00
(dired-mode-map): Move tumme commands to Operate, Regexp and Immediate menus. Change "Add Comment" to "Add Image Comment". Change "Add Image Tag" to "Add Image Tags".
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]
'("--"))
(dired-mode-map): Fix breakage.
2006-05-24 21:42:14 +00:00
(dired-insert-set-properties): Add new text property `dired-filename' to put on file names. (dired-mode-map): Bind `M-s f C-s' to `dired-isearch-filenames' and `M-s f M-C-s' to `dired-isearch-filenames-regexp'. Add menu items. (dired-mode): Add hook `dired-isearch-filenames-setup' to buffer-local `isearch-mode-hook'.
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."))
(dired-mode-map): Add menu item "Compare directories" for dired-compare-directories.
2005-03-24 19:47:20 +00:00
(define-key map [menu-bar immediate compare-directories]
* dired.el (dired-mode-map): Change `tumme-tag-remove' to `tumme-delete-tag'. Rename `Remove Image Tag' to `Delete Image Tag'. Change "Compare directories..." to "Change Directories...". * dired.el (dired-mode-map): Move tumme commands to Operate, Regexp and Immediate menus. Change "Add Comment" to "Add Image Comment". Change "Add Image Tag" to "Add Image Tags".
2006-05-26 23:27:55 +00:00
'(menu-item "Compare Directories..." dired-compare-directories
(dired-mode-map): Add menu item "Compare directories" for dired-compare-directories.
2005-03-24 19:47:20 +00:00
:help "Mark files with different attributes in two dired buffers"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar immediate backup-diff]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
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"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar immediate diff]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
'(menu-item "Diff..." dired-diff
:help "Compare file at cursor with another file"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar immediate view]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
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"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar immediate display]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
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"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar immediate find-file-other-window]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
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"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar immediate find-file]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
'(menu-item "Find This File" dired-find-file
:help "Edit file at cursor"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar immediate create-directory]
(dired-mode-map): Add :help.
2008-04-30 05:41:52 +00:00
'(menu-item "Create Directory..." dired-create-directory
:help "Create a directory"))
(dired-mode-map): Add a menu entry for wdired.
2004-04-23 22:13:32 +00:00
(define-key map [menu-bar immediate wdired-mode]
(dired-mode-map): Bind C-x C-q to dired-toggle-read-only. Filter out menu item "Edit File Names" `wdired-change-to-wdired-mode' when major-mode is not dired-mode. (dired-toggle-read-only): New function. (dired-recursive-deletes): Remove obsolete comments about old default value. (dired-do-flagged-delete, dired-do-delete): Refill docstring.
2007-07-29 09:18:15 +00:00
'(menu-item "Edit File Names" wdired-change-to-wdired-mode
(dired-mode-map): Add :help.
2008-04-30 05:41:52 +00:00
:help "Put a dired buffer in a mode in which filenames are editable"
* dired.el (dired-mode-map): Show the key binding for wdired. * menu-bar.el (menu-bar-file-menu): Show the key binding for exiting emacs.
2008-07-23 05:58:24 +00:00
:keys "C-x C-q"
(dired-mode-map): Bind C-x C-q to dired-toggle-read-only. Filter out menu item "Edit File Names" `wdired-change-to-wdired-mode' when major-mode is not dired-mode. (dired-toggle-read-only): New function. (dired-recursive-deletes): Remove obsolete comments about old default value. (dired-do-flagged-delete, dired-do-delete): Refill docstring.
2007-07-29 09:18:15 +00:00
:filter (lambda (x) (if (eq major-mode 'dired-mode) x))))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar regexp]
(cons "Regexp" (make-sparse-keymap "Regexp")))
(dired-mode-map): Move tumme commands to Operate, Regexp and Immediate menus. Change "Add Comment" to "Add Image Comment". Change "Add Image Tag" to "Add Image Tags".
2006-05-26 22:07:04 +00:00
(define-key map
Rename "thumbnails" to "image-dired".
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
(dired-recursive-deletes, dired-recursive-copies): Doc fixes.
2007-05-16 10:51:25 +00:00
:help "Mark files whose image tags matches regexp"))
(dired-mode-map): Move tumme commands to Operate, Regexp and Immediate menus. Change "Add Comment" to "Add Image Comment". Change "Add Image Tag" to "Add Image Tags".
2006-05-26 22:07:04 +00:00
(define-key map [menu-bar regexp dashes-1]
(dired-recursive-deletes, dired-recursive-copies): Doc fixes.
2007-05-16 10:51:25 +00:00
'("--"))
(dired-mode-map): Move tumme commands to Operate, Regexp and Immediate menus. Change "Add Comment" to "Add Image Comment". Change "Add Image Tag" to "Add Image Tags".
2006-05-26 22:07:04 +00:00
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar regexp downcase]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
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"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar regexp upcase]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
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"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar regexp hardlink]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
'(menu-item "Hardlink..." dired-do-hardlink-regexp
:help "Make hard links for files matching regexp"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar regexp symlink]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
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"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar regexp rename]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
'(menu-item "Rename..." dired-do-rename-regexp
:help "Rename marked files matching regexp"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar regexp copy]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
'(menu-item "Copy..." dired-do-copy-regexp
:help "Copy marked files matching regexp"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar regexp flag]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
'(menu-item "Flag..." dired-flag-files-regexp
:help "Flag files matching regexp for deletion"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar regexp mark]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
'(menu-item "Mark..." dired-mark-files-regexp
:help "Mark files matching regexp for future operations"))
(dired-mode-map): Fix duplicate [menu-bar regexp mark].
1999-01-07 19:40:25 +00:00
(define-key map [menu-bar regexp mark-cont]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
'(menu-item "Mark Containing..." dired-mark-files-containing-regexp
:help "Mark files whose contents matches regexp"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
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]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
'(menu-item "Previous Marked" dired-prev-marked-file
:help "Move to previous marked file"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar mark next]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
'(menu-item "Next Marked" dired-next-marked-file
:help "Move to next marked file"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar mark marks]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
'(menu-item "Change Marks..." dired-change-marks
:help "Replace marker with another character"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar mark unmark-all]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
'(menu-item "Unmark All" dired-unmark-all-marks))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar mark symlinks]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
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"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar mark directories]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
'(menu-item "Mark Directories" dired-mark-directories
:help "Mark all directories except `.' and `..'"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar mark directory]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
'(menu-item "Mark Old Backups" dired-clean-directory
:help "Flag old numbered backups for deletion"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar mark executables]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
'(menu-item "Mark Executables" dired-mark-executables
:help "Mark all executable files"))
(dired-garbage-files-regexp): New variable. (dired-flag-garbage-files): New command. (dired-mode-map): Put dired-flag-garbage-files on & and in menu.
1997-01-04 00:10:30 +00:00
(define-key map [menu-bar mark garbage-files]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
'(menu-item "Flag Garbage Files" dired-flag-garbage-files
:help "Flag unneeded files for deletion"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar mark backup-files]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
'(menu-item "Flag Backup Files" dired-flag-backup-files
:help "Flag all backup files for deletion"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar mark auto-save-files]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
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"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar mark deletion]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
'(menu-item "Flag" dired-flag-file-deletion
:help "Flag current line's file for deletion"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar mark unmark]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
'(menu-item "Unmark" dired-unmark
:help "Unmark or unflag current line's file"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar mark mark]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
'(menu-item "Mark" dired-mark
:help "Mark current line's file for future operations"))
(dired-do-toggle): Moved here from dired-x.el. (dired-mode-map): Changed dired-do-toggle from "T" to "t".
1998-02-27 21:45:01 +00:00
(define-key map [menu-bar mark toggle-marks]
(dired-toggle-marks): Renamed from dired-do-toggle. Bindings changed.
2002-03-28 18:32:59 +00:00
'(menu-item "Toggle Marks" dired-toggle-marks
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
:help "Mark unmarked files, unmark marked ones"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar operate]
(cons "Operate" (make-sparse-keymap "Operate")))
(dired-mode-map): Move tumme commands to Operate, Regexp and Immediate menus. Change "Add Comment" to "Add Image Comment". Change "Add Image Tag" to "Add Image Tags".
2006-05-26 22:07:04 +00:00
(define-key map
Rename "thumbnails" to "image-dired".
2007-04-22 13:40:00 +00:00
[menu-bar operate image-dired-delete-tag]
'(menu-item "Delete Image Tag..." image-dired-delete-tag
* dired.el (dired-mode-map): Change `tumme-tag-remove' to `tumme-delete-tag'. Rename `Remove Image Tag' to `Delete Image Tag'. * dired.el (dired-mode-map): Move tumme commands to Operate, Regexp and Immediate menus. Change "Add Comment" to "Add Image Comment". Change "Add Image Tag" to "Add Image Tags".
2006-05-26 22:33:53 +00:00
:help "Delete image tag from current or marked files"))
(dired-mode-map): Move tumme commands to Operate, Regexp and Immediate menus. Change "Add Comment" to "Add Image Comment". Change "Add Image Tag" to "Add Image Tags".
2006-05-26 22:07:04 +00:00
(define-key map
Rename "thumbnails" to "image-dired".
2007-04-22 13:40:00 +00:00
[menu-bar operate image-dired-tag-files]
'(menu-item "Add Image Tags..." image-dired-tag-files
(dired-mode-map): Move tumme commands to Operate, Regexp and Immediate menus. Change "Add Comment" to "Add Image Comment". Change "Add Image Tag" to "Add Image Tags".
2006-05-26 22:07:04 +00:00
:help "Add image tags to current or marked files"))
(define-key map
Rename "thumbnails" to "image-dired".
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
(dired-mode-map): Move tumme commands to Operate, Regexp and Immediate menus. Change "Add Comment" to "Add Image Comment". Change "Add Image Tag" to "Add Image Tags".
2006-05-26 22:07:04 +00:00
:help "Add image comment to current or marked files"))
(define-key map
Rename "thumbnails" to "image-dired".
2007-04-22 13:40:00 +00:00
[menu-bar operate image-dired-display-thumbs]
(dired-mode-map): Fix menu text of 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"))
(dired-recursive-deletes, dired-recursive-copies): Doc fixes.
2007-05-16 10:51:25 +00:00
* dired.el (dired-mode-map): Move encryption items to "Operate" menu (Bug#4703).
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"))
(dired-mode-map): Move tumme commands to Operate, Regexp and Immediate menus. Change "Add Comment" to "Add Image Comment". Change "Add Image Tag" to "Add Image Tags".
2006-05-26 22:07:04 +00:00
(define-key map [menu-bar operate dashes-3]
(dired-recursive-deletes, dired-recursive-copies): Doc fixes.
2007-05-16 10:51:25 +00:00
'("--"))
(dired-mode-map): Move tumme commands to Operate, Regexp and Immediate menus. Change "Add Comment" to "Add Image Comment". Change "Add Image Tag" to "Add Image Tags".
2006-05-26 22:07:04 +00:00
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar operate query-replace]
(dired-mode-map): Use dired-do-query-replace-regexp.
2000-05-16 14:32:33 +00:00
'(menu-item "Query Replace in Files..." dired-do-query-replace-regexp
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
:help "Replace regexp in marked files"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar operate search]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
'(menu-item "Search Files..." dired-do-search
:help "Search marked files for regexp"))
(dired-mode-map): Bind dired-do-isearch to `M-s a C-s' and dired-do-isearch-regexp to `M-s a M-C-s'. Add menu items.
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"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar operate chown]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
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"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar operate chgrp]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
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"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar operate chmod]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
'(menu-item "Change Mode..." dired-do-chmod
:help "Change mode (attributes) of marked files"))
Add autoload for `dired-do-touch'. (dired-touch-program): New var. (dired-mode-map): Bind `dired-do-touch' to T and add menu-item. (dired-no-confirm): Add `touch' to docstring.
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"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar operate load]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
'(menu-item "Load" dired-do-load
:help "Load marked Emacs Lisp files"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar operate compile]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
'(menu-item "Byte-compile" dired-do-byte-compile
:help "Byte-compile marked Emacs Lisp files"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar operate compress]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
'(menu-item "Compress" dired-do-compress
:help "Compress/uncompress marked files"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar operate print]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
'(menu-item "Print..." dired-do-print
:help "Ask for print command and print marked files"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar operate hardlink]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
'(menu-item "Hardlink to..." dired-do-hardlink
:help "Make hard links for current or marked files"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar operate symlink]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
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"))
(dired-mode-map): Add menu entry for async shell command.
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"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar operate command]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
'(menu-item "Shell Command..." dired-do-shell-command
(dired-mode-map): Add menu entry for async shell command.
2009-09-15 02:36:26 +00:00
:help "Run a shell command on current or marked files"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar operate delete]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
'(menu-item "Delete" dired-do-delete
:help "Delete current file or all marked files"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar operate rename]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
'(menu-item "Rename to..." dired-do-rename
:help "Rename current file or move marked files"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(define-key map [menu-bar operate copy]
(dired-mode-map): Don't remove "Edit" from the menu bar. Menu items converted to (menu-item format, help strings added. [downcase, upcase]: Don't enable on MS-DOS. [symlink, symlinks]: Don't show if make-symbolic-link is not bound. [chown, chgrp]: Don't show on MS-DOS and MS-Windows.
2000-02-24 12:59:48 +00:00
'(menu-item "Copy to..." dired-do-copy
:help "Copy current file or all marked files"))
(dired-mode-map): Set up the map completely before storing it into dired-mode-map.
1995-08-08 05:16:23 +00:00
(dired) <defgroup>: Add link to manual. (dired-font-lock-keywords): Ad highlighting on unusual permissions. (dired-revert): Use dolist. (dired-mode-map): Add U binding. (dired-mode): Add font-lock-beginning-of-syntax-function. (dired-garbage-files-regexp): Make it a defcustom.
2004-03-23 21:44:31 +00:00
map)
"Local keymap for `dired-mode' buffers.")
Revert last change.
2001-01-26 13:14:11 +00:00
Initial revision
1992-05-30 23:52:26 +00:00
;; Dired mode is suitable only for specially formatted data.
(put 'dired-mode 'mode-class 'special)
Add handler to desktop-buffer-mode-handlers. (dired-restore-desktop-buffer): Remove autoload cookie. (dired-mode): Add autoload cookie.
2005-08-10 19:39:16 +00:00
;; Autoload cookie needed by desktop.el
;;;###autoload
*** empty log message ***
1992-06-24 02:13:56 +00:00
(defun dired-mode (&optional dirname switches)
"\
Mode for \"editing\" directory listings.
Many trivial doc fixes. (dired-get-file-for-visit): New function. (dired-find-alternate-file, dired-mouse-find-file-other-window): (dired-view-file, dired-find-file-other-window, dired-display-file): (dired-find-file): Use dired-get-file-for-visit.
2001-11-12 17:05:13 +00:00
In Dired, you are \"editing\" a list of the files in a directory and
*** empty log message ***
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>
Letters no longer insert themselves. Digits are prefix arguments.
Instead, type \\[dired-flag-file-deletion] to flag a file for Deletion.
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.
Type \\[dired-unmark] to Unmark a file or all files of a subdirectory.
Type \\[dired-unmark-backward] to back up one line and unflag.
Type \\[dired-do-flagged-delete] to eXecute the deletions requested.
* keymap.c (QCadvertised_binding): New constant. (syms_of_keymap): Initialize it. (Fwhere_is_internal): Try and use bindings from :advertised-binding if applicable. * progmodes/xscheme.el (xscheme-evaluation-commands): Put a :advertised-binding property rather than using advertised-xscheme-send-previous-expression. (advertised-xscheme-send-previous-expression): Declare obsolete. * emulation/crisp.el (crisp-mode-map): Use `undo' rather than `advertised-undo'. (crisp-mode): Add corresponding bindings to undo's :advertised-binding instead. * dired.el (dired-mode-map): Put a :advertised-binding property rather than using dired-advertised-find-file. (dired-advertised-find-file): * simple.el (advertised-undo): * wid-edit.el (advertised-widget-backward): Declare obsolete. (widget-keymap): Put a :advertised-binding property rather than using advertised-widget-backward. * bindings.el (ctl-x-map): Put a :advertised-binding property rather than using advertised-undo. * tutorial.el (tutorial--default-keys): Adjust accordingly.
2009-09-11 00:58:59 +00:00
Type \\[dired-find-file] to Find the current line's file
*** empty log message ***
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.
*** empty log message ***
1992-06-24 02:13:56 +00:00
This retains all marks and hides subdirs again that were hidden before.
SPC and DEL can be used to move down and up by lines.
(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] \
*** empty log message ***
1992-06-24 02:13:56 +00:00
to read the
directories again, type \\[dired-do-redisplay] \
to relist a single or the marked files or a
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):
(dired-align-file): Don't assume line starts with spaces.
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'
*** empty log message ***
1992-06-24 02:13:56 +00:00
Hooks (use \\[describe-variable] to see their documentation):
(dired-align-file): Don't assume line starts with spaces.
2004-11-22 05:07:07 +00:00
`dired-before-readin-hook'
`dired-after-readin-hook'
`dired-mode-hook'
`dired-load-hook'
*** empty log message ***
1992-06-24 02:13:56 +00:00
Keybindings:
Initial revision
1992-05-30 23:52:26 +00:00
\\{dired-mode-map}"
*** empty log message ***
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).
Initial revision
1992-05-30 23:52:26 +00:00
(kill-all-local-variables)
(use-local-map dired-mode-map)
*** empty log message ***
1992-06-24 02:13:56 +00:00
(dired-advertise) ; default-directory is already set
(setq major-mode 'dired-mode
mode-name "Dired"
(dired-align-file): Don't assume line starts with spaces.
2004-11-22 05:07:07 +00:00
;; case-fold-search nil
*** empty log message ***
1992-06-24 02:13:56 +00:00
buffer-read-only t
selective-display t ; for subdirectory hiding
(dired-mode): Call propertized-buffer-identification to set mode-line-buffer-identification with text properties added.
2000-02-20 15:59:26 +00:00
mode-line-buffer-identification
(propertized-buffer-identification "%17b"))
*** empty log message ***
1992-06-24 02:13:56 +00:00
(set (make-local-variable 'revert-buffer-function)
(function dired-revert))
(dired-directory-changed-p, dired-buffer-stale-p): New functions. (dired-internal-noselect): Use dired-directory-changed-p. Eliminate revert messages. (dired-mode): Set buffer-stale-function to dired-buffer-stale-p.
2004-03-23 05:20:11 +00:00
(set (make-local-variable 'buffer-stale-function)
(function dired-buffer-stale-p))
*** empty log message ***
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.
* menu-bar.el (list-buffers-directory): Add docstring. Make automatically buffer-local. * dired.el (dired-mode): * files.el (cd-absolute): * pcvs.el (cvs-temp-buffer): * pcvs-util.el (cvs-get-buffer-create): * shell.el (shell-mode): * vc-dir.el (vc-dir-mode): Don't make `list-buffers-directory' buffer local.
2009-09-25 04:35:14 +00:00
(setq list-buffers-directory
(expand-file-name (if (listp dired-directory)
(car dired-directory)
dired-directory)))
*** empty log message ***
1992-06-24 02:13:56 +00:00
(set (make-local-variable 'dired-actual-switches)
(or switches dired-listing-switches))
(dired) <defgroup>: Add link to manual. (dired-font-lock-keywords): Ad highlighting on unusual permissions. (dired-revert): Use dolist. (dired-mode-map): Add U binding. (dired-mode): Add font-lock-beginning-of-syntax-function. (dired-garbage-files-regexp): Make it a defcustom.
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))
(dired-mode): Rename desktop-buffer-misc-data-function to desktop-save-buffer.
2004-04-26 18:56:23 +00:00
(set (make-local-variable 'desktop-save-buffer)
(dired-restore-desktop-buffer) Move from desktop.el. Add parameters. Pause to display error only when desktop-missing-file-warning is non-nil. (dired-desktop-buffer-misc-data): Move from desktop.el. Add parameter.
2004-04-21 20:52:18 +00:00
'dired-desktop-buffer-misc-data)
(dired-subdir-switches, dired-switches-alist): New vars. (dired-insert-old-subdirs): Do not repeatedly delete and reinsert subdirs if -R switch is used for a subdir. (dired-mode): Set `dired-switches-alist'. (dired-build-subdir-alist): Only print number of directories in echo area when invoked interactively.
2004-06-06 02:22:41 +00:00
(setq dired-switches-alist nil)
*** empty log message ***
1992-06-24 02:13:56 +00:00
(dired-sort-other dired-actual-switches t)
* dired.el (dired-mode): Use dnd-* instead of x-dnd-* (dired-dnd-handle-local-file): Call dnd-get-local-file-name. (dired-dnd-handle-file): Call dnd-get-local-file-uri
2005-04-11 19:28:07 +00:00
(when (featurep 'dnd)
(dired-mode): Simplify.
2005-05-17 17:23:36 +00:00
(set (make-local-variable 'dnd-protocol-alist)
(append dired-dnd-protocol-alist dnd-protocol-alist)))
Provide additional default values (file name at point or at the current Dired line) via M-n for file reading minibuffers. (Bug#5010) * minibuffer.el (read-file-name-defaults): New function. (read-file-name): Reset `minibuffer-default' to nil when it duplicates initial input `insdef'. Bind `minibuffer-default-add-function' to lambda that calls `read-file-name-defaults' in `minibuffer-selected-window'. (minibuffer-insert-file-name-at-point): New command. * files.el (file-name-at-point-functions): New defcustom. (find-file-default): Remove defvar. (find-file-read-args): Don't use `find-file-default'. Move `minibuffer-with-setup-hook' that sets `minibuffer-default' to `read-file-name'. (find-file-literally): Use `read-file-name' with `confirm-nonexistent-file-or-buffer'. * ffap.el (ffap-guess-file-name-at-point): New autoloaded function. * dired.el (dired-read-dir-and-switches): Move `minibuffer-with-setup-hook' that sets `minibuffer-default' to `read-file-name'. (dired-file-name-at-point): New function. (dired-mode): Add hook `dired-file-name-at-point' to `file-name-at-point-functions'.
2009-11-25 17:11:29 +00:00
(add-hook 'file-name-at-point-functions 'dired-file-name-at-point nil t)
(dired-insert-set-properties): Add new text property `dired-filename' to put on file names. (dired-mode-map): Bind `M-s f C-s' to `dired-isearch-filenames' and `M-s f M-C-s' to `dired-isearch-filenames-regexp'. Add menu items. (dired-mode): Add hook `dired-isearch-filenames-setup' to buffer-local `isearch-mode-hook'.
2008-07-29 14:42:07 +00:00
(add-hook 'isearch-mode-hook 'dired-isearch-filenames-setup nil t)
* dnd.el (dnd-protocol-alist): Improve custom type. * dired.el (dired-dnd-protocol-alist): New variable. (dired-mode): Use `dired-dnd-protocol-alist'. Move call of `dired-mode-hook' to the end.
2005-05-11 19:32:51 +00:00
(run-mode-hooks 'dired-mode-hook))
Revert last change.
2001-01-26 13:14:11 +00:00
Apply typo patches from Paul Eggert.
1993-06-09 11:59:12 +00:00
;; Idiosyncratic dired commands that don't deal with marks.
Initial revision
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."
Initial revision
1992-05-30 23:52:26 +00:00
(interactive)
*** empty log message ***
1992-06-24 02:13:56 +00:00
(dired-why)
Initial revision
1992-05-30 23:52:26 +00:00
;>> this should check the key-bindings and use substitute-command-keys if non-standard
(message
* dired.el (dired-summary): dired-do-rename is on "R", not "r".
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"))
Initial revision
1992-05-30 23:52:26 +00:00
*** empty log message ***
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.
(dired-undo): Call `dired-build-subdir-alist'. Limit scope of `buffer-read-only' binding.
2004-06-07 18:29:14 +00:00
You can use it to recover marks, killed lines or subdirs."
*** empty log message ***
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))
(dired-undo): Call `dired-build-subdir-alist'. Limit scope of `buffer-read-only' binding.
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.
(dired-undo): Call `dired-build-subdir-alist'. Limit scope of `buffer-read-only' binding.
2004-06-07 18:29:14 +00:00
Actual changes in files cannot be undone by Emacs."))
Initial revision
1992-05-30 23:52:26 +00:00
(dired-mode-map): Bind C-x C-q to dired-toggle-read-only. Filter out menu item "Edit File Names" `wdired-change-to-wdired-mode' when major-mode is not dired-mode. (dired-toggle-read-only): New function. (dired-recursive-deletes): Remove obsolete comments about old default value. (dired-do-flagged-delete, dired-do-delete): Refill docstring.
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)))
Initial revision
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")
(dired-next-line, dired-previous-line): Use forward-line.
2007-10-18 16:00:00 +00:00
(forward-line arg)
Initial revision
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")
(dired-next-line, dired-previous-line): Use forward-line.
2007-10-18 16:00:00 +00:00
(forward-line (- arg))
Initial revision
1992-05-30 23:52:26 +00:00
(dired-move-to-filename))
*** empty log message ***
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)))
(dired-up-directory): Add optional argument `other-window' to obviate the need to redefine it in dired-x.el.
1995-09-12 23:20:42 +00:00
(defun dired-up-directory (&optional other-window)
Many trivial doc fixes. (dired-get-file-for-visit): New function. (dired-find-alternate-file, dired-mouse-find-file-other-window): (dired-view-file, dired-find-file-other-window, dired-display-file): (dired-find-file): Use dired-get-file-for-visit.
2001-11-12 17:05:13 +00:00
"Run Dired on parent directory of current directory.
*** empty log message ***
1992-06-24 02:13:56 +00:00
Find the parent directory either in this buffer or another buffer.
Creates a buffer if necessary."
(dired-up-directory): Add optional argument `other-window' to obviate the need to redefine it in dired-x.el.
1995-09-12 23:20:42 +00:00
(interactive "P")
*** empty log message ***
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))
entered into RCS
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)
*** empty log message ***
1992-06-24 02:13:56 +00:00
(dired-goto-subdir up))
(progn
(dired-up-directory): Add optional argument `other-window' to obviate the need to redefine it in dired-x.el.
1995-09-12 23:20:42 +00:00
(if other-window
(dired-other-window up)
(dired up))
*** empty log message ***
1992-06-24 02:13:56 +00:00
(dired-goto-file dir)))))
Initial revision
1992-05-30 23:52:26 +00:00
Many trivial doc fixes. (dired-get-file-for-visit): New function. (dired-find-alternate-file, dired-mouse-find-file-other-window): (dired-view-file, dired-find-file-other-window, dired-display-file): (dired-find-file): Use dired-get-file-for-visit.
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."
(dired-find-file): Likewise.
1997-05-28 03:35:42 +00:00
(interactive)
(dired-get-filename): Err for . and .. in usual case. (dired-get-file-for-visit): Specify no-error to dired-get-filename, and check for real errors here. (dired-unmark-all-files): Specify no-error to dired-get-filename.
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))
(dired-find-file): Error if line's file does not exist.
1996-10-31 20:51:44 +00:00
(if (file-exists-p file-name)
Many trivial doc fixes. (dired-get-file-for-visit): New function. (dired-find-alternate-file, dired-mouse-find-file-other-window): (dired-view-file, dired-find-file-other-window, dired-display-file): (dired-find-file): Use dired-get-file-for-visit.
2001-11-12 17:05:13 +00:00
file-name
(dired-find-file): Better error message for symlink to nonexistent target.
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")))))
Initial revision
1992-05-30 23:52:26 +00:00
Comment.
2009-01-27 03:53:07 +00:00
;; Force C-m keybinding rather than `f' or `e' in the mode doc:
* keymap.c (QCadvertised_binding): New constant. (syms_of_keymap): Initialize it. (Fwhere_is_internal): Try and use bindings from :advertised-binding if applicable. * progmodes/xscheme.el (xscheme-evaluation-commands): Put a :advertised-binding property rather than using advertised-xscheme-send-previous-expression. (advertised-xscheme-send-previous-expression): Declare obsolete. * emulation/crisp.el (crisp-mode-map): Use `undo' rather than `advertised-undo'. (crisp-mode): Add corresponding bindings to undo's :advertised-binding instead. * dired.el (dired-mode-map): Put a :advertised-binding property rather than using dired-advertised-find-file. (dired-advertised-find-file): * simple.el (advertised-undo): * wid-edit.el (advertised-widget-backward): Declare obsolete. (widget-keymap): Put a :advertised-binding property rather than using advertised-widget-backward. * bindings.el (ctl-x-map): Put a :advertised-binding property rather than using advertised-undo. * tutorial.el (tutorial--default-keys): Adjust accordingly.
2009-09-11 00:58:59 +00:00
(define-obsolete-function-alias 'dired-advertised-find-file 'dired-find-file "23.2")
Many trivial doc fixes. (dired-get-file-for-visit): New function. (dired-find-alternate-file, dired-mouse-find-file-other-window): (dired-view-file, dired-find-file-other-window, dired-display-file): (dired-find-file): Use dired-get-file-for-visit.
2001-11-12 17:05:13 +00:00
(defun dired-find-file ()
"In Dired, visit the file or directory named on this line."
(interactive)
(dired-get-filename): Don't err for . and .. for calls from dired-add-entry.
2003-06-05 22:00:13 +00:00
;; Bind `find-file-run-dired' so that the command works on directories
(dired-find-file): Bind find-file-run-dired around the call to find-file.
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))))
Many trivial doc fixes. (dired-get-file-for-visit): New function. (dired-find-alternate-file, dired-mouse-find-file-other-window): (dired-view-file, dired-find-file-other-window, dired-display-file): (dired-find-file): Use dired-get-file-for-visit.
2001-11-12 17:05:13 +00:00
(dired-find-alternate-file): New function. (dired-mode-map): Bind `a' to dired-find-alternate-file. (toplevel): Require dired-aux when compiling. (dired-buffers): Move defvar within file to avoid compiler warning.
2000-07-07 13:00:21 +00:00
(defun dired-find-alternate-file ()
Many trivial doc fixes. (dired-get-file-for-visit): New function. (dired-find-alternate-file, dired-mouse-find-file-other-window): (dired-view-file, dired-find-file-other-window, dired-display-file): (dired-find-file): Use dired-get-file-for-visit.
2001-11-12 17:05:13 +00:00
"In Dired, visit this file or directory instead of the dired buffer."
(dired-find-alternate-file): New function. (dired-mode-map): Bind `a' to dired-find-alternate-file. (toplevel): Require dired-aux when compiling. (dired-buffers): Move defvar within file to avoid compiler warning.
2000-07-07 13:00:21 +00:00
(interactive)
(set-buffer-modified-p nil)
Many trivial doc fixes. (dired-get-file-for-visit): New function. (dired-find-alternate-file, dired-mouse-find-file-other-window): (dired-view-file, dired-find-file-other-window, dired-display-file): (dired-find-file): Use dired-get-file-for-visit.
2001-11-12 17:05:13 +00:00
(find-alternate-file (dired-get-file-for-visit)))
Add comment for last change.
2002-08-02 22:21:43 +00:00
;; Don't override the setting from .emacs.
Hide disabling of dired-find-alternate-file behind autoload-cookie.
2002-07-31 12:08:06 +00:00
;;;###autoload (put 'dired-find-alternate-file 'disabled t)
(dired-find-alternate-file): New function. (dired-mode-map): Bind `a' to dired-find-alternate-file. (toplevel): Require dired-aux when compiling. (dired-buffers): Move defvar within file to avoid compiler warning.
2000-07-07 13:00:21 +00:00
(dired-mouse-find-file-other-window): New command. (dired-mode-map): Bind mouse-2.
1994-03-30 17:22:59 +00:00
(defun dired-mouse-find-file-other-window (event)
Many trivial doc fixes. (dired-get-file-for-visit): New function. (dired-find-alternate-file, dired-mouse-find-file-other-window): (dired-view-file, dired-find-file-other-window, dired-display-file): (dired-find-file): Use dired-get-file-for-visit.
2001-11-12 17:05:13 +00:00
"In Dired, visit the file or directory name you click on."
(dired-mouse-find-file-other-window): New command. (dired-mode-map): Bind mouse-2.
1994-03-30 17:22:59 +00:00
(interactive "e")
(dired-mouse-find-file-other-window): Handle events that move out of the window.
2002-04-23 03:14:48 +00:00
(let (window pos file)
(dired-mouse-find-file-other-window): New command. (dired-mode-map): Bind mouse-2.
1994-03-30 17:22:59 +00:00
(save-excursion
(dired-mouse-find-file-other-window): Handle events that move out of the window.
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)))
(dired-mouse-find-file-other-window): Use dired-view-command-alist here, as in dired-view-file. (dired-view-command-alist): Use %s to substitute file name. Handle .ps_pages, .eps, .jpg, .gif, .png.
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)))
(dired-view-command-alist): Variable deleted. (dired-view-file, dired-mouse-find-file-other-window): Delete the code to use it.
2005-01-01 14:20:10 +00:00
(select-window window)
(find-file-other-window (file-name-sans-versions file t)))))
(dired-view-command-alist): New variable. (dired-view-file): Use external viewers for some files names.
2002-04-10 15:15:23 +00:00
Initial revision
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.
(dired-view-command-alist): New variable. (dired-view-file): Use external viewers for some files names.
2002-04-10 15:15:23 +00:00
When file is a directory, show it in this buffer if it is inserted.
(dired-view-command-alist): Variable deleted. (dired-view-file, dired-mouse-find-file-other-window): Delete the code to use it.
2005-01-01 14:20:10 +00:00
Otherwise, display it in another buffer."
Initial revision
1992-05-30 23:52:26 +00:00
(interactive)
Many trivial doc fixes. (dired-get-file-for-visit): New function. (dired-find-alternate-file, dired-mouse-find-file-other-window): (dired-view-file, dired-find-file-other-window, dired-display-file): (dired-find-file): Use dired-get-file-for-visit.
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))
(dired-view-command-alist): Variable deleted. (dired-view-file, dired-mouse-find-file-other-window): Delete the code to use it.
2005-01-01 14:20:10 +00:00
(view-file file))))
Initial revision
1992-05-30 23:52:26 +00:00
(defun dired-find-file-other-window ()
Many trivial doc fixes. (dired-get-file-for-visit): New function. (dired-find-alternate-file, dired-mouse-find-file-other-window): (dired-view-file, dired-find-file-other-window, dired-display-file): (dired-find-file): Use dired-get-file-for-visit.
2001-11-12 17:05:13 +00:00
"In Dired, visit this file or directory in another window."
Initial revision
1992-05-30 23:52:26 +00:00
(interactive)
Many trivial doc fixes. (dired-get-file-for-visit): New function. (dired-find-alternate-file, dired-mouse-find-file-other-window): (dired-view-file, dired-find-file-other-window, dired-display-file): (dired-find-file): Use dired-get-file-for-visit.
2001-11-12 17:05:13 +00:00
(find-file-other-window (dired-get-file-for-visit)))
*** empty log message ***
1992-07-27 02:56:28 +00:00
(defun dired-display-file ()
Many trivial doc fixes. (dired-get-file-for-visit): New function. (dired-find-alternate-file, dired-mouse-find-file-other-window): (dired-view-file, dired-find-file-other-window, dired-display-file): (dired-find-file): Use dired-get-file-for-visit.
2001-11-12 17:05:13 +00:00
"In Dired, display this file or directory in another window."
*** empty log message ***
1992-07-27 02:56:28 +00:00
(interactive)
Many trivial doc fixes. (dired-get-file-for-visit): New function. (dired-find-alternate-file, dired-mouse-find-file-other-window): (dired-view-file, dired-find-file-other-window, dired-display-file): (dired-find-file): Use dired-get-file-for-visit.
2001-11-12 17:05:13 +00:00
(display-buffer (find-file-noselect (dired-get-file-for-visit))))
Revert last change.
2001-01-26 13:14:11 +00:00
Many trivial doc fixes. (dired-get-file-for-visit): New function. (dired-find-alternate-file, dired-mouse-find-file-other-window): (dired-view-file, dired-find-file-other-window, dired-display-file): (dired-find-file): Use dired-get-file-for-visit.
2001-11-12 17:05:13 +00:00
;;; Functions for extracting and manipulating file names in Dired buffers.
Initial revision
1992-05-30 23:52:26 +00:00
(defun dired-get-filename (&optional localp no-error-if-not-filep)
Many trivial doc fixes. (dired-get-file-for-visit): New function. (dired-find-alternate-file, dired-mouse-find-file-other-window): (dired-view-file, dired-find-file-other-window, dired-display-file): (dired-find-file): Use dired-get-file-for-visit.
2001-11-12 17:05:13 +00:00
"In Dired, return name of file mentioned on this line.
Initial revision
1992-05-30 23:52:26 +00:00
Value returned normally includes the directory name.
*** empty log message ***
1992-06-24 02:13:56 +00:00
Optional arg LOCALP with value `no-dir' means don't include directory
(dired-re-dot): Make it handle trailing /. (dired-get-filename): Update documentation string. Revert previous change and fix typo in earlier version.
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."
* ls-lisp.el (ls-lisp-insert-directory): Print an explicit message if one of the files specified cannot be accessed by file-attributes. Do not strip any leading directories from the file names, to behave more like `ls' does. * dired.el (dired-get-filename): Handle absolute file names. (dired-readin-insert): If argument is a cons, don't print "wildcard" on the ``total'' line.
1999-12-16 09:43:32 +00:00
(let (case-fold-search file p1 p2 already-absolute)
Initial revision
1992-05-30 23:52:26 +00:00
(save-excursion
*** empty log message ***
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:
(dired-insert-directory): Quote certain chars with \. (dired-get-filename): Always unquote \ quoting.
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.
* dired.el (dired-get-filename): Always pass filename through `read' to ensure unquoting is performed (Bug#2862).
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)))
Fix bug #7308 with `locate' on MS-Windows. dired.el (dired-get-filename): Replace backslashes with slashes in file names on MS-Windows, needed by `locate'. locate.el (locate-default-make-command-line): Don't consider drive letter and root directory part of `directory-listing-before-filename-regexp'. (locate-post-command-hook, locate-post-command-hook): New defcustoms.
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))))))
* dired.el (dired-get-filename): Always pass filename through `read' to ensure unquoting is performed (Bug#2862).
2009-04-02 22:16:17 +00:00
(setq file (read (concat "\"" file "\"")))
* dired.el (dired-get-filename): Pay attention to the case that `read' returns a unibyte string. Don't encode the file name by buffer-file-coding-system.
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)))))
(dired-get-filename): Don't call file-name-absolute-p with FILE if FILE is nil.
1999-12-31 07:04:08 +00:00
(and file (file-name-absolute-p file)
(dired-get-filename): A file name starting with ~ is not absolute in this context.
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) ?~))
* ls-lisp.el (ls-lisp-insert-directory): Print an explicit message if one of the files specified cannot be accessed by file-attributes. Do not strip any leading directories from the file names, to behave more like `ls' does. * dired.el (dired-get-filename): Handle absolute file names. (dired-readin-insert): If argument is a cons, don't print "wildcard" on the ``total'' line.
1999-12-16 09:43:32 +00:00
(setq already-absolute t))
(cond
(dired-get-filename): Add /: when appropriate to avoid taking a local name as remote.
2002-02-06 15:30:40 +00:00
((null file)
nil)
(dired-get-filename): Don't err for . and .. for calls from dired-add-entry.
2003-06-05 22:00:13 +00:00
((eq localp 'verbatim)
file)
(dired-get-filename): Err for . and .. in usual case. (dired-get-file-for-visit): Specify no-error to dired-get-filename, and check for real errors here. (dired-unmark-all-files): Specify no-error to dired-get-filename.
2003-06-04 09:02:55 +00:00
((and (not no-error-if-not-filep)
(dired-get-filename): Don't use dired-re-dot.
2004-05-30 18:24:08 +00:00
(member file '("." "..")))
(dired-get-filename): Err for . and .. in usual case. (dired-get-file-for-visit): Specify no-error to dired-get-filename, and check for real errors here. (dired-unmark-all-files): Specify no-error to dired-get-filename.
2003-06-04 09:02:55 +00:00
(error "Cannot operate on `.' or `..'"))
* ls-lisp.el (ls-lisp-insert-directory): Print an explicit message if one of the files specified cannot be accessed by file-attributes. Do not strip any leading directories from the file names, to behave more like `ls' does. * dired.el (dired-get-filename): Handle absolute file names. (dired-readin-insert): If argument is a cons, don't print "wildcard" on the ``total'' line.
1999-12-16 09:43:32 +00:00
((and (eq localp 'no-dir) already-absolute)
(file-name-nondirectory file))
(dired-get-filename): Add /: when appropriate to avoid taking a local name as remote.
2002-02-06 15:30:40 +00:00
(already-absolute
(defgroup dired): Use `files' as parent. (dired-get-filename): Ignore handler if it has safe-magic prop.
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.
(dired-use-ls-dired): New variable. (dired-directory): Document the rules better. (dired-insert-headerline): Function deleted. (dired-revert): Pass no args to dired-readin. (dired-move-to-filename): First try using dired-filename property. (dired-move-to-end-of-filename): Likewise. (dired-why): Try to show the start of this page of warnings. (dired-log): Insert the buffer name at start of page, not end. (dired-log-summary): If just one failure, explain it in echo area. (dired-internal-noselect): Always set dired-directory, when buffer is not new. Pass dir-or-list, not dirname, to dired-mode. Call dired-readin with no args. Don't call dired-after-readin-hook here. (dired-find-buffer-nocreate): Expand dirname. Expand the dir from dired-directory to compare with dirname. (dired-readin): Take no args. Get the directory from dired-directory. Run dired-before-reading hook inside save-excursion. Run dired-after-readin-hook here. Don't make undo entries at all. Call dired-readin-insert with no args. Don't change indentation here. Don't insert headerline here. (dired-readin-insert): Take no args. Get dir and file-list from dired-directory. Call dired-insert-directory the new way. Don't insert "wildcard" info here. (dired-insert-directory): New arg FILE-LIST. First arg now DIR, always just the directory. This function fully handles setting up the buffer text: update indentation, insert headerline and "wildcard" info. Pass --dired arg if appropriate; put info in dired-filename props. Don't expand file names here.
2002-09-15 01:52:54 +00:00
;; For instance, .gz files when auto-compression-mode is on.
(defgroup dired): Use `files' as parent. (dired-get-filename): Ignore handler if it has safe-magic prop.
2002-09-01 13:27:47 +00:00
(if (and handler (not (get handler 'safe-magic)))
(concat "/:" file)
file)))
(dired-get-filename): Add /: when appropriate to avoid taking a local name as remote.
2002-02-06 15:30:40 +00:00
((eq localp 'no-dir)
* ls-lisp.el (ls-lisp-insert-directory): Print an explicit message if one of the files specified cannot be accessed by file-attributes. Do not strip any leading directories from the file names, to behave more like `ls' does. * dired.el (dired-get-filename): Handle absolute file names. (dired-readin-insert): If argument is a cons, don't print "wildcard" on the ``total'' line.
1999-12-16 09:43:32 +00:00
file)
(dired-get-filename): Add /: when appropriate to avoid taking a local name as remote.
2002-02-06 15:30:40 +00:00
((equal (dired-current-directory) "/")
(setq file (concat (dired-current-directory localp) file))
(defgroup dired): Use `files' as parent. (dired-get-filename): Ignore handler if it has safe-magic prop.
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)))
* ls-lisp.el (ls-lisp-insert-directory): Print an explicit message if one of the files specified cannot be accessed by file-attributes. Do not strip any leading directories from the file names, to behave more like `ls' does. * dired.el (dired-get-filename): Handle absolute file names. (dired-readin-insert): If argument is a cons, don't print "wildcard" on the ``total'' line.
1999-12-16 09:43:32 +00:00
(t
(dired-get-filename): Add /: when appropriate to avoid taking a local name as remote.
2002-02-06 15:30:40 +00:00
(concat (dired-current-directory localp) file)))))
*** empty log message ***
1992-06-24 02:13:56 +00:00
(dired-string-replace-match): Function moved here.
1994-12-22 04:17:30 +00:00
(defun dired-string-replace-match (regexp string newtext
(dired-get-filename): Don't err for . and .. for calls from dired-add-entry.
2003-06-05 22:00:13 +00:00
&optional literal global)
(dired-string-replace-match): Function moved here.
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
(dired-string-replace-match): Return `nil' when no match found with global search.
1999-08-28 18:23:14 +00:00
(let ((start 0) ret)
(dired-string-replace-match): Simplify using replace-match.
1995-08-21 01:15:25 +00:00
(while (string-match regexp string start)
(let ((from-end (- (length string) (match-end 0))))
(dired-string-replace-match): Return `nil' when no match found with global search.
1999-08-28 18:23:14 +00:00
(setq ret (setq string (replace-match newtext t literal string)))
(dired-string-replace-match): Simplify using replace-match.
1995-08-21 01:15:25 +00:00
(setq start (- (length string) from-end))))
(dired-string-replace-match): Return `nil' when no match found with global search.
1999-08-28 18:23:14 +00:00
ret)
(dired-string-replace-match): Function moved here.
1994-12-22 04:17:30 +00:00
(if (not (string-match regexp string 0))
nil
(dired-string-replace-match): Simplify using replace-match.
1995-08-21 01:15:25 +00:00
(replace-match newtext t literal string))))
(dired-string-replace-match): Function moved here.
1994-12-22 04:17:30 +00:00
*** empty log message ***
1992-06-24 02:13:56 +00:00
(defun dired-make-absolute (file &optional dir)
Doc fixes.
2003-01-14 23:11:19 +00:00
;;"Convert FILE (a file name relative to DIR) to an absolute file name."
*** empty log message ***
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=="".
* bitmaps/README: * xfns.c: * termcap.c: * term.c: * syswait.h: * systty.h: * systime.h: * syssignal.h: * sysdep.c: * process.h: * process.c: * print.c: * ndir.h: * lread.c: * keyboard.c: * getpagesize.h: * floatfns.c: * fileio.c: * emacs.c: * doc.c: * dispnew.c: * dired.c: * data.c: * callproc.c: * buffer.c: * README: * Makefile.in: * s/template.h: * s/msdos.h: * m/vax.h: Remove VMS support. * s/vms.h: * vlimit.h: * uaf.h: * temacs.opt: * param.h: * ioctl.h: Remove file. * descrip.mms: * compile.com: Remove file. * Create.c: Remove VMS support. * message.el (Module): * gnus-start.el (Module): * gnus-registry.el (Module): * textmodes/texinfmt.el: * nxml/nxml-enc.el: * mail/feedmail.el: * international/mule.el: * international/latexenc.el: * emulation/viper-util.el: * emulation/viper-init.el: * emulation/viper-ex.el: * emacs-lisp/bytecomp.el: * version.el: * subr.el: * startup.el: * sort.el: * shadowfile.el: * recentf.el: * printing.el: * paths.el: * minibuffer.el: * ls-lisp.el: * loadup.el: * hippie-exp.el: * finder.el: * files.el: * ediff-util.el: * ediff-ptch.el: * ediff-init.el: * ediff-diff.el: * dired.el: * dired-aux.el: * cus-edit.el: * bindings.el: * arc-mode.el: * add-log.el: Remove VMS support. * obsolete/vmsproc.el: * obsolete/vms-pmail.el: * obsolete/vms-patch.el: Remove file. * etags.c: * emacsclient.c: Remove VMS support. * termcap.src: Remove file. * README: * PROBLEMS: * MACHINES: Remove VMS info. * ediff.texi: Remove VMS support. * os.texi: * intro.texi: * files.texi: Remove VMS support. * emacs.texi: Remove VMS support. * make-dist: * README: Remove VMS support. * vms: Remove directory.
2008-07-31 05:33:56 +00:00
;; This should be good enough for ange-ftp.
*** empty log message ***
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))
(dired-make-relative): Ignore the third argument; never signal an error just bbcause FILE is not in DIR's tree.
1996-12-31 18:29:49 +00:00
(defun dired-make-relative (file &optional dir ignore)
"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."
*** empty log message ***
1992-06-24 02:13:56 +00:00
(or dir (setq dir default-directory))
(dired-chown-program): Check for irix, not silicon-graphic-unix.
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)))
*** empty log message ***
1992-06-24 02:13:56 +00:00
(if (string-match (concat "^" (regexp-quote dir)) file)
(substring file (match-end 0))
(dired-revert): If buffer is marked unmodified before reverting, keep it marked unmodified. Adapt to new conventions for commenting out code. (dired-make-relative): Adapt to new conventions for commenting out code.
2004-06-11 22:38:52 +00:00
;;; (or no-error
(dired-make-relative): Ignore the third argument; never signal an error just bbcause FILE is not in DIR's tree.
1996-12-31 18:29:49 +00:00
;;; (error "%s: not in directory tree growing at %s" file dir))
file))
Revert last change.
2001-01-26 13:14:11 +00:00
*** empty log message ***
1992-06-24 02:13:56 +00:00
;;; Functions for finding the file name in a dired buffer line.
(dired-permission-flags-regexp): New variable. (dired-move-to-end-of-filename): Use it instead of a constant.
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'.")
*** empty log message ***
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)
(dired-view-command-alist): Use more efficient regexps. Remove dubious args. (dired-align-file): New function. (dired-insert-directory): Use it. (dired-move-to-end-of-filename): Make the " -> " search more specific. (dired-buffers-for-dir): Remove unused var `pattern'.
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."
*** empty log message ***
1992-06-24 02:13:56 +00:00
;; This is the UNIX version.
(dired-font-lock-keywords): Use regexp-opt. (dired-move-to-filename): Better message when we fail to find the file. (dired-sort-toggle): Minor optimization.
2002-09-16 17:13:16 +00:00
(or eol (setq eol (line-end-position)))
*** empty log message ***
1992-06-24 02:13:56 +00:00
(beginning-of-line)
(dired-use-ls-dired): New variable. (dired-directory): Document the rules better. (dired-insert-headerline): Function deleted. (dired-revert): Pass no args to dired-readin. (dired-move-to-filename): First try using dired-filename property. (dired-move-to-end-of-filename): Likewise. (dired-why): Try to show the start of this page of warnings. (dired-log): Insert the buffer name at start of page, not end. (dired-log-summary): If just one failure, explain it in echo area. (dired-internal-noselect): Always set dired-directory, when buffer is not new. Pass dir-or-list, not dirname, to dired-mode. Call dired-readin with no args. Don't call dired-after-readin-hook here. (dired-find-buffer-nocreate): Expand dirname. Expand the dir from dired-directory to compare with dirname. (dired-readin): Take no args. Get the directory from dired-directory. Run dired-before-reading hook inside save-excursion. Run dired-after-readin-hook here. Don't make undo entries at all. Call dired-readin-insert with no args. Don't change indentation here. Don't insert headerline here. (dired-readin-insert): Take no args. Get dir and file-list from dired-directory. Call dired-insert-directory the new way. Don't insert "wildcard" info here. (dired-insert-directory): New arg FILE-LIST. First arg now DIR, always just the directory. This function fully handles setting up the buffer text: update indentation, insert headerline and "wildcard" info. Pass --dired arg if appropriate; put info in dired-filename props. Don't expand file names here.
2002-09-15 01:52:54 +00:00
;; First try assuming `ls --dired' was used.
(dired-font-lock-keywords): Use regexp-opt. (dired-move-to-filename): Better message when we fail to find the file. (dired-sort-toggle): Minor optimization.
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))
* files.el (directory-listing-before-filename-regexp): New defvar. Replaces `dired-move-to-filename-regexp' from dired.el. * dired.el (dired-move-to-filename-regexp): Removed. All occurences replaced by `directory-listing-before-filename-regexp'. * dired-x.el, locate.el, vc.el: Replace `dired-move-to-filename-regexp' by `directory-listing-before-filename-regexp'. In vc.el it is overwritten locally; maybe this can be handled in files.el too. * net/ange-ftp.el (ange-ftp-date-regexp): Removed. All occurences replaced by `directory-listing-before-filename-regexp'. * faq.texi (Bugs and problems): Replace `dired-move-to-filename-regexp' by `directory-listing-before-filename-regexp'.
2005-10-23 12:17:28 +00:00
((re-search-forward directory-listing-before-filename-regexp eol t)
(dired-font-lock-keywords): Use regexp-opt. (dired-move-to-filename): Better message when we fail to find the file. (dired-sort-toggle): Minor optimization.
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.
(dired-move-to-filename): Don't output a message if raise-error is non-nil. Fix return position and value.
2004-09-25 18:35:53 +00:00
(if raise-error
* files.el (directory-listing-before-filename-regexp): New defvar. Replaces `dired-move-to-filename-regexp' from dired.el. * dired.el (dired-move-to-filename-regexp): Removed. All occurences replaced by `directory-listing-before-filename-regexp'. * dired-x.el, locate.el, vc.el: Replace `dired-move-to-filename-regexp' by `directory-listing-before-filename-regexp'. In vc.el it is overwritten locally; maybe this can be handled in files.el too. * net/ange-ftp.el (ange-ftp-date-regexp): Removed. All occurences replaced by `directory-listing-before-filename-regexp'. * faq.texi (Bugs and problems): Replace `dired-move-to-filename-regexp' by `directory-listing-before-filename-regexp'.
2005-10-23 12:17:28 +00:00
(error "Unrecognized line! Check directory-listing-before-filename-regexp"))
(dired-move-to-filename): Don't output a message if raise-error is non-nil. Fix return position and value.
2004-09-25 18:35:53 +00:00
(beginning-of-line)
nil)
(dired-font-lock-keywords): Use regexp-opt. (dired-move-to-filename): Better message when we fail to find the file. (dired-sort-toggle): Minor optimization.
2002-09-16 17:13:16 +00:00
(raise-error
(error "No file on this line")))))
*** empty log message ***
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.
(dired-use-ls-dired): New variable. (dired-directory): Document the rules better. (dired-insert-headerline): Function deleted. (dired-revert): Pass no args to dired-readin. (dired-move-to-filename): First try using dired-filename property. (dired-move-to-end-of-filename): Likewise. (dired-why): Try to show the start of this page of warnings. (dired-log): Insert the buffer name at start of page, not end. (dired-log-summary): If just one failure, explain it in echo area. (dired-internal-noselect): Always set dired-directory, when buffer is not new. Pass dir-or-list, not dirname, to dired-mode. Call dired-readin with no args. Don't call dired-after-readin-hook here. (dired-find-buffer-nocreate): Expand dirname. Expand the dir from dired-directory to compare with dirname. (dired-readin): Take no args. Get the directory from dired-directory. Run dired-before-reading hook inside save-excursion. Run dired-after-readin-hook here. Don't make undo entries at all. Call dired-readin-insert with no args. Don't change indentation here. Don't insert headerline here. (dired-readin-insert): Take no args. Get dir and file-list from dired-directory. Call dired-insert-directory the new way. Don't insert "wildcard" info here. (dired-insert-directory): New arg FILE-LIST. First arg now DIR, always just the directory. This function fully handles setting up the buffer text: update indentation, insert headerline and "wildcard" info. Pass --dired arg if appropriate; put info in dired-filename props. Don't expand file names here.
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)
(dired-use-ls-dired): New variable. (dired-directory): Document the rules better. (dired-insert-headerline): Function deleted. (dired-revert): Pass no args to dired-readin. (dired-move-to-filename): First try using dired-filename property. (dired-move-to-end-of-filename): Likewise. (dired-why): Try to show the start of this page of warnings. (dired-log): Insert the buffer name at start of page, not end. (dired-log-summary): If just one failure, explain it in echo area. (dired-internal-noselect): Always set dired-directory, when buffer is not new. Pass dir-or-list, not dirname, to dired-mode. Call dired-readin with no args. Don't call dired-after-readin-hook here. (dired-find-buffer-nocreate): Expand dirname. Expand the dir from dired-directory to compare with dirname. (dired-readin): Take no args. Get the directory from dired-directory. Run dired-before-reading hook inside save-excursion. Run dired-after-readin-hook here. Don't make undo entries at all. Call dired-readin-insert with no args. Don't change indentation here. Don't insert headerline here. (dired-readin-insert): Take no args. Get dir and file-list from dired-directory. Call dired-insert-directory the new way. Don't insert "wildcard" info here. (dired-insert-directory): New arg FILE-LIST. First arg now DIR, always just the directory. This function fully handles setting up the buffer text: update indentation, insert headerline and "wildcard" info. Pass --dired arg if appropriate; put info in dired-filename props. Don't expand file names here.
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
(dired-mode): Use run-mode-hooks. (dired-move-to-end-of-filename): Use match-string.
2004-03-26 15:17:50 +00:00
(match-string 2)
(match-string 3)
(match-string 4)))))
(dired-use-ls-dired): New variable. (dired-directory): Document the rules better. (dired-insert-headerline): Function deleted. (dired-revert): Pass no args to dired-readin. (dired-move-to-filename): First try using dired-filename property. (dired-move-to-end-of-filename): Likewise. (dired-why): Try to show the start of this page of warnings. (dired-log): Insert the buffer name at start of page, not end. (dired-log-summary): If just one failure, explain it in echo area. (dired-internal-noselect): Always set dired-directory, when buffer is not new. Pass dir-or-list, not dirname, to dired-mode. Call dired-readin with no args. Don't call dired-after-readin-hook here. (dired-find-buffer-nocreate): Expand dirname. Expand the dir from dired-directory to compare with dirname. (dired-readin): Take no args. Get the directory from dired-directory. Run dired-before-reading hook inside save-excursion. Run dired-after-readin-hook here. Don't make undo entries at all. Call dired-readin-insert with no args. Don't change indentation here. Don't insert headerline here. (dired-readin-insert): Take no args. Get dir and file-list from dired-directory. Call dired-insert-directory the new way. Don't insert "wildcard" info here. (dired-insert-directory): New arg FILE-LIST. First arg now DIR, always just the directory. This function fully handles setting up the buffer text: update indentation, insert headerline and "wildcard" info. Pass --dired arg if appropriate; put info in dired-filename props. Don't expand file names here.
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
(dired-view-command-alist): Use more efficient regexps. Remove dubious args. (dired-align-file): New function. (dired-insert-directory): Use it. (dired-move-to-end-of-filename): Make the " -> " search more specific. (dired-buffers-for-dir): Remove unused var `pattern'.
2004-09-29 03:14:30 +00:00
(if (search-forward " -> " eol t)
(dired-use-ls-dired): New variable. (dired-directory): Document the rules better. (dired-insert-headerline): Function deleted. (dired-revert): Pass no args to dired-readin. (dired-move-to-filename): First try using dired-filename property. (dired-move-to-end-of-filename): Likewise. (dired-why): Try to show the start of this page of warnings. (dired-log): Insert the buffer name at start of page, not end. (dired-log-summary): If just one failure, explain it in echo area. (dired-internal-noselect): Always set dired-directory, when buffer is not new. Pass dir-or-list, not dirname, to dired-mode. Call dired-readin with no args. Don't call dired-after-readin-hook here. (dired-find-buffer-nocreate): Expand dirname. Expand the dir from dired-directory to compare with dirname. (dired-readin): Take no args. Get the directory from dired-directory. Run dired-before-reading hook inside save-excursion. Run dired-after-readin-hook here. Don't make undo entries at all. Call dired-readin-insert with no args. Don't change indentation here. Don't insert headerline here. (dired-readin-insert): Take no args. Get dir and file-list from dired-directory. Call dired-insert-directory the new way. Don't insert "wildcard" info here. (dired-insert-directory): New arg FILE-LIST. First arg now DIR, always just the directory. This function fully handles setting up the buffer text: update indentation, insert headerline and "wildcard" info. Pass --dired arg if appropriate; put info in dired-filename props. Don't expand file names here.
2002-09-15 01:52:54 +00:00
(progn
(dired-view-command-alist): Use more efficient regexps. Remove dubious args. (dired-align-file): New function. (dired-insert-directory): Use it. (dired-move-to-end-of-filename): Make the " -> " search more specific. (dired-buffers-for-dir): Remove unused var `pattern'.
2004-09-29 03:14:30 +00:00
(forward-char -4)
(dired-use-ls-dired): New variable. (dired-directory): Document the rules better. (dired-insert-headerline): Function deleted. (dired-revert): Pass no args to dired-readin. (dired-move-to-filename): First try using dired-filename property. (dired-move-to-end-of-filename): Likewise. (dired-why): Try to show the start of this page of warnings. (dired-log): Insert the buffer name at start of page, not end. (dired-log-summary): If just one failure, explain it in echo area. (dired-internal-noselect): Always set dired-directory, when buffer is not new. Pass dir-or-list, not dirname, to dired-mode. Call dired-readin with no args. Don't call dired-after-readin-hook here. (dired-find-buffer-nocreate): Expand dirname. Expand the dir from dired-directory to compare with dirname. (dired-readin): Take no args. Get the directory from dired-directory. Run dired-before-reading hook inside save-excursion. Run dired-after-readin-hook here. Don't make undo entries at all. Call dired-readin-insert with no args. Don't change indentation here. Don't insert headerline here. (dired-readin-insert): Take no args. Get dir and file-list from dired-directory. Call dired-insert-directory the new way. Don't insert "wildcard" info here. (dired-insert-directory): New arg FILE-LIST. First arg now DIR, always just the directory. This function fully handles setting up the buffer text: update indentation, insert headerline and "wildcard" info. Pass --dired arg if appropriate; put info in dired-filename props. Don't expand file names here.
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
(dired-move-to-end-of-filename): Handle fifo as rendered by "ls -lF": Don't include trailing "|".
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
(dired-use-ls-dired): New variable. (dired-directory): Document the rules better. (dired-insert-headerline): Function deleted. (dired-revert): Pass no args to dired-readin. (dired-move-to-filename): First try using dired-filename property. (dired-move-to-end-of-filename): Likewise. (dired-why): Try to show the start of this page of warnings. (dired-log): Insert the buffer name at start of page, not end. (dired-log-summary): If just one failure, explain it in echo area. (dired-internal-noselect): Always set dired-directory, when buffer is not new. Pass dir-or-list, not dirname, to dired-mode. Call dired-readin with no args. Don't call dired-after-readin-hook here. (dired-find-buffer-nocreate): Expand dirname. Expand the dir from dired-directory to compare with dirname. (dired-readin): Take no args. Get the directory from dired-directory. Run dired-before-reading hook inside save-excursion. Run dired-after-readin-hook here. Don't make undo entries at all. Call dired-readin-insert with no args. Don't change indentation here. Don't insert headerline here. (dired-readin-insert): Take no args. Get dir and file-list from dired-directory. Call dired-insert-directory the new way. Don't insert "wildcard" info here. (dired-insert-directory): New arg FILE-LIST. First arg now DIR, always just the directory. This function fully handles setting up the buffer text: update indentation, insert headerline and "wildcard" info. Pass --dired arg if appropriate; put info in dired-filename props. Don't expand file names here.
2002-09-15 01:52:54 +00:00
;; a thing, even to ls, but we know it's not a symlink.)
(and used-F
(dired-move-to-end-of-filename): Handle fifo as rendered by "ls -lF": Don't include trailing "|".
2005-08-18 11:30:44 +00:00
(or (memq file-type '(?d ?s ?p))
(dired-use-ls-dired): New variable. (dired-directory): Document the rules better. (dired-insert-headerline): Function deleted. (dired-revert): Pass no args to dired-readin. (dired-move-to-filename): First try using dired-filename property. (dired-move-to-end-of-filename): Likewise. (dired-why): Try to show the start of this page of warnings. (dired-log): Insert the buffer name at start of page, not end. (dired-log-summary): If just one failure, explain it in echo area. (dired-internal-noselect): Always set dired-directory, when buffer is not new. Pass dir-or-list, not dirname, to dired-mode. Call dired-readin with no args. Don't call dired-after-readin-hook here. (dired-find-buffer-nocreate): Expand dirname. Expand the dir from dired-directory to compare with dirname. (dired-readin): Take no args. Get the directory from dired-directory. Run dired-before-reading hook inside save-excursion. Run dired-after-readin-hook here. Don't make undo entries at all. Call dired-readin-insert with no args. Don't change indentation here. Don't insert headerline here. (dired-readin-insert): Take no args. Get dir and file-list from dired-directory. Call dired-insert-directory the new way. Don't insert "wildcard" info here. (dired-insert-directory): New arg FILE-LIST. First arg now DIR, always just the directory. This function fully handles setting up the buffer text: update indentation, insert headerline and "wildcard" info. Pass --dired arg if appropriate; put info in dired-filename props. Don't expand file names here.
2002-09-15 01:52:54 +00:00
executable)
(forward-char -1))))
(or no-error
(not (eq opoint (point)))
Fix buggy calls to `error'.
2007-12-06 17:56:42 +00:00
(error "%s" (if hidden
(dired-use-ls-dired): New variable. (dired-directory): Document the rules better. (dired-insert-headerline): Function deleted. (dired-revert): Pass no args to dired-readin. (dired-move-to-filename): First try using dired-filename property. (dired-move-to-end-of-filename): Likewise. (dired-why): Try to show the start of this page of warnings. (dired-log): Insert the buffer name at start of page, not end. (dired-log-summary): If just one failure, explain it in echo area. (dired-internal-noselect): Always set dired-directory, when buffer is not new. Pass dir-or-list, not dirname, to dired-mode. Call dired-readin with no args. Don't call dired-after-readin-hook here. (dired-find-buffer-nocreate): Expand dirname. Expand the dir from dired-directory to compare with dirname. (dired-readin): Take no args. Get the directory from dired-directory. Run dired-before-reading hook inside save-excursion. Run dired-after-readin-hook here. Don't make undo entries at all. Call dired-readin-insert with no args. Don't change indentation here. Don't insert headerline here. (dired-readin-insert): Take no args. Get dir and file-list from dired-directory. Call dired-insert-directory the new way. Don't insert "wildcard" info here. (dired-insert-directory): New arg FILE-LIST. First arg now DIR, always just the directory. This function fully handles setting up the buffer text: update indentation, insert headerline and "wildcard" info. Pass --dired arg if appropriate; put info in dired-filename props. Don't expand file names here.
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)))))
*** empty log message ***
1992-06-24 02:13:56 +00:00
(dired-copy-filename-as-kill): Moved from dired-x.el. (dired-mode-map): Bind w to dired-copy-filename-as-kill.
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.
Doc fixes.
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
(dired-copy-filename-as-kill): Make `-' arg behave like `-1'. Doc fix.
2005-04-04 23:58:11 +00:00
`default-directory'. (This still may contain slashes if in a subdirectory.)
(dired-copy-filename-as-kill): Moved from dired-x.el. (dired-mode-map): Bind w to dired-copy-filename-as-kill.
2001-12-17 01:58:05 +00:00
(dired-copy-filename-as-kill): Make `-' arg behave like `-1'. Doc fix.
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.
(dired-copy-filename-as-kill): Moved from dired-x.el. (dired-mode-map): Bind w to dired-copy-filename-as-kill.
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))
(dired-copy-filename-as-kill): Make `-' arg behave like `-1'. Doc fix.
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))))
(dired-copy-filename-as-kill): Moved from dired-x.el. (dired-mode-map): Bind w to dired-copy-filename-as-kill.
2001-12-17 01:58:05 +00:00
(dired-get-marked-files 'no-dir))
" "))))
(dired-copy-filename-as-kill): Call kill-append if following a kill command.
2002-01-07 05:31:29 +00:00
(if (eq last-command 'kill-region)
(kill-append string nil)
(kill-new string))
(dired-copy-filename-as-kill): Moved from dired-x.el. (dired-mode-map): Bind w to dired-copy-filename-as-kill.
2001-12-17 01:58:05 +00:00
(message "%s" string)))
Revert last change.
2001-01-26 13:14:11 +00:00
*** empty log message ***
1992-06-24 02:13:56 +00:00
;; Keeping Dired buffers in sync with the filesystem and with each other
(dired-glob-regexp): New function. (dired-buffers-for-dir): New arg FILE; if non-nil, check that it matches the wildcard pattern.
1997-03-22 03:40:55 +00:00
(defun dired-buffers-for-dir (dir &optional file)
* lisp/dired.el (dired-buffers-for-dir): Handle list values of dired-directory (Bug#6636).
2010-07-17 21:25:32 +00:00
;; Return a list of buffers for DIR (top level or in-situ subdir).
(dired-glob-regexp): New function. (dired-buffers-for-dir): New arg FILE; if non-nil, check that it matches the wildcard pattern.
1997-03-22 03:40:55 +00:00
;; If FILE is non-nil, include only those whose wildcard pattern (if any)
;; matches FILE.
*** empty log message ***
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))
* lisp/dired.el (dired-buffers-for-dir): Handle list values of dired-directory (Bug#6636).
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:
(dired-buffers-for-dir): Assume dirs are preexpanded. (dired-in-this-tree): Likewise. (dired-advertise, dired-unadvertise): Expand default-directory.
1994-09-16 21:34:27 +00:00
(setq dired-buffers (delq elt dired-buffers)))
* lisp/dired.el (dired-buffers-for-dir): Handle list values of dired-directory (Bug#6636).
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)))))))
*** empty log message ***
1992-06-24 02:13:56 +00:00
result))
(dired-glob-regexp): New function. (dired-buffers-for-dir): New arg FILE; if non-nil, check that it matches the wildcard pattern.
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))
"\\'")))
Cygwin support patch.
2003-01-31 15:24:20 +00:00
(dired-glob-regexp): New function. (dired-buffers-for-dir): New arg FILE; if non-nil, check that it matches the wildcard pattern.
1997-03-22 03:40:55 +00:00
*** empty log message ***
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.
(dired-buffers-for-dir): Assume dirs are preexpanded. (dired-in-this-tree): Likewise. (dired-advertise, dired-unadvertise): Expand default-directory.
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)))))
*** empty log message ***
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
(dired-buffers-for-dir): Assume dirs are preexpanded. (dired-in-this-tree): Likewise. (dired-advertise, dired-unadvertise): Expand default-directory.
1994-09-16 21:34:27 +00:00
(delq (assoc (expand-file-name dir) dired-buffers) dired-buffers)))
Revert last change.
2001-01-26 13:14:11 +00:00
*** empty log message ***
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)
(dired-buffers-for-dir): Assume dirs are preexpanded. (dired-in-this-tree): Likewise. (dired-advertise, dired-unadvertise): Expand default-directory.
1994-09-16 21:34:27 +00:00
(string-match (concat "^" (regexp-quote dir)) file)))
*** empty log message ***
1992-06-24 02:13:56 +00:00
(defun dired-normalize-subdir (dir)
Doc fixes.
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
*** empty log message ***
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.
Changed fsets to defaliases.
1993-04-26 04:19:48 +00:00
(defalias 'dired-get-subdir-min 'cdr)
*** empty log message ***
1992-06-24 02:13:56 +00:00
(defun dired-get-subdir-max (elt)
Initial revision
1992-05-30 23:52:26 +00:00
(save-excursion
*** empty log message ***
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))))
*** empty log message ***
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"))))))
(dired-build-subdir-alist): Accept optional arg SWITCHES.
2001-09-21 16:41:58 +00:00
(defun dired-build-subdir-alist (&optional switches)
*** empty log message ***
1992-06-24 02:13:56 +00:00
"Build `dired-subdir-alist' by parsing the buffer.
(dired-build-subdir-alist): Accept optional arg SWITCHES.
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'."
*** empty log message ***
1992-06-24 02:13:56 +00:00
(interactive)
(dired-clear-alist)
(save-excursion
(dired-build-subdir-alist): Accept optional arg SWITCHES.
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)
(dired-build-subdir-alist): Bind buffer-undo-list to t.
2005-02-16 09:39:06 +00:00
(buffer-undo-list t)
(dired-build-subdir-alist): Accept optional arg SWITCHES.
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)))))
Initial revision
1992-05-30 23:52:26 +00:00
(goto-char (point-min))
*** empty log message ***
1992-06-24 02:13:56 +00:00
(setq dired-subdir-alist nil)
(dired-build-subdir-alist): When file ends in colon, don't exit the loop, just disregard that file.
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))
(dired-build-subdir-alist): Fix previous change.
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)))))
Use `called-interactively-p' instead of `interactive-p'.
2009-10-02 03:48:36 +00:00
(if (and (> count 1) (called-interactively-p 'interactive))
(dired-build-subdir-alist): When file ends in colon, don't exit the loop, just disregard that file.
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))
*** empty log message ***
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)
(dired-mode-map): Put dired-goto-file on j, not M-g. (dired-goto-file): Doc fix.
2006-05-21 00:22:46 +00:00
"Go to line describing file FILE in this dired buffer."
*** empty log message ***
1992-06-24 02:13:56 +00:00
;; Return value of point on success, else nil.
Doc fixes.
2003-01-14 23:11:19 +00:00
;; FILE must be an absolute file name.
*** empty log message ***
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)
(dired-goto-file): Handle \ and ^M quoted by backslash. Fix error message.
2002-12-28 21:26:46 +00:00
(error "File name `%s' is not absolute" file)))
*** empty log message ***
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.
(dired-in-this-tree): Call expand-file-name. (dired-goto-file): Call expand-file-name.
1993-12-23 04:40:58 +00:00
(if (if (string= dir (expand-file-name default-directory))
*** empty log message ***
1992-06-24 02:13:56 +00:00
(goto-char (point-min))
entered into RCS
1992-09-19 19:40:38 +00:00
(and (cdr dired-subdir-alist)
*** empty log message ***
1992-06-24 02:13:56 +00:00
(dired-goto-subdir dir)))
(let ((base (file-name-nondirectory file))
(dired-goto-file): Handle \ and ^M quoted by backslash. Fix error message.
2002-12-28 21:26:46 +00:00
search-string
*** empty log message ***
1992-06-24 02:13:56 +00:00
(boundary (dired-subdir-max)))
(dired-goto-file): Handle \ and ^M quoted by backslash. Fix error message.
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))
*** empty log message ***
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 "-"!).
(dired-goto-file): Handle \ and ^M quoted by backslash. Fix error message.
2002-12-28 21:26:46 +00:00
(search-forward (concat " " search-string)
boundary 'move))
*** empty log message ***
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).
(dired-goto-file): Don't try matching one line twice.
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))))))
*** empty log message ***
1992-06-24 02:13:56 +00:00
(and found
;; return value of point (i.e., FOUND):
(goto-char found))))
(defun dired-initial-position (dirname)
;; Where point should go in a new listing of DIRNAME.
;; Point assumed at beginning of new subdir line.
;; You may redefine this function as you wish, e.g. like in dired-x.el.
(end-of-line)
(if dired-trivial-filenames (dired-goto-next-nontrivial-file)))
Revert last change.
2001-01-26 13:14:11 +00:00
*** empty log message ***
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
entered into RCS
1992-09-19 19:40:38 +00:00
(if (or (null (cdr dired-subdir-alist)) (not (dired-next-subdir 1 t t)))
*** empty log message ***
1992-06-24 02:13:56 +00:00
(point-max)
(point))))
Revert last change.
2001-01-26 13:14:11 +00:00
*** empty log message ***
1992-06-24 02:13:56 +00:00
;; Deleting files
(dired-mode-map): Bind C-x C-q to dired-toggle-read-only. Filter out menu item "Edit File Names" `wdired-change-to-wdired-mode' when major-mode is not dired-mode. (dired-toggle-read-only): New function. (dired-recursive-deletes): Remove obsolete comments about old default value. (dired-do-flagged-delete, dired-do-delete): Refill docstring.
2007-07-29 09:18:15 +00:00
(defcustom dired-recursive-deletes 'top
* align.el: * allout.el: * apropos.el: * arc-mode.el: * autoinsert.el: * avoid.el: * battery.el: * bookmark.el: * buff-menu.el: * calculator.el: * chistory.el: * cmuscheme.el: * comint.el: * compare-w.el: * dabbrev.el: * delim-col.el: * desktop.el: * diff-mode.el: * diff.el: * dired-aux.el: * dired-x.el: * dired.el: * dos-vars.el: * ediff-diff.el: * ediff-help.el: * ediff-init.el: * ediff-merg.el: * ediff-mult.el: * ediff-ptch.el: * ediff-vers.el: * ediff-wind.el: * ediff.el: * emerge.el: * facemenu.el: * faces.el: * ffap.el: * filecache.el: * find-dired.el: * font-core.el: * font-lock.el: * forms.el: * fringe.el: * help-at-pt.el: * hippie-exp.el: * ido.el: * image-file.el: * imenu.el: * indent.el: * info.el: * isearchb.el: * iswitchb.el: * jit-lock.el: * jka-compr.el: * log-edit.el: * lpr.el: * ls-lisp.el: * man.el: * menu-bar.el: * midnight.el: * mouse-sel.el: * mouse.el: * msb.el: * outline.el: * paren.el: * pcmpl-cvs.el: * pcmpl-gnu.el: * pcomplete.el: * pcvs-info.el: * pcvs-parse.el: * printing.el: * ps-mule.el: * ps-print.el: * replace.el: * ruler-mode.el: * saveplace.el: * sb-image.el: * scroll-bar.el: * sha1.el: * shadowfile.el: * shell.el: * sort.el: * speedbar.el: * strokes.el: * tempo.el: * term.el: * terminal.el: * time-stamp.el: * time.el: * tree-widget.el: * type-break.el: * vc-cvs.el: * vc-hg.el: * vc-mcvs.el: * vc-rcs.el: * vc-sccs.el: * vc.el: * view.el: * w32-vars.el: * whitespace.el: * wid-edit.el: Remove leading * from docstrings of defcustoms, deffaces, defconsts and defuns.
2008-12-03 05:48:14 +00:00
"Decide whether recursive deletes are allowed.
(dired-recursive-deletes, dired-recursive-copies): Doc fixes.
2007-05-16 10:51:25 +00:00
A value of nil means no recursive deletes.
(dired-recursive-deletes): New custom variable. (dired-re-no-dot): New variable. (dired-delete-file): New function deletes files and directories recursively. (dired-internal-do-deletions): Use `dired-delete-file' to delete files.
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."
(dired-recursive-deletes): Fix custom type.
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))
(dired-recursive-deletes): New custom variable. (dired-re-no-dot): New variable. (dired-delete-file): New function deletes files and directories recursively. (dired-internal-do-deletions): Use `dired-delete-file' to delete files.
1999-09-15 23:29:16 +00:00
:group 'dired)
Cygwin support patch.
2003-01-31 15:24:20 +00:00
;; Match anything but `.' and `..'.
(dired-recursive-deletes): New custom variable. (dired-re-no-dot): New variable. (dired-delete-file): New function deletes files and directories recursively. (dired-internal-do-deletions): Use `dired-delete-file' to delete files.
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) "\
(dired-recursive-deletes): New custom variable. (dired-re-no-dot): New variable. (dired-delete-file): New function deletes files and directories recursively. (dired-internal-do-deletions): Use `dired-delete-file' to delete files.
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.
(dired-recursive-deletes): New custom variable. (dired-re-no-dot): New variable. (dired-delete-file): New function deletes files and directories recursively. (dired-internal-do-deletions): Use `dired-delete-file' to delete files.
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."
*** empty log message ***
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)
*** empty log message ***
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")
*** empty log message ***
2009-10-01 15:01:32 +00:00
(dired-make-relative file)))))
(dired-recursive-deletes): New custom variable. (dired-re-no-dot): New variable. (dired-delete-file): New function deletes files and directories recursively. (dired-internal-do-deletions): Use `dired-delete-file' to delete files.
1999-09-15 23:29:16 +00:00
(if (eq recursive 'top) (setq recursive 'always)) ; Don't ask again.
*** empty log message ***
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)))
(dired-recursive-deletes): New custom variable. (dired-re-no-dot): New variable. (dired-delete-file): New function deletes files and directories recursively. (dired-internal-do-deletions): Use `dired-delete-file' to delete files.
1999-09-15 23:29:16 +00:00
(dired-insert-set-properties): Catch errors. (dired-do-flagged-delete): New arg nomessage.
1995-07-31 23:13:54 +00:00
(defun dired-do-flagged-delete (&optional nomessage)
Many trivial doc fixes. (dired-get-file-for-visit): New function. (dired-find-alternate-file, dired-mouse-find-file-other-window): (dired-view-file, dired-find-file-other-window, dired-display-file): (dired-find-file): Use dired-get-file-for-visit.
2001-11-12 17:05:13 +00:00
"In Dired, delete the files flagged for deletion.
(dired-insert-set-properties): Catch errors. (dired-do-flagged-delete): New arg nomessage.
1995-07-31 23:13:54 +00:00
If NOMESSAGE is non-nil, we don't display any message
(dired-do-flagged-delete, dired-do-delete): Doc fix.
2007-05-31 21:10:49 +00:00
if there are no flagged files.
(dired-mode-map): Bind C-x C-q to dired-toggle-read-only. Filter out menu item "Edit File Names" `wdired-change-to-wdired-mode' when major-mode is not dired-mode. (dired-toggle-read-only): New function. (dired-recursive-deletes): Remove obsolete comments about old default value. (dired-do-flagged-delete, dired-do-delete): Refill docstring.
2007-07-29 09:18:15 +00:00
`dired-recursive-deletes' controls whether deletion of
non-empty directories is allowed."
*** empty log message ***
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)
(dired-insert-set-properties): Catch errors. (dired-do-flagged-delete): New arg nomessage.
1995-07-31 23:13:54 +00:00
(or nomessage
(message "(No deletions requested)")))))
*** empty log message ***
1992-06-24 02:13:56 +00:00
(defun dired-do-delete (&optional arg)
(dired-do-flagged-delete, dired-do-delete): Doc fix.
2007-05-31 21:10:49 +00:00
"Delete all marked (or next ARG) files.
(dired-mode-map): Bind C-x C-q to dired-toggle-read-only. Filter out menu item "Edit File Names" `wdired-change-to-wdired-mode' when major-mode is not dired-mode. (dired-toggle-read-only): New function. (dired-recursive-deletes): Remove obsolete comments about old default value. (dired-do-flagged-delete, dired-do-delete): Refill docstring.
2007-07-29 09:18:15 +00:00
`dired-recursive-deletes' controls whether deletion of
non-empty directories is allowed."
*** empty log message ***
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))
*** empty log message ***
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)
*** empty log message ***
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.
* bitmaps/README: * xfns.c: * termcap.c: * term.c: * syswait.h: * systty.h: * systime.h: * syssignal.h: * sysdep.c: * process.h: * process.c: * print.c: * ndir.h: * lread.c: * keyboard.c: * getpagesize.h: * floatfns.c: * fileio.c: * emacs.c: * doc.c: * dispnew.c: * dired.c: * data.c: * callproc.c: * buffer.c: * README: * Makefile.in: * s/template.h: * s/msdos.h: * m/vax.h: Remove VMS support. * s/vms.h: * vlimit.h: * uaf.h: * temacs.opt: * param.h: * ioctl.h: Remove file. * descrip.mms: * compile.com: Remove file. * Create.c: Remove VMS support. * message.el (Module): * gnus-start.el (Module): * gnus-registry.el (Module): * textmodes/texinfmt.el: * nxml/nxml-enc.el: * mail/feedmail.el: * international/mule.el: * international/latexenc.el: * emulation/viper-util.el: * emulation/viper-init.el: * emulation/viper-ex.el: * emacs-lisp/bytecomp.el: * version.el: * subr.el: * startup.el: * sort.el: * shadowfile.el: * recentf.el: * printing.el: * paths.el: * minibuffer.el: * ls-lisp.el: * loadup.el: * hippie-exp.el: * finder.el: * files.el: * ediff-util.el: * ediff-ptch.el: * ediff-init.el: * ediff-diff.el: * dired.el: * dired-aux.el: * cus-edit.el: * bindings.el: * arc-mode.el: * add-log.el: Remove VMS support. * obsolete/vmsproc.el: * obsolete/vms-pmail.el: * obsolete/vms-patch.el: Remove file. * etags.c: * emacsclient.c: Remove VMS support. * termcap.src: Remove file. * README: * PROBLEMS: * MACHINES: Remove VMS info. * ediff.texi: Remove VMS support. * os.texi: * intro.texi: * files.texi: Remove VMS support. * emacs.texi: Remove VMS support. * make-dist: * README: Remove VMS support. * vms: Remove directory.
2008-07-31 05:33:56 +00:00
;; Filenames are absolute.
*** empty log message ***
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)))
*** empty log message ***
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)))
Initial revision
1992-05-30 23:52:26 +00:00
(save-excursion
*** empty log message ***
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))
*** empty log message ***
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)
*** empty log message ***
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)
(dired-readin): Clear out undo list. (dired-fun-in-all-buffers): Definition moved from dired-aux.el. (dired-delete-entry): New function. (dired-internal-do-deletions): Use dired-fun-in-all-buffers and dired-delete-entry, to update this buffer (and others).
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))
*** empty log message ***
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)
*** empty log message ***
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))
(dired-readin): Clear out undo list. (dired-fun-in-all-buffers): Definition moved from dired-aux.el. (dired-delete-entry): New function. (dired-internal-do-deletions): Use dired-fun-in-all-buffers and dired-delete-entry, to update this buffer (and others).
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))
Cygwin support patch.
2003-01-31 15:24:20 +00:00
;; Delete the entry for FILE from
(dired-readin): Clear out undo list. (dired-fun-in-all-buffers): Definition moved from dired-aux.el. (dired-delete-entry): New function. (dired-internal-do-deletions): Use dired-fun-in-all-buffers and dired-delete-entry, to update this buffer (and others).
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))
(dired-readin): Clear out undo list. (dired-fun-in-all-buffers): Definition moved from dired-aux.el. (dired-delete-entry): New function. (dired-internal-do-deletions): Use dired-fun-in-all-buffers and dired-delete-entry, to update this buffer (and others).
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))
*** empty log message ***
1992-06-24 02:13:56 +00:00
;; This is a separate function for the sake of dired-x.el.
(defun dired-clean-up-after-deletion (fn)
;; Clean up after a deleted file or directory FN.
entered into RCS
1992-09-19 19:40:38 +00:00
(save-excursion (and (cdr dired-subdir-alist)
(dired-goto-subdir fn)
*** empty log message ***
1992-06-24 02:13:56 +00:00
(dired-kill-subdir))))
Revert last change.
2001-01-26 13:14:11 +00:00
*** empty log message ***
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)
(dired-mark-prompt): Don't count/display the t element. Reported by Carsten Blaauw <it-media.blaauw@daimler.com>.
2008-02-22 18:47:26 +00:00
"Return a string for use in a prompt, either the current file
name, or the marker and a count of marked files."
;; distinguish-one-marked can cause the first element to be just t.
(if (eq (car files) t) (setq files (cdr files)))
*** empty log message ***
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)
(dired-pop-to-buffer): Don't split windows horizontally. (Bug#1806)
2009-01-07 09:58:23 +00:00
"Pop up buffer BUF in a way suitable for Dired."
(dired-pop-to-buffer): Try to make this behave the Emacs 22 way (Bug#1806).
2009-05-15 15:00:32 +00:00
(let ((split-window-preferred-function
(lambda (window)
(dired-pop-to-buffer): Fix last fix.
2009-05-15 18:14:03 +00:00
(or (and (let ((split-height-threshold 0))
(window-splittable-p (selected-window)))
(dired-pop-to-buffer): Try to make this behave the Emacs 22 way (Bug#1806).
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.
* dired.el (dired-pop-to-buffer): Bind pop-up-frames to nil (Bug#7533).
2010-12-04 22:43:51 +00:00
(split-window-sensibly window))))
pop-up-frames)
(dired-pop-to-buffer): Don't split windows horizontally. (Bug#1806)
2009-01-07 09:58:23 +00:00
(pop-to-buffer (get-buffer-create buf)))
*** empty log message ***
1992-06-24 02:13:56 +00:00
;; If dired-shrink-to-fit is t, make its window fit its contents.
(dired-pop-to-buffer): Use fit-window-to-buffer when dired-shrink-to-fit is non-nil. (Bug#1488)
2008-12-11 09:48:08 +00:00
(when dired-shrink-to-fit
(dired-pop-to-buffer): Call with min-height arg 1 to make sure that small buffers get shown.
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)))
*** empty log message ***
1992-06-24 02:13:56 +00:00
(dired-move-to-filename-regexp): Define as alias. (dired-no-confirm): Use defcustom. (dired-subdir-alist-pre-R): Put defvar at top level.
2006-01-19 17:50:15 +00:00
(defcustom dired-no-confirm nil
* dired.el (dired-no-confirm): Document value t and fix defcustom (bug#6597).
2010-07-22 12:15:31 +00:00
"A list of symbols for commands Dired should not confirm, or t.
Doc dired-no-confirm and allow t value.
1997-03-20 12:37:06 +00:00
Command symbols are `byte-compile', `chgrp', `chmod', `chown', `compress',
Add autoload for `dired-do-touch'. (dired-touch-program): New var. (dired-mode-map): Bind `dired-do-touch' to T and add menu-item. (dired-no-confirm): Add `touch' to docstring.
2004-03-31 16:29:46 +00:00
`copy', `delete', `hardlink', `load', `move', `print', `shell', `symlink',
* dired.el (dired-no-confirm): Document value t and fix defcustom (bug#6597).
2010-07-22 12:15:31 +00:00
`touch' and `uncompress'.
If t, confirmation is never needed."
(dired-move-to-filename-regexp): Define as alias. (dired-no-confirm): Use defcustom. (dired-subdir-alist-pre-R): Put defvar at top level.
2006-01-19 17:50:15 +00:00
:group 'dired
* dired.el (dired-no-confirm): Document value t and fix defcustom (bug#6597).
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))))
*** empty log message ***
1992-06-24 02:13:56 +00:00
(defun dired-mark-pop-up (bufname op-symbol files function &rest args)
(dired-mark-pop-up): Doc fix.
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).
(dired-mark-pop-up): Turn comment into docstring. Use with-current-buffer.
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'.
(dired-map-over-marks): New arg distinguish-one-marked. (dired-get-marked-files): New arg distinguish-one-marked. (dired-mark-pop-up): Handle FILES = (t FILE) specially.
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."
*** empty log message ***
1992-06-24 02:13:56 +00:00
(or bufname (setq bufname " *Marked Files*"))
Doc dired-no-confirm and allow t value.
1997-03-20 12:37:06 +00:00
(if (or (eq dired-no-confirm t)
(memq op-symbol dired-no-confirm)
(dired-map-over-marks): New arg distinguish-one-marked. (dired-get-marked-files): New arg distinguish-one-marked. (dired-mark-pop-up): Handle FILES = (t FILE) specially.
2005-05-15 21:33:25 +00:00
;; If FILES defaulted to the current line's file.
*** empty log message ***
1992-06-24 02:13:56 +00:00
(= (length files) 1))
(apply function args)
(dired-mark-pop-up): Turn comment into docstring. Use with-current-buffer.
2000-10-04 23:38:28 +00:00
(with-current-buffer (get-buffer-create bufname)
*** empty log message ***
1992-06-24 02:13:56 +00:00
(erase-buffer)
(dired-map-over-marks): New arg distinguish-one-marked. (dired-get-marked-files): New arg distinguish-one-marked. (dired-mark-pop-up): Handle FILES = (t FILE) specially.
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))
(dired-mark-pop-up): Fix last change.
2001-06-18 06:51:38 +00:00
(remove-text-properties (point-min) (point-max)
'(mouse-face nil help-echo nil)))
*** empty log message ***
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)
(dired-format-columns-of-files): Use completion--insert-strings.
2008-05-02 17:39:02 +00:00
(let ((beg (point)))
(completion--insert-strings files)
(put-text-property beg (point) 'mouse-face nil)))
Revert last change.
2001-01-26 13:14:11 +00:00
*** empty log message ***
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.
(dired-repeat-over-lines): Going fwd, skip new lines that FUNCTION inserts after the current line. Going backwd, no need for dired-move-to-filename each time.
1993-06-15 07:59:07 +00:00
(let ((pos (make-marker)))
*** empty log message ***
1992-06-24 02:13:56 +00:00
(beginning-of-line)
(dired-repeat-over-lines): Going fwd, skip new lines that FUNCTION inserts after the current line. Going backwd, no need for dired-move-to-filename each time.
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)))
*** empty log message ***
1992-06-24 02:13:56 +00:00
(defun dired-between-files ()
Revision: miles@gnu.org--gnu-2003/emacs--cvs-trunk--0--patch-135 Make dired more robust for non-english locales. lisp/dired.el (dired-between-files): Always use dired-move-to-filename, which is more robust in non-english locales.
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))))
*** empty log message ***
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))
*** empty log message ***
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")
(dired-mark): If on dir header line, always mark the files in that dir.
1995-02-09 09:40:01 +00:00
(if (dired-get-subdir)
*** empty log message ***
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))
*** empty log message ***
1992-06-24 02:13:56 +00:00
(dired-repeat-over-lines
*** empty log message ***
1992-07-21 22:40:10 +00:00
(prefix-numeric-value arg)
*** empty log message ***
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)
Many trivial doc fixes. (dired-get-file-for-visit): New function. (dired-find-alternate-file, dired-mouse-find-file-other-window): (dired-view-file, dired-find-file-other-window, dired-display-file): (dired-find-file): Use dired-get-file-for-visit.
2001-11-12 17:05:13 +00:00
"In Dired, flag the current line's file for deletion.
*** empty log message ***
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)
Many trivial doc fixes. (dired-get-file-for-visit): New function. (dired-find-alternate-file, dired-mouse-find-file-other-window): (dired-view-file, dired-find-file-other-window, dired-display-file): (dired-find-file): Use dired-get-file-for-visit.
2001-11-12 17:05:13 +00:00
"In Dired, move up lines and remove deletion flag there.
*** empty log message ***
1992-06-24 02:13:56 +00:00
Optional prefix ARG says how many lines to unflag; default is one line."
(interactive "p")
(dired-unmark (- arg)))
(dired-do-toggle): Moved here from dired-x.el. (dired-mode-map): Changed dired-do-toggle from "T" to "t".
1998-02-27 21:45:01 +00:00
(dired-toggle-marks): Renamed from dired-do-toggle. Bindings changed.
2002-03-28 18:32:59 +00:00
(defun dired-toggle-marks ()
"Toggle marks: marked files become unmarked, and vice versa.
(dired-do-toggle): Moved here from dired-x.el. (dired-mode-map): Changed dired-do-toggle from "T" to "t".
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))
(dired-do-toggle): Moved here from dired-x.el. (dired-mode-map): Changed dired-do-toggle from "T" to "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)))))
Revert last change.
2001-01-26 13:14:11 +00:00
*** empty log message ***
1992-06-24 02:13:56 +00:00
;;; Commands to mark or flag files based on their characteristics or names.
(dired-regexp-history): New history list. (dired-read-regexp): Use that history list. Take just one arg.
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))
*** empty log message ***
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")))
(dired-mark-files-containing-regexp): New command. (dired-mode-map): Bind it to %g and in menu bar.
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)))
(dired-mark-files-containing-regexp): Don't scan directories. Ignore non-readable files.
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))))
(dired-mark-files-containing-regexp): Don't use find-file; instead, insert the file in a temp buffer.
1998-09-04 20:43:09 +00:00
)))
(dired-mark-files-containing-regexp): New command. (dired-mode-map): Bind it to %g and in menu bar.
1998-05-24 00:55:39 +00:00
"matching file")))
*** empty log message ***
1992-06-24 02:13:56 +00:00
(defun dired-flag-files-regexp (regexp)
Many trivial doc fixes. (dired-get-file-for-visit): New function. (dired-find-alternate-file, dired-mouse-find-file-other-window): (dired-view-file, dired-find-file-other-window, dired-display-file): (dired-find-file): Use dired-get-file-for-visit.
2001-11-12 17:05:13 +00:00
"In Dired, flag all files containing the specified REGEXP for deletion.
*** empty log message ***
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.
With prefix argument, unflag all those files."
(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 `..'.
With prefix argument, unflag all those files."
(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.
With prefix argument, unflag all those files."
(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)
Initial revision
1992-05-30 23:52:26 +00:00
"Flag for deletion files whose names suggest they are auto save files.
A prefix argument says to unflag those files instead."
(interactive "P")
*** empty log message ***
1992-06-24 02:13:56 +00:00
(let ((dired-marker-char (if unflag-p ?\040 dired-del-marker)))
(dired-mark-if
Comment change.
1993-06-11 05:56:00 +00:00
;; It is less than general to check for # here,
(dired-flag-backup-files): Speedup: check explicitly for ~ at end of line. (dired-flag-auto-save-files): Similar change.
1993-05-24 23:03:04 +00:00
;; but it's the only way this runs fast enough.
(and (save-excursion (end-of-line)
(dired-flag-auto-save-files): Ignore `*' added by ls -F.
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) ?#)))))
(dired-flag-backup-files): Speedup: check explicitly for ~ at end of line. (dired-flag-auto-save-files): Similar change.
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")))
*** empty log message ***
1992-06-24 02:13:56 +00:00
(dired) <defgroup>: Add link to manual. (dired-font-lock-keywords): Ad highlighting on unusual permissions. (dired-revert): Use dolist. (dired-mode-map): Add U binding. (dired-mode): Add font-lock-beginning-of-syntax-function. (dired-garbage-files-regexp): Make it a defcustom.
2004-03-23 21:44:31 +00:00
(defcustom dired-garbage-files-regexp
Fix comments.
2004-03-25 10:40:59 +00:00
;; `log' here is dubious, since it's typically used for useful log
(dired) <defgroup>: Add link to manual. (dired-font-lock-keywords): Ad highlighting on unusual permissions. (dired-revert): Use dolist. (dired-mode-map): Add U binding. (dired-mode): Add font-lock-beginning-of-syntax-function. (dired-garbage-files-regexp): Make it a defcustom.
2004-03-23 21:44:31 +00:00
;; files, not just TeX stuff. -- fx
(dired-garbage-files-regexp): Use \\' instead of $ and use regexp-opt for readability.
2003-01-10 16:42:27 +00:00
(concat (regexp-opt
'(".log" ".toc" ".dvi" ".bak" ".orig" ".rej" ".aux"))
Cygwin support patch.
2003-01-31 15:24:20 +00:00
"\\'")
(dired) <defgroup>: Add link to manual. (dired-font-lock-keywords): Ad highlighting on unusual permissions. (dired-revert): Use dolist. (dired-mode-map): Add U binding. (dired-mode): Add font-lock-beginning-of-syntax-function. (dired-garbage-files-regexp): Make it a defcustom.
2004-03-23 21:44:31 +00:00
"Regular expression to match \"garbage\" files for `dired-flag-garbage-files'."
:type 'regexp
:group 'dired)
(dired-garbage-files-regexp): New variable. (dired-flag-garbage-files): New command. (dired-mode-map): Put dired-flag-garbage-files on & and in menu.
1997-01-04 00:10:30 +00:00
(defun dired-flag-garbage-files ()
"Flag for deletion all files that match `dired-garbage-files-regexp'."
(dired-flag-garbage-files): Move interactive flag across doc string.
1997-09-06 22:22:24 +00:00
(interactive)
(dired-garbage-files-regexp): New variable. (dired-flag-garbage-files): New command. (dired-mode-map): Put dired-flag-garbage-files on & and in menu.
1997-01-04 00:10:30 +00:00
(dired-flag-files-regexp dired-garbage-files-regexp))
*** empty log message ***
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.
With prefix argument, unflag these files."
(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)))
*** empty log message ***
1992-06-24 02:13:56 +00:00
(dired-mark-if
(dired-flag-backup-files): Under MS-DOS, search for possible backup files by checking for filenames which end with a `k' (the backup extension is `.bak').
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,
(dired-flag-backup-files): Speedup: check explicitly for ~ at end of line. (dired-flag-auto-save-files): Similar change.
1993-05-24 23:03:04 +00:00
;; but it's the only way this runs fast enough.
(and (save-excursion (end-of-line)
(dired-flag-backup-files): Under MS-DOS, search for possible backup files by checking for filenames which end with a `k' (the backup extension is `.bak').
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))
(dired-flag-backup-files): Undo previous change.
1995-12-19 21:39:23 +00:00
(eq (preceding-char) ?~))
(dired-flag-backup-files): Speedup: check explicitly for ~ at end of line. (dired-flag-auto-save-files): Similar change.
1993-05-24 23:03:04 +00:00
(not (looking-at dired-re-dir))
*** empty log message ***
1992-06-24 02:13:56 +00:00
(let ((fn (dired-get-filename t t)))
(if fn (backup-file-name-p fn))))
"backup file")))
*** empty log message ***
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)))
(dired-change-marks): Just ding if one arg is RET. Search for strings, not regexps. Use subst-char-in-region.
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))
(dired-change-marks): Just ding if one arg is RET. Search for strings, not regexps. Use subst-char-in-region.
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)
(dired-change-marks): If OLD is a space, don't act on non-file lines.
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)))))))
*** empty log message ***
1992-08-03 03:44:51 +00:00
(dired-unmark-all-marks): Renamed from dired-unmark-all-files-no-query.
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."
(dired-unmark-all-files-no-query): New command. (dired-mode-map): Use that for the Unmark All item. Fix typo that made the Flag Backup Files item not show up.
1993-07-20 01:11:28 +00:00
(interactive)
(dired-unmark-all-files ?\r))
(dired-unmark-all-files): Read arg as a string.
1993-05-25 22:59:26 +00:00
(defun dired-unmark-all-files (mark &optional arg)
(dired-unmark-all-files): Read arg as just a character. Use non-regexp search to find a specific mark. Use subst-char-in-region to make the change. Improve the message at the end.
1993-06-06 21:13:16 +00:00
"Remove a specific mark (or any mark) from every file.
Cygwin support patch.
2003-01-31 15:24:20 +00:00
After this command, type the mark character to remove,
(dired-unmark-all-files): Read arg as just a character. Use non-regexp search to find a specific mark. Use subst-char-in-region to make the change. Improve the message at the end.
1993-06-06 21:13:16 +00:00
or type RET to remove all marks.
(dired-unmark-all-files): Read the arg as just a char.
1993-04-05 06:23:05 +00:00
With prefix arg, query for each marked file.
*** empty log message ***
1992-06-24 02:13:56 +00:00
Type \\[help-command] at that time for help."
(dired-unmark-all-files): Read arg as just a character. Use non-regexp search to find a specific mark. Use subst-char-in-region to make the change. Improve the message at the end.
1993-06-06 21:13:16 +00:00
(interactive "cRemove marks (RET means all): \nP")
(save-excursion
(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) case-fold-search query
(dired-unmark-all-files): Read arg as just a character. Use non-regexp search to find a specific mark. Use subst-char-in-region to make the change. Improve the message at the end.
1993-06-06 21:13:16 +00:00
(string (format "\n%c" mark))
(help-form "\
(dired-unmark-all-files): Read arg as a string.
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."))
(dired-unmark-all-files): Read arg as just a character. Use non-regexp search to find a specific mark. Use subst-char-in-region to make the change. Improve the message at the end.
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)
(dired-get-filename): Err for . and .. in usual case. (dired-get-file-for-visit): Specify no-error to dired-get-filename, and check for real errors here. (dired-unmark-all-files): Specify no-error to dired-get-filename.
2003-06-04 09:02:55 +00:00
(let ((file (dired-get-filename t t)))
(and file
(dired-query 'query "Unmark file `%s'? "
file))))
(dired-unmark-all-files): Read arg as just a character. Use non-regexp search to find a specific mark. Use subst-char-in-region to make the change. Improve the message at the end.
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)
(dired-unmark-all-files): Read arg as just a character. Use non-regexp search to find a specific mark. Use subst-char-in-region to make the change. Improve the message at the end.
1993-06-06 21:13:16 +00:00
(setq count (1+ count)))))
(message (if (= count 1) "1 mark removed"
"%d marks removed")
count))))
Revert last change.
2001-01-26 13:14:11 +00:00
*** empty log message ***
1992-06-24 02:13:56 +00:00
;; Logging failures operating on files, and showing the results.
Initial revision
1992-05-30 23:52:26 +00:00
*** empty log message ***
1992-06-24 02:13:56 +00:00
(defvar dired-log-buffer "*Dired log*")
Initial revision
1992-05-30 23:52:26 +00:00
*** empty log message ***
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
*** empty log message ***
1992-08-03 03:44:51 +00:00
(progn
*** empty log message ***
1992-06-24 02:13:56 +00:00
(select-window window)
(goto-char (point-max))
(dired-use-ls-dired): New variable. (dired-directory): Document the rules better. (dired-insert-headerline): Function deleted. (dired-revert): Pass no args to dired-readin. (dired-move-to-filename): First try using dired-filename property. (dired-move-to-end-of-filename): Likewise. (dired-why): Try to show the start of this page of warnings. (dired-log): Insert the buffer name at start of page, not end. (dired-log-summary): If just one failure, explain it in echo area. (dired-internal-noselect): Always set dired-directory, when buffer is not new. Pass dir-or-list, not dirname, to dired-mode. Call dired-readin with no args. Don't call dired-after-readin-hook here. (dired-find-buffer-nocreate): Expand dirname. Expand the dir from dired-directory to compare with dirname. (dired-readin): Take no args. Get the directory from dired-directory. Run dired-before-reading hook inside save-excursion. Run dired-after-readin-hook here. Don't make undo entries at all. Call dired-readin-insert with no args. Don't change indentation here. Don't insert headerline here. (dired-readin-insert): Take no args. Get dir and file-list from dired-directory. Call dired-insert-directory the new way. Don't insert "wildcard" info here. (dired-insert-directory): New arg FILE-LIST. First arg now DIR, always just the directory. This function fully handles setting up the buffer text: update indentation, insert headerline and "wildcard" info. Pass --dired arg if appropriate; put info in dired-filename props. Don't expand file names here.
2002-09-15 01:52:54 +00:00
(forward-line -1)
(backward-page 1)
(recenter 0))
*** empty log message ***
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.
Cygwin support patch.
2003-01-31 15:24:20 +00:00
;; End each bunch of errors with (dired-log t):
(dired-use-ls-dired): New variable. (dired-directory): Document the rules better. (dired-insert-headerline): Function deleted. (dired-revert): Pass no args to dired-readin. (dired-move-to-filename): First try using dired-filename property. (dired-move-to-end-of-filename): Likewise. (dired-why): Try to show the start of this page of warnings. (dired-log): Insert the buffer name at start of page, not end. (dired-log-summary): If just one failure, explain it in echo area. (dired-internal-noselect): Always set dired-directory, when buffer is not new. Pass dir-or-list, not dirname, to dired-mode. Call dired-readin with no args. Don't call dired-after-readin-hook here. (dired-find-buffer-nocreate): Expand dirname. Expand the dir from dired-directory to compare with dirname. (dired-readin): Take no args. Get the directory from dired-directory. Run dired-before-reading hook inside save-excursion. Run dired-after-readin-hook here. Don't make undo entries at all. Call dired-readin-insert with no args. Don't change indentation here. Don't insert headerline here. (dired-readin-insert): Take no args. Get dir and file-list from dired-directory. Call dired-insert-directory the new way. Don't insert "wildcard" info here. (dired-insert-directory): New arg FILE-LIST. First arg now DIR, always just the directory. This function fully handles setting up the buffer text: update indentation, insert headerline and "wildcard" info. Pass --dired arg if appropriate; put info in dired-filename props. Don't expand file names here.
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.
*** empty log message ***
1992-06-24 02:13:56 +00:00
(let ((obuf (current-buffer)))
(dired-use-ls-dired): New variable. (dired-directory): Document the rules better. (dired-insert-headerline): Function deleted. (dired-revert): Pass no args to dired-readin. (dired-move-to-filename): First try using dired-filename property. (dired-move-to-end-of-filename): Likewise. (dired-why): Try to show the start of this page of warnings. (dired-log): Insert the buffer name at start of page, not end. (dired-log-summary): If just one failure, explain it in echo area. (dired-internal-noselect): Always set dired-directory, when buffer is not new. Pass dir-or-list, not dirname, to dired-mode. Call dired-readin with no args. Don't call dired-after-readin-hook here. (dired-find-buffer-nocreate): Expand dirname. Expand the dir from dired-directory to compare with dirname. (dired-readin): Take no args. Get the directory from dired-directory. Run dired-before-reading hook inside save-excursion. Run dired-after-readin-hook here. Don't make undo entries at all. Call dired-readin-insert with no args. Don't change indentation here. Don't insert headerline here. (dired-readin-insert): Take no args. Get dir and file-list from dired-directory. Call dired-insert-directory the new way. Don't insert "wildcard" info here. (dired-insert-directory): New arg FILE-LIST. First arg now DIR, always just the directory. This function fully handles setting up the buffer text: update indentation, insert headerline and "wildcard" info. Pass --dired arg if appropriate; put info in dired-filename props. Don't expand file names here.
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)
(dired-log): Use `insert-buffer-substring', not `insert-buffer'.
2005-07-18 10:24:58 +00:00
(insert-buffer-substring log))
(dired-use-ls-dired): New variable. (dired-directory): Document the rules better. (dired-insert-headerline): Function deleted. (dired-revert): Pass no args to dired-readin. (dired-move-to-filename): First try using dired-filename property. (dired-move-to-end-of-filename): Likewise. (dired-why): Try to show the start of this page of warnings. (dired-log): Insert the buffer name at start of page, not end. (dired-log-summary): If just one failure, explain it in echo area. (dired-internal-noselect): Always set dired-directory, when buffer is not new. Pass dir-or-list, not dirname, to dired-mode. Call dired-readin with no args. Don't call dired-after-readin-hook here. (dired-find-buffer-nocreate): Expand dirname. Expand the dir from dired-directory to compare with dirname. (dired-readin): Take no args. Get the directory from dired-directory. Run dired-before-reading hook inside save-excursion. Run dired-after-readin-hook here. Don't make undo entries at all. Call dired-readin-insert with no args. Don't change indentation here. Don't insert headerline here. (dired-readin-insert): Take no args. Get dir and file-list from dired-directory. Call dired-insert-directory the new way. Don't insert "wildcard" info here. (dired-insert-directory): New arg FILE-LIST. First arg now DIR, always just the directory. This function fully handles setting up the buffer text: update indentation, insert headerline and "wildcard" info. Pass --dired arg if appropriate; put info in dired-filename props. Don't expand file names here.
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")))))))
*** empty log message ***
1992-06-24 02:13:56 +00:00
(defun dired-log-summary (string failures)
(dired-log-summary): Add doc string.
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."
(dired-use-ls-dired): New variable. (dired-directory): Document the rules better. (dired-insert-headerline): Function deleted. (dired-revert): Pass no args to dired-readin. (dired-move-to-filename): First try using dired-filename property. (dired-move-to-end-of-filename): Likewise. (dired-why): Try to show the start of this page of warnings. (dired-log): Insert the buffer name at start of page, not end. (dired-log-summary): If just one failure, explain it in echo area. (dired-internal-noselect): Always set dired-directory, when buffer is not new. Pass dir-or-list, not dirname, to dired-mode. Call dired-readin with no args. Don't call dired-after-readin-hook here. (dired-find-buffer-nocreate): Expand dirname. Expand the dir from dired-directory to compare with dirname. (dired-readin): Take no args. Get the directory from dired-directory. Run dired-before-reading hook inside save-excursion. Run dired-after-readin-hook here. Don't make undo entries at all. Call dired-readin-insert with no args. Don't change indentation here. Don't insert headerline here. (dired-readin-insert): Take no args. Get dir and file-list from dired-directory. Call dired-insert-directory the new way. Don't insert "wildcard" info here. (dired-insert-directory): New arg FILE-LIST. First arg now DIR, always just the directory. This function fully handles setting up the buffer text: update indentation, insert headerline and "wildcard" info. Pass --dired arg if appropriate; put info in dired-filename props. Don't expand file names here.
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))
*** empty log message ***
1992-06-24 02:13:56 +00:00
;; Log a summary describing a bunch of errors.
(dired-use-ls-dired): New variable. (dired-directory): Document the rules better. (dired-insert-headerline): Function deleted. (dired-revert): Pass no args to dired-readin. (dired-move-to-filename): First try using dired-filename property. (dired-move-to-end-of-filename): Likewise. (dired-why): Try to show the start of this page of warnings. (dired-log): Insert the buffer name at start of page, not end. (dired-log-summary): If just one failure, explain it in echo area. (dired-internal-noselect): Always set dired-directory, when buffer is not new. Pass dir-or-list, not dirname, to dired-mode. Call dired-readin with no args. Don't call dired-after-readin-hook here. (dired-find-buffer-nocreate): Expand dirname. Expand the dir from dired-directory to compare with dirname. (dired-readin): Take no args. Get the directory from dired-directory. Run dired-before-reading hook inside save-excursion. Run dired-after-readin-hook here. Don't make undo entries at all. Call dired-readin-insert with no args. Don't change indentation here. Don't insert headerline here. (dired-readin-insert): Take no args. Get dir and file-list from dired-directory. Call dired-insert-directory the new way. Don't insert "wildcard" info here. (dired-insert-directory): New arg FILE-LIST. First arg now DIR, always just the directory. This function fully handles setting up the buffer text: update indentation, insert headerline and "wildcard" info. Pass --dired arg if appropriate; put info in dired-filename props. Don't expand file names here.
2002-09-15 01:52:54 +00:00
(dired-log (concat "\n" string "\n"))
*** empty log message ***
1992-06-24 02:13:56 +00:00
(dired-log t))
Revert last change.
2001-01-26 13:14:11 +00:00
*** empty log message ***
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"
(dired-align-file): Don't assume line starts with spaces.
2004-11-22 05:07:07 +00:00
"String of `ls' switches \(single letters\) except \"t\" that influence sorting.
(dired-ls-sorting-switches): Doc fix.
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]'.")
*** empty log message ***
1992-06-24 02:13:56 +00:00
(defvar dired-sort-by-date-regexp
Improve ls date switch parsing in Dired (Bug#6987). * dired.el (dired-ls-sorting-switches, dired-sort-by-name-regexp): Improve regexps (Bug#6987). (dired-sort-toggle): Search more robustly for -t flag.
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.")
*** empty log message ***
1992-06-24 02:13:56 +00:00
(defvar dired-sort-by-name-regexp
Improve ls date switch parsing in Dired (Bug#6987). * dired.el (dired-ls-sorting-switches, dired-sort-by-name-regexp): Improve regexps (Bug#6987). (dired-sort-toggle): Search more robustly for -t flag.
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.")
*** empty log message ***
1992-06-24 02:13:56 +00:00
(dired-sort-inhibit): New variable. (dired-sort-toggle-or-edit): Err if dired-sort-inhibit non-nil.
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.")
(dired-sort-inhibit): New variable. (dired-sort-toggle-or-edit): Err if dired-sort-inhibit non-nil.
2002-11-21 17:31:51 +00:00
*** empty log message ***
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.
(dired-sort-other): Move test for dired-mode... (dired-sort-set-modeline): ...to here.
2006-12-29 23:57:38 +00:00
(when (eq major-mode 'dired-mode)
(setq mode-name
(let (case-fold-search)
(dired-recursive-deletes, dired-recursive-copies): Doc fixes.
2007-05-16 10:51:25 +00:00
(cond ((string-match
(dired-sort-other): Move test for dired-mode... (dired-sort-set-modeline): ...to here.
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)))
*** empty log message ***
1992-06-24 02:13:56 +00:00
(defun dired-sort-toggle-or-edit (&optional arg)
Improve ls date switch parsing in Dired (Bug#6987). * dired.el (dired-ls-sorting-switches, dired-sort-by-name-regexp): Improve regexps (Bug#6987). (dired-sort-toggle): Search more robustly for -t flag.
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."
Initial revision
1992-05-30 23:52:26 +00:00
(interactive "P")
(dired-sort-inhibit): New variable. (dired-sort-toggle-or-edit): Err if dired-sort-inhibit non-nil.
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"))
*** empty log message ***
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.
Improve ls date switch parsing in Dired (Bug#6987). * dired.el (dired-ls-sorting-switches, dired-sort-by-name-regexp): Improve regexps (Bug#6987). (dired-sort-toggle): Search more robustly for -t flag.
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"))))
*** empty log message ***
1992-06-24 02:13:56 +00:00
(dired-sort-set-modeline)
(revert-buffer))
Revert last change.
2001-01-26 13:14:11 +00:00
;; Some user code loads dired especially for this.
Comment change.
2002-01-13 02:39:08 +00:00
;; Don't do that--use replace-regexp-in-string instead.
Revert last change.
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))))
*** empty log message ***
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.
(dired-mode): Use run-mode-hooks. (dired-move-to-end-of-filename): Use match-string.
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."
(dired-sort-R-check): Added to allow recursive listing to be undone. (dired-sort-other): Use it.
2000-07-24 12:27:26 +00:00
(dired-sort-R-check switches)
*** empty log message ***
1992-06-24 02:13:56 +00:00
(setq dired-actual-switches switches)
(dired-sort-other): Move test for dired-mode... (dired-sort-set-modeline): ...to here.
2006-12-29 23:57:38 +00:00
(dired-sort-set-modeline)
*** empty log message ***
1992-06-24 02:13:56 +00:00
(or no-revert (revert-buffer)))
(dired-sort-R-check): Added to allow recursive listing to be undone. (dired-sort-other): Use it.
2000-07-24 12:27:26 +00:00
(dired-move-to-filename-regexp): Define as alias. (dired-no-confirm): Use defcustom. (dired-subdir-alist-pre-R): Put defvar at top level.
2006-01-19 17:50:15 +00:00
(defvar dired-subdir-alist-pre-R nil
"Value of `dired-subdir-alist' before -R switch added.")
(dired-no-confirm): Add quote. (dired-subdir-alist-pre-R): Add quote in `make-variable-buffer-local' form and remove unbalanced parenthesis.
2006-01-19 19:29:20 +00:00
(make-variable-buffer-local 'dired-subdir-alist-pre-R)
(dired-sort-R-check): Added to allow recursive listing to be undone. (dired-sort-other): Use it.
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))))))))
Revert last change.
2001-01-26 13:14:11 +00:00
* x-dnd.el: New file for drag and drop. * term/x-win.el: require x-dnd, set after-make-frame-functions to x-dnd-init-frame, let x-dnd-handle-drag-n-drop-event handle drag-n-drop event. * dired.el (dired-dnd-test-function, dired-dnd-popup-notice) (dired-dnd-do-ask-action, dired-dnd-handle-local-file) (dired-dnd-handle-file): New functions for drag and drop support. (dired-mode): Initialize drag and drop if x-dnd present.
2004-02-03 16:55:30 +00:00
;;;; Drag and drop support
(dired-recursive-deletes, dired-recursive-copies): Change default to `top'.
2007-06-01 05:01:56 +00:00
(defcustom dired-recursive-copies 'top
* align.el: * allout.el: * apropos.el: * arc-mode.el: * autoinsert.el: * avoid.el: * battery.el: * bookmark.el: * buff-menu.el: * calculator.el: * chistory.el: * cmuscheme.el: * comint.el: * compare-w.el: * dabbrev.el: * delim-col.el: * desktop.el: * diff-mode.el: * diff.el: * dired-aux.el: * dired-x.el: * dired.el: * dos-vars.el: * ediff-diff.el: * ediff-help.el: * ediff-init.el: * ediff-merg.el: * ediff-mult.el: * ediff-ptch.el: * ediff-vers.el: * ediff-wind.el: * ediff.el: * emerge.el: * facemenu.el: * faces.el: * ffap.el: * filecache.el: * find-dired.el: * font-core.el: * font-lock.el: * forms.el: * fringe.el: * help-at-pt.el: * hippie-exp.el: * ido.el: * image-file.el: * imenu.el: * indent.el: * info.el: * isearchb.el: * iswitchb.el: * jit-lock.el: * jka-compr.el: * log-edit.el: * lpr.el: * ls-lisp.el: * man.el: * menu-bar.el: * midnight.el: * mouse-sel.el: * mouse.el: * msb.el: * outline.el: * paren.el: * pcmpl-cvs.el: * pcmpl-gnu.el: * pcomplete.el: * pcvs-info.el: * pcvs-parse.el: * printing.el: * ps-mule.el: * ps-print.el: * replace.el: * ruler-mode.el: * saveplace.el: * sb-image.el: * scroll-bar.el: * sha1.el: * shadowfile.el: * shell.el: * sort.el: * speedbar.el: * strokes.el: * tempo.el: * term.el: * terminal.el: * time-stamp.el: * time.el: * tree-widget.el: * type-break.el: * vc-cvs.el: * vc-hg.el: * vc-mcvs.el: * vc-rcs.el: * vc-sccs.el: * vc.el: * view.el: * w32-vars.el: * whitespace.el: * wid-edit.el: Remove leading * from docstrings of defcustoms, deffaces, defconsts and defuns.
2008-12-03 05:48:14 +00:00
"Decide whether recursive copies are allowed.
(dired-recursive-deletes, dired-recursive-copies): Doc fixes.
2007-05-16 10:51:25 +00:00
A value of nil means no recursive copies.
(dired-recursive-copies): Moved from dired-aux.el.
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)
* x-dnd.el: New file for drag and drop. * term/x-win.el: require x-dnd, set after-make-frame-functions to x-dnd-init-frame, let x-dnd-handle-drag-n-drop-event handle drag-n-drop event. * dired.el (dired-dnd-test-function, dired-dnd-popup-notice) (dired-dnd-do-ask-action, dired-dnd-handle-local-file) (dired-dnd-handle-file): New functions for drag and drop support. (dired-mode): Initialize drag and drop if x-dnd present.
2004-02-03 16:55:30 +00:00
(defun dired-dnd-popup-notice ()
(dired-dnd-popup-notice): Use message-box.
2005-05-23 23:36:18 +00:00
(message-box
(dired-dnd-handle-local-file): Obey dired-backup-overwrite for copy, move, and link operations.
2008-04-06 21:01:54 +00:00
"Dired recursive copies are currently disabled.\nSee the variable `dired-recursive-copies'."))
* x-dnd.el: New file for drag and drop. * term/x-win.el: require x-dnd, set after-make-frame-functions to x-dnd-init-frame, let x-dnd-handle-drag-n-drop-event handle drag-n-drop event. * dired.el (dired-dnd-test-function, dired-dnd-popup-notice) (dired-dnd-do-ask-action, dired-dnd-handle-local-file) (dired-dnd-handle-file): New functions for drag and drop support. (dired-mode): Initialize drag and drop if x-dnd present.
2004-02-03 16:55:30 +00:00
Update x-popup-menu declaration.
2009-11-10 08:11:47 +00:00
(declare-function x-popup-menu "menu.c" (position menu))
* x-dnd.el: New file for drag and drop. * term/x-win.el: require x-dnd, set after-make-frame-functions to x-dnd-init-frame, let x-dnd-handle-drag-n-drop-event handle drag-n-drop event. * dired.el (dired-dnd-test-function, dired-dnd-popup-notice) (dired-dnd-do-ask-action, dired-dnd-handle-local-file) (dired-dnd-handle-file): New functions for drag and drop support. (dired-mode): Initialize drag and drop if x-dnd present.
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.
(dired-subdir-switches, dired-switches-alist): New vars. (dired-insert-old-subdirs): Do not repeatedly delete and reinsert subdirs if -R switch is used for a subdir. (dired-mode): Set `dired-switches-alist'. (dired-build-subdir-alist): Only print number of directories in echo area when invoked interactively.
2004-06-06 02:22:41 +00:00
(let ((action (x-popup-menu
* x-dnd.el: New file for drag and drop. * term/x-win.el: require x-dnd, set after-make-frame-functions to x-dnd-init-frame, let x-dnd-handle-drag-n-drop-event handle drag-n-drop event. * dired.el (dired-dnd-test-function, dired-dnd-popup-notice) (dired-dnd-do-ask-action, dired-dnd-handle-local-file) (dired-dnd-handle-file): New functions for drag and drop support. (dired-mode): Initialize drag and drop if x-dnd present.
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)))
(dired-relist-entry): Declare as function.
2007-11-19 00:08:01 +00:00
(declare-function dired-relist-entry "dired-aux" (file))
(make-symbolic-link): Declare as function.
2007-11-22 13:48:39 +00:00
(declare-function make-symbolic-link "fileio.c")
(dired-relist-entry): Declare as function.
2007-11-19 00:08:01 +00:00
Add some compiler declarations, for builds without X.
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))
* x-dnd.el: New file for drag and drop. * term/x-win.el: require x-dnd, set after-make-frame-functions to x-dnd-init-frame, let x-dnd-handle-drag-n-drop-event handle drag-n-drop event. * dired.el (dired-dnd-test-function, dired-dnd-popup-notice) (dired-dnd-do-ask-action, dired-dnd-handle-local-file) (dired-dnd-handle-file): New functions for drag and drop support. (dired-mode): Initialize drag and drop if x-dnd present.
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)
* dired.el (dired-mode): Use dnd-* instead of x-dnd-* (dired-dnd-handle-local-file): Call dnd-get-local-file-name. (dired-dnd-handle-file): Call dnd-get-local-file-uri
2005-04-11 19:28:07 +00:00
(let* ((from (dnd-get-local-file-name uri t))
(dired-dnd-handle-local-file): Obey dired-backup-overwrite for copy, move, and link operations.
2008-04-06 20:58:20 +00:00
(to (when from
(concat (dired-current-directory)
(file-name-nondirectory from)))))
(dired-dnd-handle-local-file): Obey dired-backup-overwrite.
2008-04-06 20:11:47 +00:00
(when from
(dired-dnd-handle-local-file): Obey dired-backup-overwrite for copy, move, and link operations.
2008-04-06 20:58:20 +00:00
(cond ((eq action 'ask)
(dired-dnd-handle-local-file): Obey dired-backup-overwrite.
2008-04-06 20:11:47 +00:00
(dired-dnd-do-ask-action uri))
(dired-dnd-handle-local-file): Obey dired-backup-overwrite for copy, move, and link operations.
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))))))
* x-dnd.el: New file for drag and drop. * term/x-win.el: require x-dnd, set after-make-frame-functions to x-dnd-init-frame, let x-dnd-handle-drag-n-drop-event handle drag-n-drop event. * dired.el (dired-dnd-test-function, dired-dnd-popup-notice) (dired-dnd-do-ask-action, dired-dnd-handle-local-file) (dired-dnd-handle-file): New functions for drag and drop support. (dired-mode): Initialize drag and drop if x-dnd present.
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."
* dired.el (dired-mode): Use dnd-* instead of x-dnd-* (dired-dnd-handle-local-file): Call dnd-get-local-file-name. (dired-dnd-handle-file): Call dnd-get-local-file-uri
2005-04-11 19:28:07 +00:00
(let ((local-file (dnd-get-local-file-uri uri)))
* x-dnd.el: New file for drag and drop. * term/x-win.el: require x-dnd, set after-make-frame-functions to x-dnd-init-frame, let x-dnd-handle-drag-n-drop-event handle drag-n-drop event. * dired.el (dired-dnd-test-function, dired-dnd-popup-notice) (dired-dnd-do-ask-action, dired-dnd-handle-local-file) (dired-dnd-handle-file): New functions for drag and drop support. (dired-mode): Initialize drag and drop if x-dnd present.
2004-02-03 16:55:30 +00:00
(if local-file (dired-dnd-handle-local-file local-file action)
nil)))
(dired-restore-desktop-buffer) Move from desktop.el. Add parameters. Pause to display error only when desktop-missing-file-warning is non-nil. (dired-desktop-buffer-misc-data): Move from desktop.el. Add parameter.
2004-04-21 20:52:18 +00:00
;;;; Desktop support
(eval-when-compile (require 'desktop))
(defun dired-desktop-buffer-misc-data (desktop-dirname)
"Auxiliary information to be saved in desktop file."
(cons
;; Value of `dired-directory'.
(if (consp dired-directory)
;; Directory name followed by list of files.
(cons (desktop-file-name (car dired-directory) desktop-dirname)
(cdr dired-directory))
(dired-desktop-buffer-misc-data, dired-restore-desktop-buffer): Delete duplicate words.
2005-07-18 15:18:33 +00:00
;; Directory name, optionally with shell wildcard.
(dired-restore-desktop-buffer) Move from desktop.el. Add parameters. Pause to display error only when desktop-missing-file-warning is non-nil. (dired-desktop-buffer-misc-data): Move from desktop.el. Add parameter.
2004-04-21 20:52:18 +00:00
(desktop-file-name dired-directory desktop-dirname))
;; Subdirectories in `dired-subdir-alist'.
(cdr
(nreverse
(mapcar
(function (lambda (f) (desktop-file-name (car f) desktop-dirname)))
dired-subdir-alist)))))
* x-dnd.el: New file for drag and drop. * term/x-win.el: require x-dnd, set after-make-frame-functions to x-dnd-init-frame, let x-dnd-handle-drag-n-drop-event handle drag-n-drop event. * dired.el (dired-dnd-test-function, dired-dnd-popup-notice) (dired-dnd-do-ask-action, dired-dnd-handle-local-file) (dired-dnd-handle-file): New functions for drag and drop support. (dired-mode): Initialize drag and drop if x-dnd present.
2004-02-03 16:55:30 +00:00
(dired-restore-desktop-buffer) Move from desktop.el. Add parameters. Pause to display error only when desktop-missing-file-warning is non-nil. (dired-desktop-buffer-misc-data): Move from desktop.el. Add parameter.
2004-04-21 20:52:18 +00:00
(defun dired-restore-desktop-buffer (desktop-buffer-file-name
desktop-buffer-name
desktop-buffer-misc)
"Restore a dired buffer specified in a desktop file."
;; First element of `desktop-buffer-misc' is the value of `dired-directory'.
(dired-desktop-buffer-misc-data, dired-restore-desktop-buffer): Delete duplicate words.
2005-07-18 15:18:33 +00:00
;; This value is a directory name, optionally with shell wildcard or
(dired-restore-desktop-buffer) Move from desktop.el. Add parameters. Pause to display error only when desktop-missing-file-warning is non-nil. (dired-desktop-buffer-misc-data): Move from desktop.el. Add parameter.
2004-04-21 20:52:18 +00:00
;; a directory name followed by list of files.
(let* ((dired-dir (car desktop-buffer-misc))
(dir (if (consp dired-dir) (car dired-dir) dired-dir)))
(if (file-directory-p (file-name-directory dir))
(progn
(dired dired-dir)
;; The following elements of `desktop-buffer-misc' are the keys
;; from `dired-subdir-alist'.
(dired-restore-desktop-buffer): Use `mapc' rather than `mapcar'.
2007-09-25 10:45:04 +00:00
(mapc 'dired-maybe-insert-subdir (cdr desktop-buffer-misc))
(dired-restore-desktop-buffer) Move from desktop.el. Add parameters. Pause to display error only when desktop-missing-file-warning is non-nil. (dired-desktop-buffer-misc-data): Move from desktop.el. Add parameter.
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)))
* x-dnd.el: New file for drag and drop. * term/x-win.el: require x-dnd, set after-make-frame-functions to x-dnd-init-frame, let x-dnd-handle-drag-n-drop-event handle drag-n-drop event. * dired.el (dired-dnd-test-function, dired-dnd-popup-notice) (dired-dnd-do-ask-action, dired-dnd-handle-local-file) (dired-dnd-handle-file): New functions for drag and drop support. (dired-mode): Initialize drag and drop if x-dnd present.
2004-02-03 16:55:30 +00:00
Revert last change.
2005-08-14 23:45:46 +00:00
(add-to-list 'desktop-buffer-mode-handlers
'(dired-mode . dired-restore-desktop-buffer))
Add handler to desktop-buffer-mode-handlers. (dired-restore-desktop-buffer): Remove autoload cookie. (dired-mode): Add autoload cookie.
2005-08-10 19:39:16 +00:00
Revert last change.
2001-01-26 13:14:11 +00:00
Regenerate with extracted autoloads.
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
Merge from emacs-23
2010-12-13 15:27:36 +00:00
;;;;;; dired-diff) "dired-aux" "dired-aux.el" "2e8658304f56098052e312d01c8763a2")
Regenerate with extracted autoloads.
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.)
The prompted-for file is the first file given to `diff'.
With prefix arg, prompt for second argument SWITCHES,
which is options for `diff'.
\(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.
Fix typos. * allout.el * dired-aux.el * dired-x.el * epa-file.el * ps-print.el * shell.el * vc-hooks.el * vc-rcs.el * vc-sccs.el * vc.el * view.el * wdired.el * emacs-lisp/authors.el * net/dig.el * net/socks.el * net/zeroconf.el * obsolete/vc-mcvs.el * progmodes/gdb-mi.el * progmodes/grep.el * progmodes/idlw-help.el * progmodes/idlw-shell.el * progmodes/idlwave.el * progmodes/inf-lisp.el * textmodes/bibtex.el * textmodes/ispell.el * textmodes/reftex-toc.el
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.
Regenerate with extracted autoloads.
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" "\
Not documented
\(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" "\
Not documented
\(fn FILE)" nil nil)
(autoload 'dired-query "dired-aux" "\
Update.
2009-09-18 16:59:36 +00:00
Query user and return nil or t.
Store answer in symbol VAR (which must initially be bound to nil).
Format PROMPT with ARGS.
Binding variable `help-form' will help the user who types the help key.
Regenerate with extracted autoloads.
2009-09-11 06:50:49 +00:00
\(fn QS-VAR QS-PROMPT &rest QS-ARGS)" nil nil)
(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" "\
Not documented
\(fn FILENAME &optional MARKER-CHAR)" nil nil)
(autoload 'dired-remove-file "dired-aux" "\
Not documented
\(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" "\
Not documented
\(fn FROM TO OK-FLAG)" nil nil)
(autoload 'dired-rename-file "dired-aux" "\
Not documented
\(fn FILE NEWNAME OK-IF-ALREADY-EXISTS)" nil nil)
(autoload 'dired-create-directory "dired-aux" "\
Create a directory called DIRECTORY.
\(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.
* lisp/dired-aux.el (dired-hide-all): Make unused arg optional. Update md5sum.
2010-01-20 16:42:50 +00:00
\(fn &optional IGNORED)" t nil)
Regenerate with extracted autoloads.
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.
If FILE is a symbolic link and the optional argument DEREF-SYMLINKS is
true then the type of the file linked to by FILE is printed instead.
\(fn FILE &optional DEREF-SYMLINKS)" t nil)
;;;***
;;;### (autoloads (dired-do-relsymlink dired-jump) "dired-x" "dired-x.el"
Add "Package:" file headers to denote built-in packages.
2010-08-29 16:17:13 +00:00
;;;;;; "27c312d6d5d40d8cb4ef8d62e30d5f4a")
Regenerate with extracted autoloads.
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.
* dired-x.el (dired-jump, dired-jump-other-window): Add arg FILE-NAME to read from the minibuffer when called interactively with prefix argument instead of using buffer-file-name. http://lists.gnu.org/archive/html/emacs-devel/2010-05/msg00534.html * dired.el: Update autoloads.
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.
Regenerate with extracted autoloads.
2009-09-11 06:50:49 +00:00
* dired-x.el (dired-jump, dired-jump-other-window): Add arg FILE-NAME to read from the minibuffer when called interactively with prefix argument instead of using buffer-file-name. http://lists.gnu.org/archive/html/emacs-devel/2010-05/msg00534.html * dired.el: Update autoloads.
2010-05-20 21:33:58 +00:00
\(fn &optional OTHER-WINDOW FILE-NAME)" t nil)
Regenerate with extracted autoloads.
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.
*** empty log message ***
1992-07-21 22:40:10 +00:00
(provide 'dired)
`provide' "dired" before running user hooks.
1993-10-25 06:13:41 +00:00
(run-hooks 'dired-load-hook) ; for your customizations
*** empty log message ***
1992-07-21 22:40:10 +00:00
;;; dired.el ends here
Reference in New Issue Copy Permalink