Mercurial > emacs
annotate lisp/dired.el @ 19114:5e2c2c7ca25e
Alternative colors for standard faces if dark background.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 04 Aug 1997 02:57:47 +0000 |
parents | 41c3ad77f90a |
children | 2e448d41aa55 |
rev | line source |
---|---|
2229
bd3c525fa6fc
Added standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
1755
diff
changeset
|
1 ;;; dired.el --- directory-browsing commands |
834
2e0cd4e83c2e
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
778
diff
changeset
|
2 |
17206
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
3 ;; Copyright (C) 1985, 86, 92, 93, 94, 95, 96, 1997 Free Software Foundation, Inc. |
878
5b1c5b4286e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
834
diff
changeset
|
4 |
5803
4cd9bd412e4a
(dired-listing-switches): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
5483
diff
changeset
|
5 ;; Author: Sebastian Kremer <sk@thp.uni-koeln.de> |
4cd9bd412e4a
(dired-listing-switches): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
5483
diff
changeset
|
6 ;; Maintainer: FSF |
661 | 7 |
8 ;; This file is part of GNU Emacs. | |
9 | |
10 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
11 ;; it under the terms of the GNU General Public License as published by | |
834
2e0cd4e83c2e
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
778
diff
changeset
|
12 ;; the Free Software Foundation; either version 2, or (at your option) |
661 | 13 ;; any later version. |
14 | |
15 ;; GNU Emacs is distributed in the hope that it will be useful, | |
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 ;; GNU General Public License for more details. | |
19 | |
20 ;; You should have received a copy of the GNU General Public License | |
14169 | 21 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
23 ;; Boston, MA 02111-1307, USA. | |
661 | 24 |
834
2e0cd4e83c2e
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
778
diff
changeset
|
25 ;;; Commentary: |
2e0cd4e83c2e
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
778
diff
changeset
|
26 |
2307
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2229
diff
changeset
|
27 ;; This is a major mode for directory browsing and editing. It is |
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2229
diff
changeset
|
28 ;; documented in the Emacs manual. |
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2229
diff
changeset
|
29 |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
30 ;; Rewritten in 1990/1991 to add tree features, file marking and |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
31 ;; sorting by Sebastian Kremer <sk@thp.uni-koeln.de>. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
32 ;; Finished up by rms in 1992. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
33 |
834
2e0cd4e83c2e
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
778
diff
changeset
|
34 ;;; Code: |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
35 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
36 ;;; Customizable variables |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
37 |
17944
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
38 (defgroup dired nil |
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
39 "Directory editing." |
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
40 :group 'environment) |
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
41 |
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
42 (defgroup dired-mark nil |
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
43 "Handling marks in dired." |
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
44 :prefix "dired-" |
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
45 :group 'dired) |
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
46 |
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
47 |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
48 ;;;###autoload |
17944
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
49 (defcustom dired-listing-switches "-al" |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
50 "*Switches passed to `ls' for dired. MUST contain the `l' option. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
51 May contain all other options that don't contradict `-l'; |
5803
4cd9bd412e4a
(dired-listing-switches): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
5483
diff
changeset
|
52 may contain even `F', `b', `i' and `s'. See also the variable |
17944
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
53 `dired-ls-F-marks-symlinks' concerning the `F' switch." |
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
54 :type 'string |
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
55 :group 'dired) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
56 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
57 ; Don't use absolute paths as /bin should be in any PATH and people |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
58 ; may prefer /usr/local/gnu/bin or whatever. However, chown is |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
59 ; usually not in PATH. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
60 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
61 ;;;###autoload |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
62 (defvar dired-chown-program |
15944
b16cec756a7b
(dired-chown-program): Replace lignux with gnu/linux.
Richard M. Stallman <rms@gnu.org>
parents:
15348
diff
changeset
|
63 (if (memq system-type '(hpux dgux usg-unix-v irix linux gnu/linux)) |
15348
8d78b06fbb46
(dired-chown-program): Try /usr/sbin/chown.
Richard M. Stallman <rms@gnu.org>
parents:
14947
diff
changeset
|
64 "chown" |
8d78b06fbb46
(dired-chown-program): Try /usr/sbin/chown.
Richard M. Stallman <rms@gnu.org>
parents:
14947
diff
changeset
|
65 (if (file-exists-p "/usr/sbin/chown") |
8d78b06fbb46
(dired-chown-program): Try /usr/sbin/chown.
Richard M. Stallman <rms@gnu.org>
parents:
14947
diff
changeset
|
66 "/usr/sbin/chown" |
8d78b06fbb46
(dired-chown-program): Try /usr/sbin/chown.
Richard M. Stallman <rms@gnu.org>
parents:
14947
diff
changeset
|
67 "/etc/chown")) |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
3580
diff
changeset
|
68 "Name of chown command (usually `chown' or `/etc/chown').") |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
69 |
11396
9c92e5ea420a
(dired-chmod-program): Defined.
Karl Heuer <kwzh@gnu.org>
parents:
11151
diff
changeset
|
70 (defvar dired-chmod-program |
9c92e5ea420a
(dired-chmod-program): Defined.
Karl Heuer <kwzh@gnu.org>
parents:
11151
diff
changeset
|
71 (if (eq system-type 'windows-nt) |
9c92e5ea420a
(dired-chmod-program): Defined.
Karl Heuer <kwzh@gnu.org>
parents:
11151
diff
changeset
|
72 "chmode" "chmod") |
9c92e5ea420a
(dired-chmod-program): Defined.
Karl Heuer <kwzh@gnu.org>
parents:
11151
diff
changeset
|
73 "Name of chmod command (usually `chmod' or `chmode').") |
9c92e5ea420a
(dired-chmod-program): Defined.
Karl Heuer <kwzh@gnu.org>
parents:
11151
diff
changeset
|
74 |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
75 ;;;###autoload |
17944
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
76 (defcustom dired-ls-F-marks-symlinks nil |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
77 "*Informs dired about how `ls -lF' marks symbolic links. |
14146
36471d582fb2
(dired-ls-F-marks-symlinks): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
14107
diff
changeset
|
78 Set this to t if `ls' (or whatever program is specified by |
36471d582fb2
(dired-ls-F-marks-symlinks): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
14107
diff
changeset
|
79 `insert-directory-program') with `-lF' marks the symbolic link |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
80 itself with a trailing @ (usually the case under Ultrix). |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
81 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
82 Example: if `ln -s foo bar; ls -F bar' gives `bar -> foo', set it to |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
83 nil (the default), if it gives `bar@ -> foo', set it to t. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
84 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
85 Dired checks if there is really a @ appended. Thus, if you have a |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
86 marking `ls' program on one host and a non-marking on another host, and |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
87 don't care about symbolic links which really end in a @, you can |
17944
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
88 always set this variable to t." |
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
89 :type 'boolean |
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
90 :group 'dired-mark) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
91 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
92 ;;;###autoload |
17944
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
93 (defcustom dired-trivial-filenames "^\\.\\.?$\\|^#" |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
94 "*Regexp of files to skip when finding first file of a directory. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
95 A value of nil means move to the subdir line. |
17944
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
96 A value of t means move to first file." |
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
97 :type '(choice (const :tag "Move to subdir" nil) |
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
98 (const :tag "Move to first" t) |
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
99 regexp) |
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
100 :group 'dired) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
101 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
102 ;;;###autoload |
17944
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
103 (defcustom dired-keep-marker-rename t |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
104 ;; Use t as default so that moved files "take their markers with them". |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
105 "*Controls marking of renamed files. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
106 If t, files keep their previous marks when they are renamed. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
107 If a character, renamed files (whether previously marked or not) |
17944
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
108 are afterward marked with that character." |
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
109 :type '(choice (const :tag "Keep" t) |
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
110 (character :tag "Mark")) |
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
111 :group 'dired-mark) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
112 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
113 ;;;###autoload |
17944
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
114 (defcustom dired-keep-marker-copy ?C |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
115 "*Controls marking of copied files. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
116 If t, copied files are marked if and as the corresponding original files were. |
17944
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
117 If a character, copied files are unconditionally marked with that character." |
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
118 :type '(choice (const :tag "Keep" t) |
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
119 (character :tag "Mark")) |
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
120 :group 'dired-mark) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
121 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
122 ;;;###autoload |
17944
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
123 (defcustom dired-keep-marker-hardlink ?H |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
124 "*Controls marking of newly made hard links. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
125 If t, they are marked if and as the files linked to were marked. |
17944
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
126 If a character, new links are unconditionally marked with that character." |
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
127 :type '(choice (const :tag "Keep" t) |
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
128 (character :tag "Mark")) |
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
129 :group 'dired-mark) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
130 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
131 ;;;###autoload |
17944
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
132 (defcustom dired-keep-marker-symlink ?Y |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
133 "*Controls marking of newly made symbolic links. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
134 If t, they are marked if and as the files linked to were marked. |
17944
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
135 If a character, new links are unconditionally marked with that character." |
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
136 :type '(choice (const :tag "Keep" t) |
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
137 (character :tag "Mark")) |
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
138 :group 'dired-mark) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
139 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
140 ;;;###autoload |
17944
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
141 (defcustom dired-dwim-target nil |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
142 "*If non-nil, dired tries to guess a default target directory. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
143 This means: if there is a dired buffer displayed in the next window, |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
144 use its current subdir, instead of the current subdir of this dired buffer. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
145 |
17944
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
146 The target is used in the prompt for file copy, rename etc." |
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
147 :type 'boolean |
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
148 :group 'dired) |
661 | 149 |
150 ;;;###autoload | |
17944
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
151 (defcustom dired-copy-preserve-time t |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
152 "*If non-nil, Dired preserves the last-modified time in a file copy. |
17944
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
153 \(This works on only some systems.)" |
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
154 :type 'boolean |
0714535d0e28
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17811
diff
changeset
|
155 :group 'dired) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
156 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
157 ;;; Hook variables |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
158 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
159 (defvar dired-load-hook nil |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
160 "Run after loading dired. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
161 You can customize key bindings or load extensions with this.") |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
162 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
163 (defvar dired-mode-hook nil |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
164 "Run at the very end of dired-mode.") |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
165 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
166 (defvar dired-before-readin-hook nil |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
167 "This hook is run before a dired buffer is read in (created or reverted).") |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
168 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
169 (defvar dired-after-readin-hook nil |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
170 "Hook run after each time a file or directory is read by Dired. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
171 After each listing of a file or directory, this hook is run |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
172 with the buffer narrowed to the listing.") |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
173 ;; Note this can't simply be run inside function `dired-ls' as the hook |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
174 ;; functions probably depend on the dired-subdir-alist to be OK. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
175 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
176 ;;; Internal variables |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
177 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
178 (defvar dired-marker-char ?* ; the answer is 42 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
179 ;; so that you can write things like |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
180 ;; (let ((dired-marker-char ?X)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
181 ;; ;; great code using X markers ... |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
182 ;; ) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
183 ;; For example, commands operating on two sets of files, A and B. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
184 ;; Or marking files with digits 0-9. This could implicate |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
185 ;; concentric sets or an order for the marked files. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
186 ;; The code depends on dynamic scoping on the marker char. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
187 "In Dired, the current mark character. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
188 This is what the `do' commands look for and what the `mark' commands store.") |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
189 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
190 (defvar dired-del-marker ?D |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
191 "Character used to flag files for deletion.") |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
192 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
193 (defvar dired-shrink-to-fit |
878
5b1c5b4286e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
834
diff
changeset
|
194 t |
5b1c5b4286e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
834
diff
changeset
|
195 ;; I see no reason ever to make this nil -- rms. |
5b1c5b4286e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
834
diff
changeset
|
196 ;; (> baud-rate search-slow-speed) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
197 "Non-nil means Dired shrinks the display buffer to fit the marked files.") |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
198 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
199 (defvar dired-flagging-regexp nil);; Last regexp used to flag files. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
200 |
878
5b1c5b4286e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
834
diff
changeset
|
201 (defvar dired-file-version-alist) |
5b1c5b4286e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
834
diff
changeset
|
202 |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
203 (defvar dired-directory nil |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
204 "The directory name or shell wildcard that was used as argument to `ls'. |
2492
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
205 Local to each dired buffer. May be a list, in which case the car is the |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
206 directory name and the cdr is the actual files to list.") |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
207 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
208 (defvar dired-actual-switches nil |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
209 "The value of `dired-listing-switches' used to make this buffer's text.") |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
210 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
211 (defvar dired-re-inode-size "[0-9 \t]*" |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
212 "Regexp for optional initial inode and file size as made by `ls -i -s'.") |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
213 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
214 ;; These regexps must be tested at beginning-of-line, but are also |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
215 ;; used to search for next matches, so neither omitting "^" nor |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
216 ;; replacing "^" by "\n" (to make it slightly faster) will work. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
217 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
218 (defvar dired-re-mark "^[^ \n]") |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
219 ;; "Regexp matching a marked line. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
220 ;; Important: the match ends just after the marker." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
221 (defvar dired-re-maybe-mark "^. ") |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
222 (defvar dired-re-dir (concat dired-re-maybe-mark dired-re-inode-size "d")) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
223 (defvar dired-re-sym (concat dired-re-maybe-mark dired-re-inode-size "l")) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
224 (defvar dired-re-exe;; match ls permission string of an executable file |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
225 (mapconcat (function |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
226 (lambda (x) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
227 (concat dired-re-maybe-mark dired-re-inode-size x))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
228 '("-[-r][-w][xs][-r][-w].[-r][-w]." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
229 "-[-r][-w].[-r][-w][xs][-r][-w]." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
230 "-[-r][-w].[-r][-w].[-r][-w][xst]") |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
231 "\\|")) |
9098
d012275093c1
(dired-re-perms): Accept various file type letters.
Richard M. Stallman <rms@gnu.org>
parents:
9076
diff
changeset
|
232 (defvar dired-re-perms "[-bcdlps][-r][-w].[-r][-w].[-r][-w].") |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
233 (defvar dired-re-dot "^.* \\.\\.?$") |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
234 |
8791
555762c754a6
(dired-buffers-for-dir): Assume dirs are preexpanded.
Richard M. Stallman <rms@gnu.org>
parents:
8438
diff
changeset
|
235 ;; The subdirectory names in this list are expanded. |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
236 (defvar dired-subdir-alist nil |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
237 "Association list of subdirectories and their buffer positions. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
238 Each subdirectory has an element: (DIRNAME . STARTMARKER). |
1170 | 239 The order of elements is the reverse of the order in the buffer. |
240 In simple cases, this list contains one element.") | |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
241 |
6864
7c689b8065bd
(dired-subdir-regexp): Allow a space in dir name.
Richard M. Stallman <rms@gnu.org>
parents:
6817
diff
changeset
|
242 (defvar dired-subdir-regexp "^. \\([^\n\r]+\\)\\(:\\)[\n\r]" |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
243 "Regexp matching a maybe hidden subdirectory line in `ls -lR' output. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
244 Subexpression 1 is the subdirectory proper, no trailing colon. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
245 The match starts at the beginning of the line and ends after the end |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
246 of the line (\\n or \\r). |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
247 Subexpression 2 must end right before the \\n or \\r.") |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
248 |
16454
76b0d4d3371e
Tweak dired-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents:
16090
diff
changeset
|
249 (defvar dired-font-lock-keywords |
76b0d4d3371e
Tweak dired-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents:
16090
diff
changeset
|
250 (list |
76b0d4d3371e
Tweak dired-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents:
16090
diff
changeset
|
251 ;; |
76b0d4d3371e
Tweak dired-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents:
16090
diff
changeset
|
252 ;; Directory headers. |
76b0d4d3371e
Tweak dired-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents:
16090
diff
changeset
|
253 (list dired-subdir-regexp '(1 font-lock-type-face)) |
76b0d4d3371e
Tweak dired-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents:
16090
diff
changeset
|
254 ;; |
76b0d4d3371e
Tweak dired-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents:
16090
diff
changeset
|
255 ;; We make heavy use of MATCH-ANCHORED, since the regexps don't identify the |
76b0d4d3371e
Tweak dired-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents:
16090
diff
changeset
|
256 ;; file name itself. We search for Dired defined regexps, and then use the |
76b0d4d3371e
Tweak dired-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents:
16090
diff
changeset
|
257 ;; Dired defined function `dired-move-to-filename' before searching for the |
76b0d4d3371e
Tweak dired-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents:
16090
diff
changeset
|
258 ;; simple regexp ".+". It is that regexp which matches the file name. |
76b0d4d3371e
Tweak dired-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents:
16090
diff
changeset
|
259 ;; |
76b0d4d3371e
Tweak dired-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents:
16090
diff
changeset
|
260 ;; Dired marks. |
76b0d4d3371e
Tweak dired-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents:
16090
diff
changeset
|
261 (list dired-re-mark |
76b0d4d3371e
Tweak dired-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents:
16090
diff
changeset
|
262 '(0 font-lock-reference-face) |
76b0d4d3371e
Tweak dired-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents:
16090
diff
changeset
|
263 '(".+" (dired-move-to-filename) nil (0 font-lock-warning-face))) |
76b0d4d3371e
Tweak dired-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents:
16090
diff
changeset
|
264 ;; |
76b0d4d3371e
Tweak dired-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents:
16090
diff
changeset
|
265 ;; Files that are group or world writable. |
76b0d4d3371e
Tweak dired-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents:
16090
diff
changeset
|
266 (list (concat dired-re-maybe-mark dired-re-inode-size |
76b0d4d3371e
Tweak dired-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents:
16090
diff
changeset
|
267 "\\([-d]\\(....w....\\|.......w.\\)\\)") |
76b0d4d3371e
Tweak dired-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents:
16090
diff
changeset
|
268 '(1 font-lock-comment-face) |
76b0d4d3371e
Tweak dired-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents:
16090
diff
changeset
|
269 '(".+" (dired-move-to-filename) nil (0 font-lock-comment-face))) |
76b0d4d3371e
Tweak dired-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents:
16090
diff
changeset
|
270 ;; |
76b0d4d3371e
Tweak dired-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents:
16090
diff
changeset
|
271 ;; Subdirectories. |
76b0d4d3371e
Tweak dired-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents:
16090
diff
changeset
|
272 (list dired-re-dir |
76b0d4d3371e
Tweak dired-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents:
16090
diff
changeset
|
273 '(".+" (dired-move-to-filename) nil (0 font-lock-function-name-face))) |
76b0d4d3371e
Tweak dired-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents:
16090
diff
changeset
|
274 ;; |
76b0d4d3371e
Tweak dired-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents:
16090
diff
changeset
|
275 ;; Symbolic links. |
76b0d4d3371e
Tweak dired-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents:
16090
diff
changeset
|
276 (list dired-re-sym |
76b0d4d3371e
Tweak dired-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents:
16090
diff
changeset
|
277 '(".+" (dired-move-to-filename) nil (0 font-lock-keyword-face))) |
76b0d4d3371e
Tweak dired-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents:
16090
diff
changeset
|
278 ;; |
76b0d4d3371e
Tweak dired-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents:
16090
diff
changeset
|
279 ;; Files suffixed with `completion-ignored-extensions'. |
76b0d4d3371e
Tweak dired-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents:
16090
diff
changeset
|
280 '(eval . |
76b0d4d3371e
Tweak dired-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents:
16090
diff
changeset
|
281 (let ((extensions (mapcar 'regexp-quote completion-ignored-extensions))) |
76b0d4d3371e
Tweak dired-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents:
16090
diff
changeset
|
282 ;; It is quicker to first find just an extension, then go back to the |
76b0d4d3371e
Tweak dired-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents:
16090
diff
changeset
|
283 ;; start of that file name. So we do this complex MATCH-ANCHORED form. |
76b0d4d3371e
Tweak dired-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents:
16090
diff
changeset
|
284 (list (concat "\\(" (mapconcat 'identity extensions "\\|") "\\|#\\)$") |
76b0d4d3371e
Tweak dired-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents:
16090
diff
changeset
|
285 '(".+" (dired-move-to-filename) nil (0 font-lock-string-face)))))) |
76b0d4d3371e
Tweak dired-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents:
16090
diff
changeset
|
286 "Additional expressions to highlight in Dired mode.") |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
287 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
288 ;;; Macros must be defined before they are used, for the byte compiler. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
289 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
290 ;; Mark all files for which CONDITION evals to non-nil. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
291 ;; CONDITION is evaluated on each line, with point at beginning of line. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
292 ;; MSG is a noun phrase for the type of files being marked. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
293 ;; It should end with a noun that can be pluralized by adding `s'. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
294 ;; Return value is the number of files marked, or nil if none were marked. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
295 (defmacro dired-mark-if (predicate msg) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
296 (` (let (buffer-read-only count) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
297 (save-excursion |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
298 (setq count 0) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
299 (if (, msg) (message "Marking %ss..." (, msg))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
300 (goto-char (point-min)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
301 (while (not (eobp)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
302 (if (, predicate) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
303 (progn |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
304 (delete-char 1) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
305 (insert dired-marker-char) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
306 (setq count (1+ count)))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
307 (forward-line 1)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
308 (if (, msg) (message "%s %s%s %s%s." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
309 count |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
310 (, msg) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
311 (dired-plural-s count) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
312 (if (eq dired-marker-char ?\040) "un" "") |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
313 (if (eq dired-marker-char dired-del-marker) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
314 "flagged" "marked")))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
315 (and (> count 0) count)))) |
661 | 316 |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
317 (defmacro dired-map-over-marks (body arg &optional show-progress) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
318 ;; "Macro: Perform BODY with point somewhere on each marked line |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
319 ;;and return a list of BODY's results. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
320 ;;If no marked file could be found, execute BODY on the current line. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
321 ;; If ARG is an integer, use the next ARG (or previous -ARG, if ARG<0) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
322 ;; files instead of the marked files. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
323 ;; In that case point is dragged along. This is so that commands on |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
324 ;; the next ARG (instead of the marked) files can be chained easily. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
325 ;; If ARG is otherwise non-nil, use current file instead. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
326 ;;If optional third arg SHOW-PROGRESS evaluates to non-nil, |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
327 ;; redisplay the dired buffer after each file is processed. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
328 ;;No guarantee is made about the position on the marked line. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
329 ;; BODY must ensure this itself if it depends on this. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
330 ;;Search starts at the beginning of the buffer, thus the car of the list |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
331 ;; corresponds to the line nearest to the buffer's bottom. This |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
332 ;; is also true for (positive and negative) integer values of ARG. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
333 ;;BODY should not be too long as it is expanded four times." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
334 ;; |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
335 ;;Warning: BODY must not add new lines before point - this may cause an |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
336 ;;endless loop. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
337 ;;This warning should not apply any longer, sk 2-Sep-1991 14:10. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
338 (` (prog1 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
339 (let (buffer-read-only case-fold-search found results) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
340 (if (, arg) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
341 (if (integerp (, arg)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
342 (progn;; no save-excursion, want to move point. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
343 (dired-repeat-over-lines |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
344 (, arg) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
345 (function (lambda () |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
346 (if (, show-progress) (sit-for 0)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
347 (setq results (cons (, body) results))))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
348 (if (< (, arg) 0) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
349 (nreverse results) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
350 results)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
351 ;; non-nil, non-integer ARG means use current file: |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
352 (list (, body))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
353 (let ((regexp (dired-marker-regexp)) next-position) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
354 (save-excursion |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
355 (goto-char (point-min)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
356 ;; remember position of next marked file before BODY |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
357 ;; can insert lines before the just found file, |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
358 ;; confusing us by finding the same marked file again |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
359 ;; and again and... |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
360 (setq next-position (and (re-search-forward regexp nil t) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
361 (point-marker)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
362 found (not (null next-position))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
363 (while next-position |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
364 (goto-char next-position) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
365 (if (, show-progress) (sit-for 0)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
366 (setq results (cons (, body) results)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
367 ;; move after last match |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
368 (goto-char next-position) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
369 (forward-line 1) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
370 (set-marker next-position nil) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
371 (setq next-position (and (re-search-forward regexp nil t) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
372 (point-marker))))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
373 (if found |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
374 results |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
375 (list (, body)))))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
376 ;; save-excursion loses, again |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
377 (dired-move-to-filename)))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
378 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
379 (defun dired-get-marked-files (&optional localp arg) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
380 "Return the marked files' names as list of strings. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
381 The list is in the same order as the buffer, that is, the car is the |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
382 first marked file. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
383 Values returned are normally absolute pathnames. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
384 Optional arg LOCALP as in `dired-get-filename'. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
385 Optional second argument ARG forces to use other files. If ARG is an |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
386 integer, use the next ARG files. If ARG is otherwise non-nil, use |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
387 current file. Usually ARG comes from the current prefix arg." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
388 (save-excursion |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
389 (nreverse (dired-map-over-marks (dired-get-filename localp) arg)))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
390 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
391 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
392 ;; Function dired-ls is redefinable for VMS, ange-ftp, Prospero or |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
393 ;; other special applications. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
394 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
395 ;; The dired command |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
396 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
397 (defun dired-read-dir-and-switches (str) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
398 ;; For use in interactive. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
399 (reverse (list |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
400 (if current-prefix-arg |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
401 (read-string "Dired listing switches: " |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
402 dired-listing-switches)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
403 (read-file-name (format "Dired %s(directory): " str) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
404 nil default-directory nil)))) |
661 | 405 |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
406 ;;;###autoload (define-key ctl-x-map "d" 'dired) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
407 ;;;###autoload |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
408 (defun dired (dirname &optional switches) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
409 "\"Edit\" directory DIRNAME--delete, rename, print, etc. some files in it. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
410 Optional second argument SWITCHES specifies the `ls' options used. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
411 \(Interactively, use a prefix argument to be able to specify SWITCHES.) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
412 Dired displays a list of files in DIRNAME (which may also have |
2492
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
413 shell wildcards appended to select certain files). If DIRNAME is a cons, |
13888 | 414 its first element is taken as the directory name and the rest as an explicit |
2492
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
415 list of files to make directory entries for. |
834
2e0cd4e83c2e
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
778
diff
changeset
|
416 \\<dired-mode-map>\ |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
417 You can move around in it with the usual commands. |
2492
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
418 You can flag files for deletion with \\[dired-flag-file-deletion] and then |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
419 delete them by typing \\[dired-do-flagged-delete]. |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
420 Type \\[describe-mode] after entering dired for more info. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
421 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
422 If DIRNAME is already in a dired buffer, that buffer is used without refresh." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
423 ;; Cannot use (interactive "D") because of wildcards. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
424 (interactive (dired-read-dir-and-switches "")) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
425 (switch-to-buffer (dired-noselect dirname switches))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
426 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
427 ;;;###autoload (define-key ctl-x-4-map "d" 'dired-other-window) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
428 ;;;###autoload |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
429 (defun dired-other-window (dirname &optional switches) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
430 "\"Edit\" directory DIRNAME. Like `dired' but selects in another window." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
431 (interactive (dired-read-dir-and-switches "in other window ")) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
432 (switch-to-buffer-other-window (dired-noselect dirname switches))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
433 |
3148
a4c37b95f19f
(dired-other-frame): New function, with binding.
Richard M. Stallman <rms@gnu.org>
parents:
3102
diff
changeset
|
434 ;;;###autoload (define-key ctl-x-5-map "d" 'dired-other-frame) |
a4c37b95f19f
(dired-other-frame): New function, with binding.
Richard M. Stallman <rms@gnu.org>
parents:
3102
diff
changeset
|
435 ;;;###autoload |
a4c37b95f19f
(dired-other-frame): New function, with binding.
Richard M. Stallman <rms@gnu.org>
parents:
3102
diff
changeset
|
436 (defun dired-other-frame (dirname &optional switches) |
a4c37b95f19f
(dired-other-frame): New function, with binding.
Richard M. Stallman <rms@gnu.org>
parents:
3102
diff
changeset
|
437 "\"Edit\" directory DIRNAME. Like `dired' but makes a new frame." |
a4c37b95f19f
(dired-other-frame): New function, with binding.
Richard M. Stallman <rms@gnu.org>
parents:
3102
diff
changeset
|
438 (interactive (dired-read-dir-and-switches "in other frame ")) |
a4c37b95f19f
(dired-other-frame): New function, with binding.
Richard M. Stallman <rms@gnu.org>
parents:
3102
diff
changeset
|
439 (switch-to-buffer-other-frame (dired-noselect dirname switches))) |
a4c37b95f19f
(dired-other-frame): New function, with binding.
Richard M. Stallman <rms@gnu.org>
parents:
3102
diff
changeset
|
440 |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
441 ;;;###autoload |
2492
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
442 (defun dired-noselect (dir-or-list &optional switches) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
443 "Like `dired' but returns the dired buffer as value, does not select it." |
2492
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
444 (or dir-or-list (setq dir-or-list default-directory)) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
445 ;; This loses the distinction between "/foo/*/" and "/foo/*" that |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
446 ;; some shells make: |
17431
cc5b0995866f
(dired-noselect): Avoid calling file-directory-p
Richard M. Stallman <rms@gnu.org>
parents:
17206
diff
changeset
|
447 (let (dirname initially-was-dirname) |
2492
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
448 (if (consp dir-or-list) |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
449 (setq dirname (car dir-or-list)) |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
450 (setq dirname dir-or-list)) |
17431
cc5b0995866f
(dired-noselect): Avoid calling file-directory-p
Richard M. Stallman <rms@gnu.org>
parents:
17206
diff
changeset
|
451 (setq initially-was-dirname |
cc5b0995866f
(dired-noselect): Avoid calling file-directory-p
Richard M. Stallman <rms@gnu.org>
parents:
17206
diff
changeset
|
452 (string= (file-name-as-directory dirname) dirname)) |
8403
941432da0ff3
(dired-noselect): Call abbreviate-file-name here.
Richard M. Stallman <rms@gnu.org>
parents:
8321
diff
changeset
|
453 (setq dirname (abbreviate-file-name |
941432da0ff3
(dired-noselect): Call abbreviate-file-name here.
Richard M. Stallman <rms@gnu.org>
parents:
8321
diff
changeset
|
454 (expand-file-name (directory-file-name dirname)))) |
14947
dde6603e020f
(dired-noselect): Resolve symbolic links in argument.
Richard M. Stallman <rms@gnu.org>
parents:
14891
diff
changeset
|
455 (if find-file-visit-truename |
dde6603e020f
(dired-noselect): Resolve symbolic links in argument.
Richard M. Stallman <rms@gnu.org>
parents:
14891
diff
changeset
|
456 (setq dirname (file-truename dirname))) |
17431
cc5b0995866f
(dired-noselect): Avoid calling file-directory-p
Richard M. Stallman <rms@gnu.org>
parents:
17206
diff
changeset
|
457 ;; If the argument was syntactically a directory name not a file name, |
cc5b0995866f
(dired-noselect): Avoid calling file-directory-p
Richard M. Stallman <rms@gnu.org>
parents:
17206
diff
changeset
|
458 ;; or if it happens to name a file that is a directory, |
cc5b0995866f
(dired-noselect): Avoid calling file-directory-p
Richard M. Stallman <rms@gnu.org>
parents:
17206
diff
changeset
|
459 ;; convert it syntactically to a directory name. |
cc5b0995866f
(dired-noselect): Avoid calling file-directory-p
Richard M. Stallman <rms@gnu.org>
parents:
17206
diff
changeset
|
460 ;; The reason for checking initially-was-dirname |
cc5b0995866f
(dired-noselect): Avoid calling file-directory-p
Richard M. Stallman <rms@gnu.org>
parents:
17206
diff
changeset
|
461 ;; and not just file-directory-p |
cc5b0995866f
(dired-noselect): Avoid calling file-directory-p
Richard M. Stallman <rms@gnu.org>
parents:
17206
diff
changeset
|
462 ;; is that file-directory-p is slow over ftp. |
cc5b0995866f
(dired-noselect): Avoid calling file-directory-p
Richard M. Stallman <rms@gnu.org>
parents:
17206
diff
changeset
|
463 (if (or initially-was-dirname (file-directory-p dirname)) |
cc5b0995866f
(dired-noselect): Avoid calling file-directory-p
Richard M. Stallman <rms@gnu.org>
parents:
17206
diff
changeset
|
464 (setq dirname (file-name-as-directory dirname))) |
2492
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
465 (if (consp dir-or-list) |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
466 (setq dir-or-list (cons dirname (cdr dir-or-list))) |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
467 (setq dir-or-list dirname)) |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
468 (dired-internal-noselect dir-or-list switches))) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
469 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
470 ;; Separate function from dired-noselect for the sake of dired-vms.el. |
12996
59cb17f969d2
(dired-internal-noselect): New arg MODE.
Richard M. Stallman <rms@gnu.org>
parents:
12906
diff
changeset
|
471 (defun dired-internal-noselect (dir-or-list &optional switches mode) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
472 ;; If there is an existing dired buffer for DIRNAME, just leave |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
473 ;; buffer as it is (don't even call dired-revert). |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
474 ;; This saves time especially for deep trees or with ange-ftp. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
475 ;; The user can type `g'easily, and it is more consistent with find-file. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
476 ;; But if SWITCHES are given they are probably different from the |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
477 ;; buffer's old value, so call dired-sort-other, which does |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
478 ;; revert the buffer. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
479 ;; A pity we can't possibly do "Directory has changed - refresh? " |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
480 ;; like find-file does. |
12996
59cb17f969d2
(dired-internal-noselect): New arg MODE.
Richard M. Stallman <rms@gnu.org>
parents:
12906
diff
changeset
|
481 ;; Optional argument MODE is passed to dired-find-buffer-nocreate, |
59cb17f969d2
(dired-internal-noselect): New arg MODE.
Richard M. Stallman <rms@gnu.org>
parents:
12906
diff
changeset
|
482 ;; see there. |
2492
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
483 (let* ((dirname (if (consp dir-or-list) (car dir-or-list) dir-or-list)) |
12996
59cb17f969d2
(dired-internal-noselect): New arg MODE.
Richard M. Stallman <rms@gnu.org>
parents:
12906
diff
changeset
|
484 ;; The following line used to use dir-or-list. |
59cb17f969d2
(dired-internal-noselect): New arg MODE.
Richard M. Stallman <rms@gnu.org>
parents:
12906
diff
changeset
|
485 ;; That never found an existing buffer, in the case |
59cb17f969d2
(dired-internal-noselect): New arg MODE.
Richard M. Stallman <rms@gnu.org>
parents:
12906
diff
changeset
|
486 ;; where it is a list. |
59cb17f969d2
(dired-internal-noselect): New arg MODE.
Richard M. Stallman <rms@gnu.org>
parents:
12906
diff
changeset
|
487 (buffer (dired-find-buffer-nocreate dirname mode)) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
488 ;; note that buffer already is in dired-mode, if found |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
489 (new-buffer-p (not buffer)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
490 (old-buf (current-buffer))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
491 (or buffer |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
492 (let ((default-major-mode 'fundamental-mode)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
493 ;; We don't want default-major-mode to run hooks and set auto-fill |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
494 ;; or whatever, now that dired-mode does not |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
495 ;; kill-all-local-variables any longer. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
496 (setq buffer (create-file-buffer (directory-file-name dirname))))) |
661 | 497 (set-buffer buffer) |
13010
06f8e805121d
(dired-internal-noselect): Set dired-directory when refreshing a buffer
André Spiegel <spiegel@gnu.org>
parents:
12996
diff
changeset
|
498 (if (not new-buffer-p) ; existing buffer ... |
06f8e805121d
(dired-internal-noselect): Set dired-directory when refreshing a buffer
André Spiegel <spiegel@gnu.org>
parents:
12996
diff
changeset
|
499 (cond (switches ; ... but new switches |
06f8e805121d
(dired-internal-noselect): Set dired-directory when refreshing a buffer
André Spiegel <spiegel@gnu.org>
parents:
12996
diff
changeset
|
500 ;; file list may have changed |
06f8e805121d
(dired-internal-noselect): Set dired-directory when refreshing a buffer
André Spiegel <spiegel@gnu.org>
parents:
12996
diff
changeset
|
501 (if (consp dir-or-list) |
06f8e805121d
(dired-internal-noselect): Set dired-directory when refreshing a buffer
André Spiegel <spiegel@gnu.org>
parents:
12996
diff
changeset
|
502 (setq dired-directory dir-or-list)) |
06f8e805121d
(dired-internal-noselect): Set dired-directory when refreshing a buffer
André Spiegel <spiegel@gnu.org>
parents:
12996
diff
changeset
|
503 ;; this calls dired-revert |
06f8e805121d
(dired-internal-noselect): Set dired-directory when refreshing a buffer
André Spiegel <spiegel@gnu.org>
parents:
12996
diff
changeset
|
504 (dired-sort-other switches)) |
06f8e805121d
(dired-internal-noselect): Set dired-directory when refreshing a buffer
André Spiegel <spiegel@gnu.org>
parents:
12996
diff
changeset
|
505 ;; If directory has changed on disk, offer to revert. |
06f8e805121d
(dired-internal-noselect): Set dired-directory when refreshing a buffer
André Spiegel <spiegel@gnu.org>
parents:
12996
diff
changeset
|
506 ((if (let ((attributes (file-attributes dirname)) |
06f8e805121d
(dired-internal-noselect): Set dired-directory when refreshing a buffer
André Spiegel <spiegel@gnu.org>
parents:
12996
diff
changeset
|
507 (modtime (visited-file-modtime))) |
06f8e805121d
(dired-internal-noselect): Set dired-directory when refreshing a buffer
André Spiegel <spiegel@gnu.org>
parents:
12996
diff
changeset
|
508 (or (eq modtime 0) |
06f8e805121d
(dired-internal-noselect): Set dired-directory when refreshing a buffer
André Spiegel <spiegel@gnu.org>
parents:
12996
diff
changeset
|
509 (not (eq (car attributes) t)) |
06f8e805121d
(dired-internal-noselect): Set dired-directory when refreshing a buffer
André Spiegel <spiegel@gnu.org>
parents:
12996
diff
changeset
|
510 (and (= (car (nth 5 attributes)) (car modtime)) |
06f8e805121d
(dired-internal-noselect): Set dired-directory when refreshing a buffer
André Spiegel <spiegel@gnu.org>
parents:
12996
diff
changeset
|
511 (= (nth 1 (nth 5 attributes)) (cdr modtime))))) |
06f8e805121d
(dired-internal-noselect): Set dired-directory when refreshing a buffer
André Spiegel <spiegel@gnu.org>
parents:
12996
diff
changeset
|
512 nil |
14309
d546dc4e0c0b
(dired-internal-noselect): Pass proper format string to message.
Karl Heuer <kwzh@gnu.org>
parents:
14169
diff
changeset
|
513 (message "%s" |
14361 | 514 (substitute-command-keys |
515 "Directory has changed on disk; type \\[revert-buffer] to update Dired"))))) | |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
516 ;; Else a new buffer |
5113
193cd8b36b41
(dired-readin-insert): Expand default-directory and dirname
Richard M. Stallman <rms@gnu.org>
parents:
5112
diff
changeset
|
517 (setq default-directory |
17439
5d1881f8c7f1
(dired-internal-noselect): When setting default-directory,
Richard M. Stallman <rms@gnu.org>
parents:
17431
diff
changeset
|
518 ;; We can do this unconditionally |
5d1881f8c7f1
(dired-internal-noselect): When setting default-directory,
Richard M. Stallman <rms@gnu.org>
parents:
17431
diff
changeset
|
519 ;; because dired-noselect ensures that the name |
5d1881f8c7f1
(dired-internal-noselect): When setting default-directory,
Richard M. Stallman <rms@gnu.org>
parents:
17431
diff
changeset
|
520 ;; is passed in directory name syntax |
5d1881f8c7f1
(dired-internal-noselect): When setting default-directory,
Richard M. Stallman <rms@gnu.org>
parents:
17431
diff
changeset
|
521 ;; if it was the name of a directory at all. |
5d1881f8c7f1
(dired-internal-noselect): When setting default-directory,
Richard M. Stallman <rms@gnu.org>
parents:
17431
diff
changeset
|
522 (file-name-directory dirname)) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
523 (or switches (setq switches dired-listing-switches)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
524 (dired-mode dirname switches) |
12996
59cb17f969d2
(dired-internal-noselect): New arg MODE.
Richard M. Stallman <rms@gnu.org>
parents:
12906
diff
changeset
|
525 (if mode (funcall mode)) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
526 ;; default-directory and dired-actual-switches are set now |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
527 ;; (buffer-local), so we can call dired-readin: |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
528 (let ((failed t)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
529 (unwind-protect |
2492
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
530 (progn (dired-readin dir-or-list buffer) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
531 (setq failed nil)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
532 ;; dired-readin can fail if parent directories are inaccessible. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
533 ;; Don't leave an empty buffer around in that case. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
534 (if failed (kill-buffer buffer)))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
535 ;; No need to narrow since the whole buffer contains just |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
536 ;; dired-readin's output, nothing else. The hook can |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
537 ;; successfully use dired functions (e.g. dired-get-filename) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
538 ;; as the subdir-alist has been built in dired-readin. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
539 (run-hooks 'dired-after-readin-hook) |
661 | 540 (goto-char (point-min)) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
541 (dired-initial-position dirname)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
542 (set-buffer old-buf) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
543 buffer)) |
661 | 544 |
12996
59cb17f969d2
(dired-internal-noselect): New arg MODE.
Richard M. Stallman <rms@gnu.org>
parents:
12906
diff
changeset
|
545 (defun dired-find-buffer-nocreate (dirname &optional mode) |
59cb17f969d2
(dired-internal-noselect): New arg MODE.
Richard M. Stallman <rms@gnu.org>
parents:
12906
diff
changeset
|
546 ;; This differs from dired-buffers-for-dir in that it does not consider |
59cb17f969d2
(dired-internal-noselect): New arg MODE.
Richard M. Stallman <rms@gnu.org>
parents:
12906
diff
changeset
|
547 ;; subdirs of default-directory and searches for the first match only. |
59cb17f969d2
(dired-internal-noselect): New arg MODE.
Richard M. Stallman <rms@gnu.org>
parents:
12906
diff
changeset
|
548 ;; Also, the major mode must be MODE. |
11970
a99407606405
(dired-find-buffer-nocreate): Check only buffers in
Karl Heuer <kwzh@gnu.org>
parents:
11587
diff
changeset
|
549 (let (found (blist dired-buffers)) ; was (buffer-list) |
12996
59cb17f969d2
(dired-internal-noselect): New arg MODE.
Richard M. Stallman <rms@gnu.org>
parents:
12906
diff
changeset
|
550 (or mode (setq mode 'dired-mode)) |
661 | 551 (while blist |
12045
ad681fd69905
(dired-find-buffer-nocreate): Ignore dead buffers.
Karl Heuer <kwzh@gnu.org>
parents:
12001
diff
changeset
|
552 (if (null (buffer-name (cdr (car blist)))) |
ad681fd69905
(dired-find-buffer-nocreate): Ignore dead buffers.
Karl Heuer <kwzh@gnu.org>
parents:
12001
diff
changeset
|
553 (setq blist (cdr blist)) |
ad681fd69905
(dired-find-buffer-nocreate): Ignore dead buffers.
Karl Heuer <kwzh@gnu.org>
parents:
12001
diff
changeset
|
554 (save-excursion |
ad681fd69905
(dired-find-buffer-nocreate): Ignore dead buffers.
Karl Heuer <kwzh@gnu.org>
parents:
12001
diff
changeset
|
555 (set-buffer (cdr (car blist))) |
12996
59cb17f969d2
(dired-internal-noselect): New arg MODE.
Richard M. Stallman <rms@gnu.org>
parents:
12906
diff
changeset
|
556 (if (and (eq major-mode mode) |
13010
06f8e805121d
(dired-internal-noselect): Set dired-directory when refreshing a buffer
André Spiegel <spiegel@gnu.org>
parents:
12996
diff
changeset
|
557 (if (consp dired-directory) |
06f8e805121d
(dired-internal-noselect): Set dired-directory when refreshing a buffer
André Spiegel <spiegel@gnu.org>
parents:
12996
diff
changeset
|
558 (equal (car dired-directory) dirname) |
06f8e805121d
(dired-internal-noselect): Set dired-directory when refreshing a buffer
André Spiegel <spiegel@gnu.org>
parents:
12996
diff
changeset
|
559 (equal dired-directory dirname))) |
12045
ad681fd69905
(dired-find-buffer-nocreate): Ignore dead buffers.
Karl Heuer <kwzh@gnu.org>
parents:
12001
diff
changeset
|
560 (setq found (cdr (car blist)) |
ad681fd69905
(dired-find-buffer-nocreate): Ignore dead buffers.
Karl Heuer <kwzh@gnu.org>
parents:
12001
diff
changeset
|
561 blist nil) |
ad681fd69905
(dired-find-buffer-nocreate): Ignore dead buffers.
Karl Heuer <kwzh@gnu.org>
parents:
12001
diff
changeset
|
562 (setq blist (cdr blist)))))) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
563 found)) |
661 | 564 |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
565 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
566 ;; Read in a new dired buffer |
661 | 567 |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
568 ;; dired-readin differs from dired-insert-subdir in that it accepts |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
569 ;; wildcards, erases the buffer, and builds the subdir-alist anew |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
570 ;; (including making it buffer-local and clearing it first). |
2492
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
571 (defun dired-readin (dir-or-list buffer) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
572 ;; default-directory and dired-actual-switches must be buffer-local |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
573 ;; and initialized by now. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
574 ;; Thus we can test (equal default-directory dirname) instead of |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
575 ;; (file-directory-p dirname) and save a filesystem transaction. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
576 ;; Also, we can run this hook which may want to modify the switches |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
577 ;; based on default-directory, e.g. with ange-ftp to a SysV host |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
578 ;; where ls won't understand -Al switches. |
2492
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
579 (let (dirname) |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
580 (if (consp dir-or-list) |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
581 (setq dirname (car dir-or-list)) |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
582 (setq dirname dir-or-list)) |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
583 (setq dirname (expand-file-name dirname)) |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
584 (if (consp dir-or-list) |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
585 (setq dir-or-list (cons dirname (cdr dir-or-list)))) |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
586 (run-hooks 'dired-before-readin-hook) |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
587 (save-excursion |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
588 (message "Reading directory %s..." dirname) |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
589 (set-buffer buffer) |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
590 (let (buffer-read-only (failed t)) |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
591 (widen) |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
592 (erase-buffer) |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
593 (dired-readin-insert dir-or-list) |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
594 (indent-rigidly (point-min) (point-max) 2) |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
595 ;; We need this to make the root dir have a header line as all |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
596 ;; other subdirs have: |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
597 (goto-char (point-min)) |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
598 (dired-insert-headerline default-directory) |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
599 ;; can't run dired-after-readin-hook here, it may depend on the subdir |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
600 ;; alist to be OK. |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
601 ) |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
602 (message "Reading directory %s...done" dirname) |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
603 ;; Must first make alist buffer local and set it to nil because |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
604 ;; dired-build-subdir-alist will call dired-clear-alist first |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
605 (set (make-local-variable 'dired-subdir-alist) nil) |
7598
cdde619af40c
(dired-readin): Clear modified flag at the very end.
Richard M. Stallman <rms@gnu.org>
parents:
7494
diff
changeset
|
606 (dired-build-subdir-alist) |
8073
6511fd7aaea4
(dired-readin): Record the directory's modtime.
Richard M. Stallman <rms@gnu.org>
parents:
7945
diff
changeset
|
607 (let ((attributes (file-attributes dirname))) |
6511fd7aaea4
(dired-readin): Record the directory's modtime.
Richard M. Stallman <rms@gnu.org>
parents:
7945
diff
changeset
|
608 (if (eq (car attributes) t) |
6511fd7aaea4
(dired-readin): Record the directory's modtime.
Richard M. Stallman <rms@gnu.org>
parents:
7945
diff
changeset
|
609 (set-visited-file-modtime (nth 5 attributes)))) |
7598
cdde619af40c
(dired-readin): Clear modified flag at the very end.
Richard M. Stallman <rms@gnu.org>
parents:
7494
diff
changeset
|
610 (set-buffer-modified-p nil)))) |
661 | 611 |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
612 ;; Subroutines of dired-readin |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
613 |
2492
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
614 (defun dired-readin-insert (dir-or-list) |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
615 ;; Just insert listing for the passed-in directory or |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
616 ;; directory-and-file list, assuming a clean buffer. |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
617 (let (dirname) |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
618 (if (consp dir-or-list) |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
619 (setq dirname (car dir-or-list)) |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
620 (setq dirname dir-or-list)) |
5112
4bb3a179a87f
(dired-readin-insert): Expand default-directory and dirname
Richard M. Stallman <rms@gnu.org>
parents:
5003
diff
changeset
|
621 ;; Expand before comparing in case one or both have been abbreviated. |
4bb3a179a87f
(dired-readin-insert): Expand default-directory and dirname
Richard M. Stallman <rms@gnu.org>
parents:
5003
diff
changeset
|
622 (if (and (equal (expand-file-name default-directory) |
4bb3a179a87f
(dired-readin-insert): Expand default-directory and dirname
Richard M. Stallman <rms@gnu.org>
parents:
5003
diff
changeset
|
623 (expand-file-name dirname)) |
4284
831da9ea9a95
(dired-readin-insert): If we got a list of files,
Richard M. Stallman <rms@gnu.org>
parents:
4191
diff
changeset
|
624 (not (consp dir-or-list))) |
831da9ea9a95
(dired-readin-insert): If we got a list of files,
Richard M. Stallman <rms@gnu.org>
parents:
4191
diff
changeset
|
625 ;; If we are reading a whole single directory... |
2492
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
626 (dired-insert-directory dir-or-list dired-actual-switches nil t) |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
627 (if (not (file-readable-p |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
628 (directory-file-name (file-name-directory dirname)))) |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
629 (error "Directory %s inaccessible or nonexistent" dirname) |
4284
831da9ea9a95
(dired-readin-insert): If we got a list of files,
Richard M. Stallman <rms@gnu.org>
parents:
4191
diff
changeset
|
630 ;; Else assume it contains wildcards, |
831da9ea9a95
(dired-readin-insert): If we got a list of files,
Richard M. Stallman <rms@gnu.org>
parents:
4191
diff
changeset
|
631 ;; unless it is an explicit list of files. |
831da9ea9a95
(dired-readin-insert): If we got a list of files,
Richard M. Stallman <rms@gnu.org>
parents:
4191
diff
changeset
|
632 (dired-insert-directory dir-or-list dired-actual-switches |
831da9ea9a95
(dired-readin-insert): If we got a list of files,
Richard M. Stallman <rms@gnu.org>
parents:
4191
diff
changeset
|
633 (not (listp dir-or-list))) |
2492
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
634 (save-excursion ;; insert wildcard instead of total line: |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
635 (goto-char (point-min)) |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
636 (insert "wildcard " (file-name-nondirectory dirname) "\n")))))) |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
637 |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
638 (defun dired-insert-directory (dir-or-list switches &optional wildcard full-p) |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
639 ;; Do the right thing whether dir-or-list is atomic or not. If it is, |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
640 ;; inset all files listed in the cdr (the car is the passed-in directory |
6636
4cdde975154f
(dired-insert-directory): Fix comment.
Karl Heuer <kwzh@gnu.org>
parents:
6634
diff
changeset
|
641 ;; list). |
10126
b4262885826e
(dired-insert-directory): Quote certain chars with \.
Richard M. Stallman <rms@gnu.org>
parents:
9673
diff
changeset
|
642 (let ((opoint (point)) |
13929
490fe0437271
(dired-insert-directory): Force use of C locale.
Richard M. Stallman <rms@gnu.org>
parents:
13888
diff
changeset
|
643 (process-environment (copy-sequence process-environment)) |
10126
b4262885826e
(dired-insert-directory): Quote certain chars with \.
Richard M. Stallman <rms@gnu.org>
parents:
9673
diff
changeset
|
644 end) |
16773
7064fa2cb0d7
(dired-insert-directory): Don't override the user's locale.
Richard M. Stallman <rms@gnu.org>
parents:
16710
diff
changeset
|
645 ;; We used to specify the C locale here, to force English month names; |
7064fa2cb0d7
(dired-insert-directory): Don't override the user's locale.
Richard M. Stallman <rms@gnu.org>
parents:
16710
diff
changeset
|
646 ;; but this should not be necessary any more, |
7064fa2cb0d7
(dired-insert-directory): Don't override the user's locale.
Richard M. Stallman <rms@gnu.org>
parents:
16710
diff
changeset
|
647 ;; with the new value of dired-move-to-filename-regexp. |
6634
dc75f33163fb
(dired-insert-directory): Add mouse-face properties.
Richard M. Stallman <rms@gnu.org>
parents:
6594
diff
changeset
|
648 (if (consp dir-or-list) |
10390
a653accbfcbb
(dired-insert-directory): Don't call expand-file-name
Richard M. Stallman <rms@gnu.org>
parents:
10270
diff
changeset
|
649 ;; In this case, use the file names in the cdr |
a653accbfcbb
(dired-insert-directory): Don't call expand-file-name
Richard M. Stallman <rms@gnu.org>
parents:
10270
diff
changeset
|
650 ;; exactly as originally given to dired-noselect. |
a653accbfcbb
(dired-insert-directory): Don't call expand-file-name
Richard M. Stallman <rms@gnu.org>
parents:
10270
diff
changeset
|
651 (mapcar |
a653accbfcbb
(dired-insert-directory): Don't call expand-file-name
Richard M. Stallman <rms@gnu.org>
parents:
10270
diff
changeset
|
652 (function (lambda (x) (insert-directory x switches wildcard full-p))) |
a653accbfcbb
(dired-insert-directory): Don't call expand-file-name
Richard M. Stallman <rms@gnu.org>
parents:
10270
diff
changeset
|
653 (cdr dir-or-list)) |
a653accbfcbb
(dired-insert-directory): Don't call expand-file-name
Richard M. Stallman <rms@gnu.org>
parents:
10270
diff
changeset
|
654 ;; Expand the file name here because it may have been abbreviated |
a653accbfcbb
(dired-insert-directory): Don't call expand-file-name
Richard M. Stallman <rms@gnu.org>
parents:
10270
diff
changeset
|
655 ;; in dired-noselect. |
8407
fed86303cb07
(dired-insert-directory): Call expand-file-name here
Richard M. Stallman <rms@gnu.org>
parents:
8403
diff
changeset
|
656 (insert-directory (expand-file-name dir-or-list) switches wildcard full-p)) |
10126
b4262885826e
(dired-insert-directory): Quote certain chars with \.
Richard M. Stallman <rms@gnu.org>
parents:
9673
diff
changeset
|
657 ;; Quote certain characters, unless ls quoted them for us. |
11151
ab55a16a92ce
Wrap filename character quoting code with save-excursion so following forms
Simon Marshall <simon@gnu.org>
parents:
10845
diff
changeset
|
658 (if (not (string-match "b" dired-actual-switches)) |
ab55a16a92ce
Wrap filename character quoting code with save-excursion so following forms
Simon Marshall <simon@gnu.org>
parents:
10845
diff
changeset
|
659 (save-excursion |
ab55a16a92ce
Wrap filename character quoting code with save-excursion so following forms
Simon Marshall <simon@gnu.org>
parents:
10845
diff
changeset
|
660 (setq end (point-marker)) |
ab55a16a92ce
Wrap filename character quoting code with save-excursion so following forms
Simon Marshall <simon@gnu.org>
parents:
10845
diff
changeset
|
661 (goto-char opoint) |
ab55a16a92ce
Wrap filename character quoting code with save-excursion so following forms
Simon Marshall <simon@gnu.org>
parents:
10845
diff
changeset
|
662 (while (search-forward "\\" end t) |
ab55a16a92ce
Wrap filename character quoting code with save-excursion so following forms
Simon Marshall <simon@gnu.org>
parents:
10845
diff
changeset
|
663 (replace-match "\\\\" nil t)) |
ab55a16a92ce
Wrap filename character quoting code with save-excursion so following forms
Simon Marshall <simon@gnu.org>
parents:
10845
diff
changeset
|
664 (goto-char opoint) |
ab55a16a92ce
Wrap filename character quoting code with save-excursion so following forms
Simon Marshall <simon@gnu.org>
parents:
10845
diff
changeset
|
665 (while (search-forward "\^m" end t) |
ab55a16a92ce
Wrap filename character quoting code with save-excursion so following forms
Simon Marshall <simon@gnu.org>
parents:
10845
diff
changeset
|
666 (replace-match "\\015" nil t)) |
ab55a16a92ce
Wrap filename character quoting code with save-excursion so following forms
Simon Marshall <simon@gnu.org>
parents:
10845
diff
changeset
|
667 (set-marker end nil))) |
6634
dc75f33163fb
(dired-insert-directory): Add mouse-face properties.
Richard M. Stallman <rms@gnu.org>
parents:
6594
diff
changeset
|
668 (dired-insert-set-properties opoint (point))) |
2492
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
669 (setq dired-directory dir-or-list)) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
670 |
10126
b4262885826e
(dired-insert-directory): Quote certain chars with \.
Richard M. Stallman <rms@gnu.org>
parents:
9673
diff
changeset
|
671 ;; Make the file names highlight when the mouse is on them. |
6634
dc75f33163fb
(dired-insert-directory): Add mouse-face properties.
Richard M. Stallman <rms@gnu.org>
parents:
6594
diff
changeset
|
672 (defun dired-insert-set-properties (beg end) |
dc75f33163fb
(dired-insert-directory): Add mouse-face properties.
Richard M. Stallman <rms@gnu.org>
parents:
6594
diff
changeset
|
673 (save-excursion |
dc75f33163fb
(dired-insert-directory): Add mouse-face properties.
Richard M. Stallman <rms@gnu.org>
parents:
6594
diff
changeset
|
674 (goto-char beg) |
dc75f33163fb
(dired-insert-directory): Add mouse-face properties.
Richard M. Stallman <rms@gnu.org>
parents:
6594
diff
changeset
|
675 (while (< (point) end) |
12736
a7253dcf5f9d
(dired-insert-set-properties): Catch errors.
Richard M. Stallman <rms@gnu.org>
parents:
12211
diff
changeset
|
676 (condition-case nil |
a7253dcf5f9d
(dired-insert-set-properties): Catch errors.
Richard M. Stallman <rms@gnu.org>
parents:
12211
diff
changeset
|
677 (if (dired-move-to-filename) |
a7253dcf5f9d
(dired-insert-set-properties): Catch errors.
Richard M. Stallman <rms@gnu.org>
parents:
12211
diff
changeset
|
678 (put-text-property (point) |
a7253dcf5f9d
(dired-insert-set-properties): Catch errors.
Richard M. Stallman <rms@gnu.org>
parents:
12211
diff
changeset
|
679 (save-excursion |
a7253dcf5f9d
(dired-insert-set-properties): Catch errors.
Richard M. Stallman <rms@gnu.org>
parents:
12211
diff
changeset
|
680 (dired-move-to-end-of-filename) |
a7253dcf5f9d
(dired-insert-set-properties): Catch errors.
Richard M. Stallman <rms@gnu.org>
parents:
12211
diff
changeset
|
681 (point)) |
a7253dcf5f9d
(dired-insert-set-properties): Catch errors.
Richard M. Stallman <rms@gnu.org>
parents:
12211
diff
changeset
|
682 'mouse-face 'highlight)) |
a7253dcf5f9d
(dired-insert-set-properties): Catch errors.
Richard M. Stallman <rms@gnu.org>
parents:
12211
diff
changeset
|
683 (error nil)) |
6634
dc75f33163fb
(dired-insert-directory): Add mouse-face properties.
Richard M. Stallman <rms@gnu.org>
parents:
6594
diff
changeset
|
684 (forward-line 1)))) |
dc75f33163fb
(dired-insert-directory): Add mouse-face properties.
Richard M. Stallman <rms@gnu.org>
parents:
6594
diff
changeset
|
685 |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
686 (defun dired-insert-headerline (dir);; also used by dired-insert-subdir |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
687 ;; Insert DIR's headerline with no trailing slash, exactly like ls |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
688 ;; would, and put cursor where dired-build-subdir-alist puts subdir |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
689 ;; boundaries. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
690 (save-excursion (insert " " (directory-file-name dir) ":\n"))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
691 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
692 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
693 ;; Reverting a dired buffer |
661 | 694 |
695 (defun dired-revert (&optional arg noconfirm) | |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
696 ;; Reread the dired buffer. Must also be called after |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
697 ;; dired-actual-switches have changed. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
698 ;; Should not fail even on completely garbaged buffers. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
699 ;; Preserves old cursor, marks/flags, hidden-p. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
700 (widen) ; just in case user narrowed |
661 | 701 (let ((opoint (point)) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
702 (ofile (dired-get-filename nil t)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
703 (mark-alist nil) ; save marked files |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
704 (hidden-subdirs (dired-remember-hidden)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
705 (old-subdir-alist (cdr (reverse dired-subdir-alist))) ; except pwd |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
706 (case-fold-search nil) ; we check for upper case ls flags |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
707 buffer-read-only) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
708 (goto-char (point-min)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
709 (setq mark-alist;; only after dired-remember-hidden since this unhides: |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
710 (dired-remember-marks (point-min) (point-max))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
711 ;; treat top level dir extra (it may contain wildcards) |
2492
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
712 (dired-uncache |
de8b66eb78cf
dired-noselect, dired-internal-noselect, dired-insert-directory:
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2466
diff
changeset
|
713 (if (consp dired-directory) (car dired-directory) dired-directory)) |
661 | 714 (dired-readin dired-directory (current-buffer)) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
715 (let ((dired-after-readin-hook nil)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
716 ;; don't run that hook for each subdir... |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
717 (dired-insert-old-subdirs old-subdir-alist)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
718 (dired-mark-remembered mark-alist) ; mark files that were marked |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
719 ;; ... run the hook for the whole buffer, and only after markers |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
720 ;; have been reinserted (else omitting in dired-x would omit marked files) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
721 (run-hooks 'dired-after-readin-hook) ; no need to narrow |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
722 (or (and ofile (dired-goto-file ofile)) ; move cursor to where it |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
723 (goto-char opoint)) ; was before |
661 | 724 (dired-move-to-filename) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
725 (save-excursion ; hide subdirs that were hidden |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
726 (mapcar (function (lambda (dir) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
727 (if (dired-goto-subdir dir) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
728 (dired-hide-subdir 1)))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
729 hidden-subdirs))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
730 ;; outside of the let scope |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
731 ;;; Might as well not override the user if the user changed this. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
732 ;;; (setq buffer-read-only t) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
733 ) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
734 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
735 ;; Subroutines of dired-revert |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
736 ;; Some of these are also used when inserting subdirs. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
737 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
738 (defun dired-remember-marks (beg end) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
739 ;; Return alist of files and their marks, from BEG to END. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
740 (if selective-display ; must unhide to make this work. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
741 (let (buffer-read-only) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
742 (subst-char-in-region beg end ?\r ?\n))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
743 (let (fil chr alist) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
744 (save-excursion |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
745 (goto-char beg) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
746 (while (re-search-forward dired-re-mark end t) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
747 (if (setq fil (dired-get-filename nil t)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
748 (setq chr (preceding-char) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
749 alist (cons (cons fil chr) alist))))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
750 alist)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
751 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
752 ;; Mark all files remembered in ALIST. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
753 ;; Each element of ALIST looks like (FILE . MARKERCHAR). |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
754 (defun dired-mark-remembered (alist) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
755 (let (elt fil chr) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
756 (while alist |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
757 (setq elt (car alist) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
758 alist (cdr alist) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
759 fil (car elt) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
760 chr (cdr elt)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
761 (if (dired-goto-file fil) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
762 (save-excursion |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
763 (beginning-of-line) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
764 (delete-char 1) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
765 (insert chr)))))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
766 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
767 ;; Return a list of names of subdirs currently hidden. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
768 (defun dired-remember-hidden () |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
769 (let ((l dired-subdir-alist) dir pos result) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
770 (while l |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
771 (setq dir (car (car l)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
772 pos (cdr (car l)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
773 l (cdr l)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
774 (goto-char pos) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
775 (skip-chars-forward "^\r\n") |
834
2e0cd4e83c2e
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
778
diff
changeset
|
776 (if (eq (following-char) ?\r) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
777 (setq result (cons dir result)))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
778 result)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
779 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
780 ;; Try to insert all subdirs that were displayed before, |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
781 ;; according to the former subdir alist OLD-SUBDIR-ALIST. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
782 (defun dired-insert-old-subdirs (old-subdir-alist) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
783 (or (string-match "R" dired-actual-switches) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
784 (let (elt dir) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
785 (while old-subdir-alist |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
786 (setq elt (car old-subdir-alist) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
787 old-subdir-alist (cdr old-subdir-alist) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
788 dir (car elt)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
789 (condition-case () |
1130
e18597ff3c95
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1109
diff
changeset
|
790 (progn |
e18597ff3c95
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1109
diff
changeset
|
791 (dired-uncache dir) |
e18597ff3c95
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1109
diff
changeset
|
792 (dired-insert-subdir dir)) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
793 (error nil)))))) |
1130
e18597ff3c95
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1109
diff
changeset
|
794 |
e18597ff3c95
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1109
diff
changeset
|
795 ;; Remove directory DIR from any directory cache. |
e18597ff3c95
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1109
diff
changeset
|
796 (defun dired-uncache (dir) |
7030
9e51b51e8595
Pass operation to find-file-name-handler.
Karl Heuer <kwzh@gnu.org>
parents:
6864
diff
changeset
|
797 (let ((handler (find-file-name-handler dir 'dired-uncache))) |
1130
e18597ff3c95
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1109
diff
changeset
|
798 (if handler |
e18597ff3c95
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1109
diff
changeset
|
799 (funcall handler 'dired-uncache dir)))) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
800 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
801 ;; dired mode key bindings and initialization |
661 | 802 |
803 (defvar dired-mode-map nil "Local keymap for dired-mode buffers.") | |
804 (if dired-mode-map | |
805 nil | |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
806 ;; This looks ugly when substitute-command-keys uses C-d instead d: |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
807 ;; (define-key dired-mode-map "\C-d" 'dired-flag-file-deletion) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
808 |
12801
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
809 (let ((map (make-keymap))) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
810 (suppress-keymap map) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
811 (define-key map [mouse-2] 'dired-mouse-find-file-other-window) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
812 ;; Commands to mark or flag certain categories of files |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
813 (define-key map "#" 'dired-flag-auto-save-files) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
814 (define-key map "." 'dired-clean-directory) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
815 (define-key map "~" 'dired-flag-backup-files) |
16825
9ec806f8bbb7
(dired-garbage-files-regexp): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16824
diff
changeset
|
816 (define-key map "&" 'dired-flag-garbage-files) |
12801
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
817 ;; Upper case keys (except !) for operating on the marked files |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
818 (define-key map "A" 'dired-do-search) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
819 (define-key map "C" 'dired-do-copy) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
820 (define-key map "B" 'dired-do-byte-compile) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
821 (define-key map "D" 'dired-do-delete) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
822 (define-key map "G" 'dired-do-chgrp) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
823 (define-key map "H" 'dired-do-hardlink) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
824 (define-key map "L" 'dired-do-load) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
825 (define-key map "M" 'dired-do-chmod) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
826 (define-key map "O" 'dired-do-chown) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
827 (define-key map "P" 'dired-do-print) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
828 (define-key map "Q" 'dired-do-query-replace) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
829 (define-key map "R" 'dired-do-rename) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
830 (define-key map "S" 'dired-do-symlink) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
831 (define-key map "X" 'dired-do-shell-command) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
832 (define-key map "Z" 'dired-do-compress) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
833 (define-key map "!" 'dired-do-shell-command) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
834 ;; Comparison commands |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
835 (define-key map "=" 'dired-diff) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
836 (define-key map "\M-=" 'dired-backup-diff) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
837 ;; Tree Dired commands |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
838 (define-key map "\M-\C-?" 'dired-unmark-all-files) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
839 (define-key map "\M-\C-d" 'dired-tree-down) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
840 (define-key map "\M-\C-u" 'dired-tree-up) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
841 (define-key map "\M-\C-n" 'dired-next-subdir) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
842 (define-key map "\M-\C-p" 'dired-prev-subdir) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
843 ;; move to marked files |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
844 (define-key map "\M-{" 'dired-prev-marked-file) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
845 (define-key map "\M-}" 'dired-next-marked-file) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
846 ;; Make all regexp commands share a `%' prefix: |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
847 ;; We used to get to the submap via a symbol dired-regexp-prefix, |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
848 ;; but that seems to serve little purpose, and copy-keymap |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
849 ;; does a better job without it. |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
850 (define-key map "%" nil) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
851 (define-key map "%u" 'dired-upcase) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
852 (define-key map "%l" 'dired-downcase) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
853 (define-key map "%d" 'dired-flag-files-regexp) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
854 (define-key map "%m" 'dired-mark-files-regexp) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
855 (define-key map "%r" 'dired-do-rename-regexp) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
856 (define-key map "%C" 'dired-do-copy-regexp) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
857 (define-key map "%H" 'dired-do-hardlink-regexp) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
858 (define-key map "%R" 'dired-do-rename-regexp) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
859 (define-key map "%S" 'dired-do-symlink-regexp) |
16500
707d6f8c6381
(dired-mode-map): Make * a prefix for mark commands.
Richard M. Stallman <rms@gnu.org>
parents:
16490
diff
changeset
|
860 ;; Commands for marking and unmarking. |
707d6f8c6381
(dired-mode-map): Make * a prefix for mark commands.
Richard M. Stallman <rms@gnu.org>
parents:
16490
diff
changeset
|
861 (define-key map "*" nil) |
707d6f8c6381
(dired-mode-map): Make * a prefix for mark commands.
Richard M. Stallman <rms@gnu.org>
parents:
16490
diff
changeset
|
862 (define-key map "**" 'dired-mark-executables) |
707d6f8c6381
(dired-mode-map): Make * a prefix for mark commands.
Richard M. Stallman <rms@gnu.org>
parents:
16490
diff
changeset
|
863 (define-key map "*/" 'dired-mark-directories) |
707d6f8c6381
(dired-mode-map): Make * a prefix for mark commands.
Richard M. Stallman <rms@gnu.org>
parents:
16490
diff
changeset
|
864 (define-key map "*@" 'dired-mark-symlinks) |
707d6f8c6381
(dired-mode-map): Make * a prefix for mark commands.
Richard M. Stallman <rms@gnu.org>
parents:
16490
diff
changeset
|
865 (define-key map "*%" 'dired-mark-files-regexp) |
707d6f8c6381
(dired-mode-map): Make * a prefix for mark commands.
Richard M. Stallman <rms@gnu.org>
parents:
16490
diff
changeset
|
866 (define-key map "*c" 'dired-change-marks) |
16514
c270f12e9373
(dired-mode-map): Put dired-mark-subdir-files on *s.
Richard M. Stallman <rms@gnu.org>
parents:
16501
diff
changeset
|
867 (define-key map "*s" 'dired-mark-subdir-files) |
16500
707d6f8c6381
(dired-mode-map): Make * a prefix for mark commands.
Richard M. Stallman <rms@gnu.org>
parents:
16490
diff
changeset
|
868 (define-key map "*m" 'dired-mark) |
707d6f8c6381
(dired-mode-map): Make * a prefix for mark commands.
Richard M. Stallman <rms@gnu.org>
parents:
16490
diff
changeset
|
869 (define-key map "*u" 'dired-unmark) |
707d6f8c6381
(dired-mode-map): Make * a prefix for mark commands.
Richard M. Stallman <rms@gnu.org>
parents:
16490
diff
changeset
|
870 (define-key map "*?" 'dired-unmark-all-files) |
18160
c64b7a17eea9
(dired-unmark-all-marks):
Richard M. Stallman <rms@gnu.org>
parents:
17988
diff
changeset
|
871 (define-key map "*!" 'dired-unmark-all-marks) |
16500
707d6f8c6381
(dired-mode-map): Make * a prefix for mark commands.
Richard M. Stallman <rms@gnu.org>
parents:
16490
diff
changeset
|
872 (define-key map "*\177" 'dired-unmark-backward) |
707d6f8c6381
(dired-mode-map): Make * a prefix for mark commands.
Richard M. Stallman <rms@gnu.org>
parents:
16490
diff
changeset
|
873 (define-key map "*\C-n" 'dired-next-marked-file) |
707d6f8c6381
(dired-mode-map): Make * a prefix for mark commands.
Richard M. Stallman <rms@gnu.org>
parents:
16490
diff
changeset
|
874 (define-key map "*\C-p" 'dired-prev-marked-file) |
12801
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
875 ;; Lower keys for commands not operating on all the marked files |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
876 (define-key map "d" 'dired-flag-file-deletion) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
877 (define-key map "e" 'dired-find-file) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
878 (define-key map "f" 'dired-find-file) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
879 (define-key map "\C-m" 'dired-advertised-find-file) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
880 (define-key map "g" 'revert-buffer) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
881 (define-key map "h" 'describe-mode) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
882 (define-key map "i" 'dired-maybe-insert-subdir) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
883 (define-key map "k" 'dired-do-kill-lines) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
884 (define-key map "l" 'dired-do-redisplay) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
885 (define-key map "m" 'dired-mark) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
886 (define-key map "n" 'dired-next-line) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
887 (define-key map "o" 'dired-find-file-other-window) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
888 (define-key map "\C-o" 'dired-display-file) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
889 (define-key map "p" 'dired-previous-line) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
890 (define-key map "q" 'dired-quit) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
891 (define-key map "s" 'dired-sort-toggle-or-edit) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
892 (define-key map "u" 'dired-unmark) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
893 (define-key map "v" 'dired-view-file) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
894 (define-key map "x" 'dired-do-flagged-delete) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
895 (define-key map "+" 'dired-create-directory) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
896 ;; moving |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
897 (define-key map "<" 'dired-prev-dirline) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
898 (define-key map ">" 'dired-next-dirline) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
899 (define-key map "^" 'dired-up-directory) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
900 (define-key map " " 'dired-next-line) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
901 (define-key map "\C-n" 'dired-next-line) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
902 (define-key map "\C-p" 'dired-previous-line) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
903 (define-key map [down] 'dired-next-line) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
904 (define-key map [up] 'dired-previous-line) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
905 ;; hiding |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
906 (define-key map "$" 'dired-hide-subdir) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
907 (define-key map "\M-$" 'dired-hide-all) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
908 ;; misc |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
909 (define-key map "?" 'dired-summary) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
910 (define-key map "\177" 'dired-unmark-backward) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
911 (define-key map "\C-_" 'dired-undo) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
912 (define-key map "\C-xu" 'dired-undo) |
4099
b62687587309
(dired-mode-map): Add menu bar items.
Richard M. Stallman <rms@gnu.org>
parents:
3822
diff
changeset
|
913 |
12801
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
914 ;; Make menu bar items. |
4099
b62687587309
(dired-mode-map): Add menu bar items.
Richard M. Stallman <rms@gnu.org>
parents:
3822
diff
changeset
|
915 |
12801
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
916 ;; Get rid of the Edit menu bar item to save space. |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
917 (define-key map [menu-bar edit] 'undefined) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
918 |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
919 (define-key map [menu-bar subdir] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
920 (cons "Subdir" (make-sparse-keymap "Subdir"))) |
4099
b62687587309
(dired-mode-map): Add menu bar items.
Richard M. Stallman <rms@gnu.org>
parents:
3822
diff
changeset
|
921 |
12801
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
922 (define-key map [menu-bar subdir hide-all] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
923 '("Hide All" . dired-hide-all)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
924 (define-key map [menu-bar subdir hide-subdir] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
925 '("Hide Subdir" . dired-hide-subdir)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
926 (define-key map [menu-bar subdir tree-down] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
927 '("Tree Down" . dired-tree-down)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
928 (define-key map [menu-bar subdir tree-up] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
929 '("Tree Up" . dired-tree-up)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
930 (define-key map [menu-bar subdir up] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
931 '("Up Directory" . dired-up-directory)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
932 (define-key map [menu-bar subdir prev-subdir] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
933 '("Prev Subdir" . dired-prev-subdir)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
934 (define-key map [menu-bar subdir next-subdir] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
935 '("Next Subdir" . dired-next-subdir)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
936 (define-key map [menu-bar subdir prev-dirline] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
937 '("Prev Dirline" . dired-prev-dirline)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
938 (define-key map [menu-bar subdir next-dirline] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
939 '("Next Dirline" . dired-next-dirline)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
940 (define-key map [menu-bar subdir insert] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
941 '("Insert This Subdir" . dired-maybe-insert-subdir)) |
4099
b62687587309
(dired-mode-map): Add menu bar items.
Richard M. Stallman <rms@gnu.org>
parents:
3822
diff
changeset
|
942 |
12801
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
943 (define-key map [menu-bar immediate] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
944 (cons "Immediate" (make-sparse-keymap "Immediate"))) |
4099
b62687587309
(dired-mode-map): Add menu bar items.
Richard M. Stallman <rms@gnu.org>
parents:
3822
diff
changeset
|
945 |
16090
cf84933860ed
(dired-mode-map): Add revert-buffer to Immediate menu.
Richard M. Stallman <rms@gnu.org>
parents:
15944
diff
changeset
|
946 (define-key map [menu-bar immediate revert-buffer] |
cf84933860ed
(dired-mode-map): Add revert-buffer to Immediate menu.
Richard M. Stallman <rms@gnu.org>
parents:
15944
diff
changeset
|
947 '("Update Buffer" . revert-buffer)) |
cf84933860ed
(dired-mode-map): Add revert-buffer to Immediate menu.
Richard M. Stallman <rms@gnu.org>
parents:
15944
diff
changeset
|
948 |
cf84933860ed
(dired-mode-map): Add revert-buffer to Immediate menu.
Richard M. Stallman <rms@gnu.org>
parents:
15944
diff
changeset
|
949 (define-key map [menu-bar immediate dashes] |
cf84933860ed
(dired-mode-map): Add revert-buffer to Immediate menu.
Richard M. Stallman <rms@gnu.org>
parents:
15944
diff
changeset
|
950 '("--")) |
cf84933860ed
(dired-mode-map): Add revert-buffer to Immediate menu.
Richard M. Stallman <rms@gnu.org>
parents:
15944
diff
changeset
|
951 |
12801
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
952 (define-key map [menu-bar immediate backup-diff] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
953 '("Compare with Backup" . dired-backup-diff)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
954 (define-key map [menu-bar immediate diff] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
955 '("Diff" . dired-diff)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
956 (define-key map [menu-bar immediate view] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
957 '("View This File" . dired-view-file)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
958 (define-key map [menu-bar immediate display] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
959 '("Display in Other Window" . dired-display-file)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
960 (define-key map [menu-bar immediate find-file-other-window] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
961 '("Find in Other Window" . dired-find-file-other-window)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
962 (define-key map [menu-bar immediate find-file] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
963 '("Find This File" . dired-find-file)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
964 (define-key map [menu-bar immediate create-directory] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
965 '("Create Directory..." . dired-create-directory)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
966 |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
967 (define-key map [menu-bar regexp] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
968 (cons "Regexp" (make-sparse-keymap "Regexp"))) |
4099
b62687587309
(dired-mode-map): Add menu bar items.
Richard M. Stallman <rms@gnu.org>
parents:
3822
diff
changeset
|
969 |
12801
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
970 (define-key map [menu-bar regexp downcase] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
971 '("Downcase" . dired-downcase)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
972 (define-key map [menu-bar regexp upcase] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
973 '("Upcase" . dired-upcase)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
974 (define-key map [menu-bar regexp hardlink] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
975 '("Hardlink..." . dired-do-hardlink-regexp)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
976 (define-key map [menu-bar regexp symlink] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
977 '("Symlink..." . dired-do-symlink-regexp)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
978 (define-key map [menu-bar regexp rename] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
979 '("Rename..." . dired-do-rename-regexp)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
980 (define-key map [menu-bar regexp copy] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
981 '("Copy..." . dired-do-copy-regexp)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
982 (define-key map [menu-bar regexp flag] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
983 '("Flag..." . dired-flag-files-regexp)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
984 (define-key map [menu-bar regexp mark] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
985 '("Mark..." . dired-mark-files-regexp)) |
4099
b62687587309
(dired-mode-map): Add menu bar items.
Richard M. Stallman <rms@gnu.org>
parents:
3822
diff
changeset
|
986 |
12801
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
987 (define-key map [menu-bar mark] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
988 (cons "Mark" (make-sparse-keymap "Mark"))) |
4099
b62687587309
(dired-mode-map): Add menu bar items.
Richard M. Stallman <rms@gnu.org>
parents:
3822
diff
changeset
|
989 |
12801
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
990 (define-key map [menu-bar mark prev] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
991 '("Previous Marked" . dired-prev-marked-file)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
992 (define-key map [menu-bar mark next] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
993 '("Next Marked" . dired-next-marked-file)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
994 (define-key map [menu-bar mark marks] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
995 '("Change Marks..." . dired-change-marks)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
996 (define-key map [menu-bar mark unmark-all] |
18160
c64b7a17eea9
(dired-unmark-all-marks):
Richard M. Stallman <rms@gnu.org>
parents:
17988
diff
changeset
|
997 '("Unmark All" . dired-unmark-all-marks)) |
12801
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
998 (define-key map [menu-bar mark symlinks] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
999 '("Mark Symlinks" . dired-mark-symlinks)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1000 (define-key map [menu-bar mark directories] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1001 '("Mark Directories" . dired-mark-directories)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1002 (define-key map [menu-bar mark directory] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1003 '("Mark Old Backups" . dired-clean-directory)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1004 (define-key map [menu-bar mark executables] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1005 '("Mark Executables" . dired-mark-executables)) |
16825
9ec806f8bbb7
(dired-garbage-files-regexp): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16824
diff
changeset
|
1006 (define-key map [menu-bar mark garbage-files] |
9ec806f8bbb7
(dired-garbage-files-regexp): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16824
diff
changeset
|
1007 '("Flag Garbage Files" . dired-flag-garbage-files)) |
12801
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1008 (define-key map [menu-bar mark backup-files] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1009 '("Flag Backup Files" . dired-flag-backup-files)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1010 (define-key map [menu-bar mark auto-save-files] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1011 '("Flag Auto-save Files" . dired-flag-auto-save-files)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1012 (define-key map [menu-bar mark deletion] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1013 '("Flag" . dired-flag-file-deletion)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1014 (define-key map [menu-bar mark unmark] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1015 '("Unmark" . dired-unmark)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1016 (define-key map [menu-bar mark mark] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1017 '("Mark" . dired-mark)) |
4099
b62687587309
(dired-mode-map): Add menu bar items.
Richard M. Stallman <rms@gnu.org>
parents:
3822
diff
changeset
|
1018 |
12801
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1019 (define-key map [menu-bar operate] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1020 (cons "Operate" (make-sparse-keymap "Operate"))) |
4099
b62687587309
(dired-mode-map): Add menu bar items.
Richard M. Stallman <rms@gnu.org>
parents:
3822
diff
changeset
|
1021 |
12801
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1022 (define-key map [menu-bar operate query-replace] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1023 '("Query Replace in Files..." . dired-do-query-replace)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1024 (define-key map [menu-bar operate search] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1025 '("Search Files..." . dired-do-search)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1026 (define-key map [menu-bar operate chown] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1027 '("Change Owner..." . dired-do-chown)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1028 (define-key map [menu-bar operate chgrp] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1029 '("Change Group..." . dired-do-chgrp)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1030 (define-key map [menu-bar operate chmod] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1031 '("Change Mode..." . dired-do-chmod)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1032 (define-key map [menu-bar operate load] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1033 '("Load" . dired-do-load)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1034 (define-key map [menu-bar operate compile] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1035 '("Byte-compile" . dired-do-byte-compile)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1036 (define-key map [menu-bar operate compress] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1037 '("Compress" . dired-do-compress)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1038 (define-key map [menu-bar operate print] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1039 '("Print" . dired-do-print)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1040 (define-key map [menu-bar operate hardlink] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1041 '("Hardlink to..." . dired-do-hardlink)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1042 (define-key map [menu-bar operate symlink] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1043 '("Symlink to..." . dired-do-symlink)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1044 (define-key map [menu-bar operate command] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1045 '("Shell Command..." . dired-do-shell-command)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1046 (define-key map [menu-bar operate delete] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1047 '("Delete" . dired-do-delete)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1048 (define-key map [menu-bar operate rename] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1049 '("Rename to..." . dired-do-rename)) |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1050 (define-key map [menu-bar operate copy] |
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1051 '("Copy to..." . dired-do-copy)) |
4099
b62687587309
(dired-mode-map): Add menu bar items.
Richard M. Stallman <rms@gnu.org>
parents:
3822
diff
changeset
|
1052 |
12801
f4e3e478c1b1
(dired-mode-map): Set up the map completely
Richard M. Stallman <rms@gnu.org>
parents:
12736
diff
changeset
|
1053 (setq dired-mode-map map))) |
4099
b62687587309
(dired-mode-map): Add menu bar items.
Richard M. Stallman <rms@gnu.org>
parents:
3822
diff
changeset
|
1054 |
661 | 1055 ;; Dired mode is suitable only for specially formatted data. |
1056 (put 'dired-mode 'mode-class 'special) | |
1057 | |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1058 (defun dired-mode (&optional dirname switches) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1059 "\ |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1060 Mode for \"editing\" directory listings. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1061 In dired, you are \"editing\" a list of the files in a directory and |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1062 \(optionally) its subdirectories, in the format of `ls -lR'. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1063 Each directory is a page: use \\[backward-page] and \\[forward-page] to move pagewise. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1064 \"Editing\" means that you can run shell commands on files, visit, |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1065 compress, load or byte-compile them, change their file attributes |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1066 and insert subdirectories into the same buffer. You can \"mark\" |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1067 files for later commands or \"flag\" them for deletion, either file |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1068 by file or all files matching certain criteria. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1069 You can move using the usual cursor motion commands.\\<dired-mode-map> |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1070 Letters no longer insert themselves. Digits are prefix arguments. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1071 Instead, type \\[dired-flag-file-deletion] to flag a file for Deletion. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1072 Type \\[dired-mark] to Mark a file or subdirectory for later commands. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1073 Most commands operate on the marked files and use the current file |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1074 if no files are marked. Use a numeric prefix argument to operate on |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1075 the next ARG (or previous -ARG if ARG<0) files, or just `1' |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1076 to operate on the current file only. Prefix arguments override marks. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1077 Mark-using commands display a list of failures afterwards. Type \\[dired-summary] |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1078 to see why something went wrong. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1079 Type \\[dired-unmark] to Unmark a file or all files of a subdirectory. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1080 Type \\[dired-unmark-backward] to back up one line and unflag. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1081 Type \\[dired-do-flagged-delete] to eXecute the deletions requested. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1082 Type \\[dired-advertised-find-file] to Find the current line's file |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1083 (or dired it in another buffer, if it is a directory). |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1084 Type \\[dired-find-file-other-window] to find file or dired directory in Other window. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1085 Type \\[dired-maybe-insert-subdir] to Insert a subdirectory in this buffer. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1086 Type \\[dired-do-rename] to Rename a file or move the marked files to another directory. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1087 Type \\[dired-do-copy] to Copy files. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1088 Type \\[dired-sort-toggle-or-edit] to toggle sorting by name/date or change the `ls' switches. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1089 Type \\[revert-buffer] to read all currently expanded directories again. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1090 This retains all marks and hides subdirs again that were hidden before. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1091 SPC and DEL can be used to move down and up by lines. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1092 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1093 If dired ever gets confused, you can either type \\[revert-buffer] \ |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1094 to read the |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1095 directories again, type \\[dired-do-redisplay] \ |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1096 to relist a single or the marked files or a |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1097 subdirectory, or type \\[dired-build-subdir-alist] to parse the buffer |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1098 again for the directory tree. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1099 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1100 Customization variables (rename this buffer and type \\[describe-variable] on each line |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1101 for more info): |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1102 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1103 dired-listing-switches |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1104 dired-trivial-filenames |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1105 dired-shrink-to-fit |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1106 dired-marker-char |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1107 dired-del-marker |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1108 dired-keep-marker-rename |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1109 dired-keep-marker-copy |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1110 dired-keep-marker-hardlink |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1111 dired-keep-marker-symlink |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1112 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1113 Hooks (use \\[describe-variable] to see their documentation): |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1114 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1115 dired-before-readin-hook |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1116 dired-after-readin-hook |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1117 dired-mode-hook |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1118 dired-load-hook |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1119 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1120 Keybindings: |
661 | 1121 \\{dired-mode-map}" |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1122 ;; Not to be called interactively (e.g. dired-directory will be set |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1123 ;; to default-directory, which is wrong with wildcards). |
661 | 1124 (kill-all-local-variables) |
1125 (use-local-map dired-mode-map) | |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1126 (dired-advertise) ; default-directory is already set |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1127 (setq major-mode 'dired-mode |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1128 mode-name "Dired" |
4760
f3808bb8a993
(dired-mode): Don't change the value of case-fold-search.
Brian Fox <bfox@gnu.org>
parents:
4394
diff
changeset
|
1129 ;; case-fold-search nil |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1130 buffer-read-only t |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1131 selective-display t ; for subdirectory hiding |
17811 | 1132 mode-line-buffer-identification '("%17b")) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1133 (set (make-local-variable 'revert-buffer-function) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1134 (function dired-revert)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1135 (set (make-local-variable 'page-delimiter) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1136 "\n\n") |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1137 (set (make-local-variable 'dired-directory) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1138 (or dirname default-directory)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1139 ;; list-buffers uses this to display the dir being edited in this buffer. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1140 (set (make-local-variable 'list-buffers-directory) |
8438
579232f9f99d
(dired-mode): Put expanded name in list-buffers-directory.
Richard M. Stallman <rms@gnu.org>
parents:
8407
diff
changeset
|
1141 (expand-file-name dired-directory)) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1142 (set (make-local-variable 'dired-actual-switches) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1143 (or switches dired-listing-switches)) |
9474
9791aad17859
* dired.el: (dired-mode): Set font-lock-defaults.
Simon Marshall <simon@gnu.org>
parents:
9382
diff
changeset
|
1144 (set (make-local-variable 'font-lock-defaults) '(dired-font-lock-keywords t)) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1145 (dired-sort-other dired-actual-switches t) |
661 | 1146 (run-hooks 'dired-mode-hook)) |
1147 | |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
3580
diff
changeset
|
1148 ;; Idiosyncratic dired commands that don't deal with marks. |
661 | 1149 |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1150 (defun dired-quit () |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1151 "Bury the current dired buffer." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1152 (interactive) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1153 (bury-buffer)) |
661 | 1154 |
1155 (defun dired-summary () | |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1156 "Summarize basic Dired commands and show recent Dired errors." |
661 | 1157 (interactive) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1158 (dired-why) |
661 | 1159 ;>> this should check the key-bindings and use substitute-command-keys if non-standard |
1160 (message | |
3822
242b72c42f33
* dired.el (dired-summary): dired-do-rename is on "R", not "r".
Jim Blandy <jimb@redhat.com>
parents:
3737
diff
changeset
|
1161 "d-elete, u-ndelete, x-punge, f-ind, o-ther window, R-ename, C-opy, h-elp")) |
661 | 1162 |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1163 (defun dired-undo () |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1164 "Undo in a dired buffer. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1165 This doesn't recover lost files, it just undoes changes in the buffer itself. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1166 You can use it to recover marks, killed lines or subdirs. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1167 In the latter case, you have to do \\[dired-build-subdir-alist] to |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1168 parse the buffer again." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1169 (interactive) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1170 (let (buffer-read-only) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1171 (undo))) |
661 | 1172 |
1173 (defun dired-next-line (arg) | |
1174 "Move down lines then position at filename. | |
1175 Optional prefix ARG says how many lines to move; default is one line." | |
1176 (interactive "p") | |
1177 (next-line arg) | |
1178 (dired-move-to-filename)) | |
1179 | |
1180 (defun dired-previous-line (arg) | |
1181 "Move up lines then position at filename. | |
1182 Optional prefix ARG says how many lines to move; default is one line." | |
1183 (interactive "p") | |
1184 (previous-line arg) | |
1185 (dired-move-to-filename)) | |
1186 | |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1187 (defun dired-next-dirline (arg &optional opoint) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1188 "Goto ARG'th next directory file line." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1189 (interactive "p") |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1190 (or opoint (setq opoint (point))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1191 (if (if (> arg 0) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1192 (re-search-forward dired-re-dir nil t arg) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1193 (beginning-of-line) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1194 (re-search-backward dired-re-dir nil t (- arg))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1195 (dired-move-to-filename) ; user may type `i' or `f' |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1196 (goto-char opoint) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1197 (error "No more subdirectories"))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1198 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1199 (defun dired-prev-dirline (arg) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1200 "Goto ARG'th previous directory file line." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1201 (interactive "p") |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1202 (dired-next-dirline (- arg))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1203 |
13033
216edf9576ea
(dired-up-directory): Add optional argument `other-window' to obviate
Erik Naggum <erik@naggum.no>
parents:
13010
diff
changeset
|
1204 (defun dired-up-directory (&optional other-window) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1205 "Run dired on parent directory of current directory. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1206 Find the parent directory either in this buffer or another buffer. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1207 Creates a buffer if necessary." |
13033
216edf9576ea
(dired-up-directory): Add optional argument `other-window' to obviate
Erik Naggum <erik@naggum.no>
parents:
13010
diff
changeset
|
1208 (interactive "P") |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1209 (let* ((dir (dired-current-directory)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1210 (up (file-name-directory (directory-file-name dir)))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1211 (or (dired-goto-file (directory-file-name dir)) |
1170 | 1212 ;; Only try dired-goto-subdir if buffer has more than one dir. |
1213 (and (cdr dired-subdir-alist) | |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1214 (dired-goto-subdir up)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1215 (progn |
13033
216edf9576ea
(dired-up-directory): Add optional argument `other-window' to obviate
Erik Naggum <erik@naggum.no>
parents:
13010
diff
changeset
|
1216 (if other-window |
216edf9576ea
(dired-up-directory): Add optional argument `other-window' to obviate
Erik Naggum <erik@naggum.no>
parents:
13010
diff
changeset
|
1217 (dired-other-window up) |
216edf9576ea
(dired-up-directory): Add optional argument `other-window' to obviate
Erik Naggum <erik@naggum.no>
parents:
13010
diff
changeset
|
1218 (dired up)) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1219 (dired-goto-file dir))))) |
661 | 1220 |
6594
bca9e6c8a07f
(dired-mouse-find-file-other-window): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6309
diff
changeset
|
1221 ;; Force `f' rather than `e' in the mode doc: |
bca9e6c8a07f
(dired-mouse-find-file-other-window): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6309
diff
changeset
|
1222 (defalias 'dired-advertised-find-file 'dired-find-file) |
17988
2e732d9d5b79
(dired-find-file): Likewise.
Kenichi Handa <handa@m17n.org>
parents:
17944
diff
changeset
|
1223 (defun dired-find-file () |
661 | 1224 "In dired, visit the file or directory named on this line." |
17988
2e732d9d5b79
(dired-find-file): Likewise.
Kenichi Handa <handa@m17n.org>
parents:
17944
diff
changeset
|
1225 (interactive) |
16490
92289a4265ed
(dired-find-file): Error if line's file does not exist.
Richard M. Stallman <rms@gnu.org>
parents:
16457
diff
changeset
|
1226 (let ((file-name (file-name-sans-versions (dired-get-filename) t))) |
92289a4265ed
(dired-find-file): Error if line's file does not exist.
Richard M. Stallman <rms@gnu.org>
parents:
16457
diff
changeset
|
1227 (if (file-exists-p file-name) |
17988
2e732d9d5b79
(dired-find-file): Likewise.
Kenichi Handa <handa@m17n.org>
parents:
17944
diff
changeset
|
1228 (find-file file-name) |
18824
41c3ad77f90a
(dired-find-file): Better error message
Richard M. Stallman <rms@gnu.org>
parents:
18160
diff
changeset
|
1229 (if (file-symlink-p file-name) |
41c3ad77f90a
(dired-find-file): Better error message
Richard M. Stallman <rms@gnu.org>
parents:
18160
diff
changeset
|
1230 (error "File is a symlink to a nonexistent target") |
41c3ad77f90a
(dired-find-file): Better error message
Richard M. Stallman <rms@gnu.org>
parents:
18160
diff
changeset
|
1231 (error "File no longer exists; type `g' to update Dired buffer"))))) |
661 | 1232 |
6594
bca9e6c8a07f
(dired-mouse-find-file-other-window): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6309
diff
changeset
|
1233 (defun dired-mouse-find-file-other-window (event) |
bca9e6c8a07f
(dired-mouse-find-file-other-window): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6309
diff
changeset
|
1234 "In dired, visit the file or directory name you click on." |
bca9e6c8a07f
(dired-mouse-find-file-other-window): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6309
diff
changeset
|
1235 (interactive "e") |
bca9e6c8a07f
(dired-mouse-find-file-other-window): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6309
diff
changeset
|
1236 (let (file) |
bca9e6c8a07f
(dired-mouse-find-file-other-window): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6309
diff
changeset
|
1237 (save-excursion |
bca9e6c8a07f
(dired-mouse-find-file-other-window): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6309
diff
changeset
|
1238 (set-buffer (window-buffer (posn-window (event-end event)))) |
bca9e6c8a07f
(dired-mouse-find-file-other-window): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6309
diff
changeset
|
1239 (save-excursion |
bca9e6c8a07f
(dired-mouse-find-file-other-window): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6309
diff
changeset
|
1240 (goto-char (posn-point (event-end event))) |
bca9e6c8a07f
(dired-mouse-find-file-other-window): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6309
diff
changeset
|
1241 (setq file (dired-get-filename)))) |
bca9e6c8a07f
(dired-mouse-find-file-other-window): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6309
diff
changeset
|
1242 (select-window (posn-window (event-end event))) |
bca9e6c8a07f
(dired-mouse-find-file-other-window): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6309
diff
changeset
|
1243 (find-file-other-window (file-name-sans-versions file t)))) |
bca9e6c8a07f
(dired-mouse-find-file-other-window): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6309
diff
changeset
|
1244 |
661 | 1245 (defun dired-view-file () |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1246 "In dired, examine a file in view mode, returning to dired when done. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1247 When file is a directory, show it in this buffer if it is inserted; |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1248 otherwise, display it in another buffer." |
661 | 1249 (interactive) |
1250 (if (file-directory-p (dired-get-filename)) | |
1170 | 1251 (or (and (cdr dired-subdir-alist) |
1252 (dired-goto-subdir (dired-get-filename))) | |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1253 (dired (dired-get-filename))) |
1130
e18597ff3c95
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1109
diff
changeset
|
1254 (view-file (dired-get-filename)))) |
661 | 1255 |
1256 (defun dired-find-file-other-window () | |
1257 "In dired, visit this file or directory in another window." | |
1258 (interactive) | |
1109
c9feb3e64805
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1091
diff
changeset
|
1259 (find-file-other-window (file-name-sans-versions (dired-get-filename) t))) |
878
5b1c5b4286e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
834
diff
changeset
|
1260 |
5b1c5b4286e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
834
diff
changeset
|
1261 (defun dired-display-file () |
5b1c5b4286e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
834
diff
changeset
|
1262 "In dired, display this file or directory in another window." |
5b1c5b4286e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
834
diff
changeset
|
1263 (interactive) |
1109
c9feb3e64805
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1091
diff
changeset
|
1264 (let ((file (file-name-sans-versions (dired-get-filename) t))) |
c9feb3e64805
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1091
diff
changeset
|
1265 (display-buffer (find-file-noselect file)))) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1266 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1267 ;;; Functions for extracting and manipulating file names in dired buffers. |
661 | 1268 |
1269 (defun dired-get-filename (&optional localp no-error-if-not-filep) | |
1270 "In dired, return name of file mentioned on this line. | |
1271 Value returned normally includes the directory name. | |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1272 Optional arg LOCALP with value `no-dir' means don't include directory |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1273 name in result. A value of t means construct name relative to |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1274 `default-directory', which still may contain slashes if in a subdirectory. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1275 Optional arg NO-ERROR-IF-NOT-FILEP means return nil if no filename on |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1276 this line, otherwise an error occurs." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1277 (let (case-fold-search file p1 p2) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1278 (save-excursion |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1279 (if (setq p1 (dired-move-to-filename (not no-error-if-not-filep))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1280 (setq p2 (dired-move-to-end-of-filename no-error-if-not-filep)))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1281 ;; nil if no file on this line, but no-error-if-not-filep is t: |
10126
b4262885826e
(dired-insert-directory): Quote certain chars with \.
Richard M. Stallman <rms@gnu.org>
parents:
9673
diff
changeset
|
1282 (if (setq file (and p1 p2 (buffer-substring p1 p2))) |
b4262885826e
(dired-insert-directory): Quote certain chars with \.
Richard M. Stallman <rms@gnu.org>
parents:
9673
diff
changeset
|
1283 (progn |
b4262885826e
(dired-insert-directory): Quote certain chars with \.
Richard M. Stallman <rms@gnu.org>
parents:
9673
diff
changeset
|
1284 ;; Get rid of the mouse-face property that file names have. |
b4262885826e
(dired-insert-directory): Quote certain chars with \.
Richard M. Stallman <rms@gnu.org>
parents:
9673
diff
changeset
|
1285 (set-text-properties 0 (length file) nil file) |
b4262885826e
(dired-insert-directory): Quote certain chars with \.
Richard M. Stallman <rms@gnu.org>
parents:
9673
diff
changeset
|
1286 ;; Unquote names quoted by ls or by dired-insert-directory. |
b4262885826e
(dired-insert-directory): Quote certain chars with \.
Richard M. Stallman <rms@gnu.org>
parents:
9673
diff
changeset
|
1287 ;; Using read to unquote is much faster than substituting |
b4262885826e
(dired-insert-directory): Quote certain chars with \.
Richard M. Stallman <rms@gnu.org>
parents:
9673
diff
changeset
|
1288 ;; \007 (4 chars) -> ^G (1 char) etc. in a lisp loop. |
b4262885826e
(dired-insert-directory): Quote certain chars with \.
Richard M. Stallman <rms@gnu.org>
parents:
9673
diff
changeset
|
1289 (setq file |
b4262885826e
(dired-insert-directory): Quote certain chars with \.
Richard M. Stallman <rms@gnu.org>
parents:
9673
diff
changeset
|
1290 (read |
b4262885826e
(dired-insert-directory): Quote certain chars with \.
Richard M. Stallman <rms@gnu.org>
parents:
9673
diff
changeset
|
1291 (concat "\"" |
b4262885826e
(dired-insert-directory): Quote certain chars with \.
Richard M. Stallman <rms@gnu.org>
parents:
9673
diff
changeset
|
1292 ;; some ls -b don't escape quotes, argh! |
b4262885826e
(dired-insert-directory): Quote certain chars with \.
Richard M. Stallman <rms@gnu.org>
parents:
9673
diff
changeset
|
1293 ;; This is not needed for GNU ls, though. |
b4262885826e
(dired-insert-directory): Quote certain chars with \.
Richard M. Stallman <rms@gnu.org>
parents:
9673
diff
changeset
|
1294 (or (dired-string-replace-match |
14387
9c3c642de62a
(dired-get-filename): When quoting " chars,
Richard M. Stallman <rms@gnu.org>
parents:
14361
diff
changeset
|
1295 "\\([^\\]\\|\\`\\)\"" file "\\1\\\\\"" nil t) |
10126
b4262885826e
(dired-insert-directory): Quote certain chars with \.
Richard M. Stallman <rms@gnu.org>
parents:
9673
diff
changeset
|
1296 file) |
b4262885826e
(dired-insert-directory): Quote certain chars with \.
Richard M. Stallman <rms@gnu.org>
parents:
9673
diff
changeset
|
1297 "\""))))) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1298 (if (eq localp 'no-dir) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1299 file |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1300 (and file (concat (dired-current-directory localp) file))))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1301 |
10214
82e7df72b8a0
(dired-string-replace-match): Function moved here.
Richard M. Stallman <rms@gnu.org>
parents:
10126
diff
changeset
|
1302 (defun dired-string-replace-match (regexp string newtext |
82e7df72b8a0
(dired-string-replace-match): Function moved here.
Richard M. Stallman <rms@gnu.org>
parents:
10126
diff
changeset
|
1303 &optional literal global) |
82e7df72b8a0
(dired-string-replace-match): Function moved here.
Richard M. Stallman <rms@gnu.org>
parents:
10126
diff
changeset
|
1304 "Replace first match of REGEXP in STRING with NEWTEXT. |
82e7df72b8a0
(dired-string-replace-match): Function moved here.
Richard M. Stallman <rms@gnu.org>
parents:
10126
diff
changeset
|
1305 If it does not match, nil is returned instead of the new string. |
82e7df72b8a0
(dired-string-replace-match): Function moved here.
Richard M. Stallman <rms@gnu.org>
parents:
10126
diff
changeset
|
1306 Optional arg LITERAL means to take NEWTEXT literally. |
82e7df72b8a0
(dired-string-replace-match): Function moved here.
Richard M. Stallman <rms@gnu.org>
parents:
10126
diff
changeset
|
1307 Optional arg GLOBAL means to replace all matches." |
82e7df72b8a0
(dired-string-replace-match): Function moved here.
Richard M. Stallman <rms@gnu.org>
parents:
10126
diff
changeset
|
1308 (if global |
12906
28a8f63327fc
(dired-string-replace-match): Simplify using replace-match.
Richard M. Stallman <rms@gnu.org>
parents:
12801
diff
changeset
|
1309 (let ((start 0)) |
28a8f63327fc
(dired-string-replace-match): Simplify using replace-match.
Richard M. Stallman <rms@gnu.org>
parents:
12801
diff
changeset
|
1310 (while (string-match regexp string start) |
28a8f63327fc
(dired-string-replace-match): Simplify using replace-match.
Richard M. Stallman <rms@gnu.org>
parents:
12801
diff
changeset
|
1311 (let ((from-end (- (length string) (match-end 0)))) |
28a8f63327fc
(dired-string-replace-match): Simplify using replace-match.
Richard M. Stallman <rms@gnu.org>
parents:
12801
diff
changeset
|
1312 (setq string (replace-match newtext t literal string)) |
28a8f63327fc
(dired-string-replace-match): Simplify using replace-match.
Richard M. Stallman <rms@gnu.org>
parents:
12801
diff
changeset
|
1313 (setq start (- (length string) from-end)))) |
28a8f63327fc
(dired-string-replace-match): Simplify using replace-match.
Richard M. Stallman <rms@gnu.org>
parents:
12801
diff
changeset
|
1314 string) |
10214
82e7df72b8a0
(dired-string-replace-match): Function moved here.
Richard M. Stallman <rms@gnu.org>
parents:
10126
diff
changeset
|
1315 (if (not (string-match regexp string 0)) |
82e7df72b8a0
(dired-string-replace-match): Function moved here.
Richard M. Stallman <rms@gnu.org>
parents:
10126
diff
changeset
|
1316 nil |
12906
28a8f63327fc
(dired-string-replace-match): Simplify using replace-match.
Richard M. Stallman <rms@gnu.org>
parents:
12801
diff
changeset
|
1317 (replace-match newtext t literal string)))) |
10214
82e7df72b8a0
(dired-string-replace-match): Function moved here.
Richard M. Stallman <rms@gnu.org>
parents:
10126
diff
changeset
|
1318 |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1319 (defun dired-make-absolute (file &optional dir) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1320 ;;"Convert FILE (a pathname relative to DIR) to an absolute pathname." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1321 ;; We can't always use expand-file-name as this would get rid of `.' |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1322 ;; or expand in / instead default-directory if DIR=="". |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1323 ;; This should be good enough for ange-ftp, but might easily be |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1324 ;; redefined (for VMS?). |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1325 ;; It should be reasonably fast, though, as it is called in |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1326 ;; dired-get-filename. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1327 (concat (or dir default-directory) file)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1328 |
16794
2de3fd99ae88
(dired-make-relative): Ignore the third argument;
Richard M. Stallman <rms@gnu.org>
parents:
16782
diff
changeset
|
1329 (defun dired-make-relative (file &optional dir ignore) |
2de3fd99ae88
(dired-make-relative): Ignore the third argument;
Richard M. Stallman <rms@gnu.org>
parents:
16782
diff
changeset
|
1330 "Convert FILE (an absolute file name) to a name relative to DIR. |
2de3fd99ae88
(dired-make-relative): Ignore the third argument;
Richard M. Stallman <rms@gnu.org>
parents:
16782
diff
changeset
|
1331 If this is impossible, return FILE unchanged. |
2de3fd99ae88
(dired-make-relative): Ignore the third argument;
Richard M. Stallman <rms@gnu.org>
parents:
16782
diff
changeset
|
1332 DIR must be a directory name, not a file name." |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1333 (or dir (setq dir default-directory)) |
5003
28ad14078b0e
(dired-chown-program): Check for irix, not silicon-graphic-unix.
Richard M. Stallman <rms@gnu.org>
parents:
4888
diff
changeset
|
1334 ;; This case comes into play if default-directory is set to |
28ad14078b0e
(dired-chown-program): Check for irix, not silicon-graphic-unix.
Richard M. Stallman <rms@gnu.org>
parents:
4888
diff
changeset
|
1335 ;; use ~. |
28ad14078b0e
(dired-chown-program): Check for irix, not silicon-graphic-unix.
Richard M. Stallman <rms@gnu.org>
parents:
4888
diff
changeset
|
1336 (if (and (> (length dir) 0) (= (aref dir 0) ?~)) |
28ad14078b0e
(dired-chown-program): Check for irix, not silicon-graphic-unix.
Richard M. Stallman <rms@gnu.org>
parents:
4888
diff
changeset
|
1337 (setq dir (expand-file-name dir))) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1338 (if (string-match (concat "^" (regexp-quote dir)) file) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1339 (substring file (match-end 0)) |
16794
2de3fd99ae88
(dired-make-relative): Ignore the third argument;
Richard M. Stallman <rms@gnu.org>
parents:
16782
diff
changeset
|
1340 ;;; (or no-error |
2de3fd99ae88
(dired-make-relative): Ignore the third argument;
Richard M. Stallman <rms@gnu.org>
parents:
16782
diff
changeset
|
1341 ;;; (error "%s: not in directory tree growing at %s" file dir)) |
2de3fd99ae88
(dired-make-relative): Ignore the third argument;
Richard M. Stallman <rms@gnu.org>
parents:
16782
diff
changeset
|
1342 file)) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1343 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1344 ;;; Functions for finding the file name in a dired buffer line. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1345 |
5483
5d55b13edb62
(dired-move-to-filename-regexp): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5299
diff
changeset
|
1346 (defvar dired-move-to-filename-regexp |
16710
68c2e772f753
(dired-move-to-filename-regexp): Recognize various languages.
Richard M. Stallman <rms@gnu.org>
parents:
16514
diff
changeset
|
1347 " [A-Za-z\xa0-\xff][A-Za-z\xa0-\xff][A-Za-z\xa0-\xff] [0-3 ][0-9]\ |
68c2e772f753
(dired-move-to-filename-regexp): Recognize various languages.
Richard M. Stallman <rms@gnu.org>
parents:
16514
diff
changeset
|
1348 [ 0-9][0-9][:0-9][0-9][ 0-9] " |
68c2e772f753
(dired-move-to-filename-regexp): Recognize various languages.
Richard M. Stallman <rms@gnu.org>
parents:
16514
diff
changeset
|
1349 "Regular expression to match a month abbreviation followed date/time.") |
5483
5d55b13edb62
(dired-move-to-filename-regexp): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5299
diff
changeset
|
1350 |
16782
97849649b875
(dired-permission-flags-regexp): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16773
diff
changeset
|
1351 (defvar dired-permission-flags-regexp |
97849649b875
(dired-permission-flags-regexp): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16773
diff
changeset
|
1352 "\\([^ ]\\)[-r][-w]\\([^ ]\\)[-r][-w]\\([^ ]\\)[-r][-w]\\([^ ]\\)" |
97849649b875
(dired-permission-flags-regexp): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16773
diff
changeset
|
1353 "Regular expression to match the permission flags in `ls -l'.") |
97849649b875
(dired-permission-flags-regexp): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16773
diff
changeset
|
1354 |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1355 ;; Move to first char of filename on this line. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1356 ;; Returns position (point) or nil if no filename on this line." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1357 (defun dired-move-to-filename (&optional raise-error eol) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1358 ;; This is the UNIX version. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1359 (or eol (setq eol (progn (end-of-line) (point)))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1360 (beginning-of-line) |
6817
51ff777c8fd6
(dired-move-to-filename-regexp): Match the year or time.
Richard M. Stallman <rms@gnu.org>
parents:
6801
diff
changeset
|
1361 (if (re-search-forward dired-move-to-filename-regexp eol t) |
51ff777c8fd6
(dired-move-to-filename-regexp): Match the year or time.
Richard M. Stallman <rms@gnu.org>
parents:
6801
diff
changeset
|
1362 (goto-char (match-end 0)) |
51ff777c8fd6
(dired-move-to-filename-regexp): Match the year or time.
Richard M. Stallman <rms@gnu.org>
parents:
6801
diff
changeset
|
1363 (if raise-error |
51ff777c8fd6
(dired-move-to-filename-regexp): Match the year or time.
Richard M. Stallman <rms@gnu.org>
parents:
6801
diff
changeset
|
1364 (error "No file on this line")))) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1365 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1366 (defun dired-move-to-end-of-filename (&optional no-error) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1367 ;; Assumes point is at beginning of filename, |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1368 ;; thus the rwx bit re-search-backward below will succeed in *this* |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1369 ;; line if at all. So, it should be called only after |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1370 ;; (dired-move-to-filename t). |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1371 ;; On failure, signals an error (with non-nil NO-ERROR just returns nil). |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1372 ;; This is the UNIX version. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1373 (let (opoint file-type executable symlink hidden case-fold-search used-F eol) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1374 ;; case-fold-search is nil now, so we can test for capital F: |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1375 (setq used-F (string-match "F" dired-actual-switches) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1376 opoint (point) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1377 eol (save-excursion (end-of-line) (point)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1378 hidden (and selective-display |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1379 (save-excursion (search-forward "\r" eol t)))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1380 (if hidden |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1381 nil |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1382 (save-excursion;; Find out what kind of file this is: |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1383 ;; Restrict perm bits to be non-blank, |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1384 ;; otherwise this matches one char to early (looking backward): |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1385 ;; "l---------" (some systems make symlinks that way) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1386 ;; "----------" (plain file with zero perms) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1387 (if (re-search-backward |
16782
97849649b875
(dired-permission-flags-regexp): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16773
diff
changeset
|
1388 dired-permission-flags-regexp nil t) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1389 (setq file-type (char-after (match-beginning 1)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1390 symlink (eq file-type ?l) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1391 ;; Only with -F we need to know whether it's an executable |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1392 executable (and |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1393 used-F |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1394 (string-match |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1395 "[xst]";; execute bit set anywhere? |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1396 (concat |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1397 (buffer-substring (match-beginning 2) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1398 (match-end 2)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1399 (buffer-substring (match-beginning 3) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1400 (match-end 3)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1401 (buffer-substring (match-beginning 4) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1402 (match-end 4)))))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1403 (or no-error (error "No file on this line")))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1404 ;; Move point to end of name: |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1405 (if symlink |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1406 (if (search-forward " ->" eol t) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1407 (progn |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1408 (forward-char -3) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1409 (and used-F |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1410 dired-ls-F-marks-symlinks |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1411 (eq (preceding-char) ?@);; did ls really mark the link? |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1412 (forward-char -1)))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1413 (goto-char eol);; else not a symbolic link |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1414 ;; ls -lF marks dirs, sockets and executables with exactly one |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1415 ;; trailing character. (Executable bits on symlinks ain't mean |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1416 ;; a thing, even to ls, but we know it's not a symlink.) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1417 (and used-F |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1418 (or (memq file-type '(?d ?s)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1419 executable) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1420 (forward-char -1)))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1421 (or no-error |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1422 (not (eq opoint (point))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1423 (error (if hidden |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1424 (substitute-command-keys |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1425 "File line is hidden, type \\[dired-hide-subdir] to unhide") |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1426 "No file on this line"))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1427 (if (eq opoint (point)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1428 nil |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1429 (point)))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1430 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1431 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1432 ;; Keeping Dired buffers in sync with the filesystem and with each other |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1433 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1434 (defvar dired-buffers nil |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1435 ;; Enlarged by dired-advertise |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1436 ;; Queried by function dired-buffers-for-dir. When this detects a |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1437 ;; killed buffer, it is removed from this list. |
8791
555762c754a6
(dired-buffers-for-dir): Assume dirs are preexpanded.
Richard M. Stallman <rms@gnu.org>
parents:
8438
diff
changeset
|
1438 "Alist of expanded directories and their associated dired buffers.") |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1439 |
17206
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1440 (defun dired-buffers-for-dir (dir &optional file) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1441 ;; Return a list of buffers that dired DIR (top level or in-situ subdir). |
17206
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1442 ;; If FILE is non-nil, include only those whose wildcard pattern (if any) |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1443 ;; matches FILE. |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1444 ;; The list is in reverse order of buffer creation, most recent last. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1445 ;; As a side effect, killed dired buffers for DIR are removed from |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1446 ;; dired-buffers. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1447 (setq dir (file-name-as-directory dir)) |
17206
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1448 (let ((alist dired-buffers) result elt buf pattern) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1449 (while alist |
8791
555762c754a6
(dired-buffers-for-dir): Assume dirs are preexpanded.
Richard M. Stallman <rms@gnu.org>
parents:
8438
diff
changeset
|
1450 (setq elt (car alist) |
555762c754a6
(dired-buffers-for-dir): Assume dirs are preexpanded.
Richard M. Stallman <rms@gnu.org>
parents:
8438
diff
changeset
|
1451 buf (cdr elt)) |
555762c754a6
(dired-buffers-for-dir): Assume dirs are preexpanded.
Richard M. Stallman <rms@gnu.org>
parents:
8438
diff
changeset
|
1452 (if (buffer-name buf) |
555762c754a6
(dired-buffers-for-dir): Assume dirs are preexpanded.
Richard M. Stallman <rms@gnu.org>
parents:
8438
diff
changeset
|
1453 (if (dired-in-this-tree dir (car elt)) |
17206
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1454 (with-current-buffer buf |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1455 (and (assoc dir dired-subdir-alist) |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1456 (or (null file) |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1457 (let ((wildcards |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1458 (file-name-nondirectory dired-directory))) |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1459 (or (= 0 (length wildcards)) |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1460 (string-match (dired-glob-regexp wildcards) |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1461 file)))) |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1462 (setq result (cons buf result))))) |
8791
555762c754a6
(dired-buffers-for-dir): Assume dirs are preexpanded.
Richard M. Stallman <rms@gnu.org>
parents:
8438
diff
changeset
|
1463 ;; else buffer is killed - clean up: |
555762c754a6
(dired-buffers-for-dir): Assume dirs are preexpanded.
Richard M. Stallman <rms@gnu.org>
parents:
8438
diff
changeset
|
1464 (setq dired-buffers (delq elt dired-buffers))) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1465 (setq alist (cdr alist))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1466 result)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1467 |
17206
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1468 (defun dired-glob-regexp (pattern) |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1469 "Convert glob-pattern PATTERN to a regular expression." |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1470 (let ((matched-in-pattern 0) ;; How many chars of PATTERN we've handled. |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1471 regexp) |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1472 (while (string-match "[[?*]" pattern matched-in-pattern) |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1473 (let ((op-end (match-end 0)) |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1474 (next-op (aref pattern (match-beginning 0)))) |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1475 (setq regexp (concat regexp |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1476 (regexp-quote |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1477 (substring pattern matched-in-pattern |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1478 (match-beginning 0))))) |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1479 (cond ((= next-op ??) |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1480 (setq regexp (concat regexp ".")) |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1481 (setq matched-in-pattern op-end)) |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1482 ((= next-op ?\[) |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1483 ;; Fails to handle ^ yet ???? |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1484 (let* ((set-start (match-beginning 0)) |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1485 (set-cont |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1486 (if (= (aref pattern (1+ set-start)) ?^) |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1487 (+ 3 set-start) |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1488 (+ 2 set-start))) |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1489 (set-end (string-match "]" pattern set-cont)) |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1490 (set (substring pattern set-start (1+ set-end)))) |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1491 (setq regexp (concat regexp set)) |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1492 (setq matched-in-pattern (1+ set-end)))) |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1493 ((= next-op ?*) |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1494 (setq regexp (concat regexp ".*")) |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1495 (setq matched-in-pattern op-end))))) |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1496 (concat "\\`" |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1497 regexp |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1498 (regexp-quote |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1499 (substring pattern matched-in-pattern)) |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1500 "\\'"))) |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1501 |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1502 |
30a9faea2a54
(dired-glob-regexp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17198
diff
changeset
|
1503 |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1504 (defun dired-advertise () |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1505 ;;"Advertise in variable `dired-buffers' that we dired `default-directory'." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1506 ;; With wildcards we actually advertise too much. |
8791
555762c754a6
(dired-buffers-for-dir): Assume dirs are preexpanded.
Richard M. Stallman <rms@gnu.org>
parents:
8438
diff
changeset
|
1507 (let ((expanded-default (expand-file-name default-directory))) |
555762c754a6
(dired-buffers-for-dir): Assume dirs are preexpanded.
Richard M. Stallman <rms@gnu.org>
parents:
8438
diff
changeset
|
1508 (if (memq (current-buffer) (dired-buffers-for-dir expanded-default)) |
555762c754a6
(dired-buffers-for-dir): Assume dirs are preexpanded.
Richard M. Stallman <rms@gnu.org>
parents:
8438
diff
changeset
|
1509 t ; we have already advertised ourselves |
555762c754a6
(dired-buffers-for-dir): Assume dirs are preexpanded.
Richard M. Stallman <rms@gnu.org>
parents:
8438
diff
changeset
|
1510 (setq dired-buffers |
555762c754a6
(dired-buffers-for-dir): Assume dirs are preexpanded.
Richard M. Stallman <rms@gnu.org>
parents:
8438
diff
changeset
|
1511 (cons (cons expanded-default (current-buffer)) |
555762c754a6
(dired-buffers-for-dir): Assume dirs are preexpanded.
Richard M. Stallman <rms@gnu.org>
parents:
8438
diff
changeset
|
1512 dired-buffers))))) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1513 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1514 (defun dired-unadvertise (dir) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1515 ;; Remove DIR from the buffer alist in variable dired-buffers. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1516 ;; This has the effect of removing any buffer whose main directory is DIR. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1517 ;; It does not affect buffers in which DIR is a subdir. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1518 ;; Removing is also done as a side-effect in dired-buffer-for-dir. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1519 (setq dired-buffers |
8791
555762c754a6
(dired-buffers-for-dir): Assume dirs are preexpanded.
Richard M. Stallman <rms@gnu.org>
parents:
8438
diff
changeset
|
1520 (delq (assoc (expand-file-name dir) dired-buffers) dired-buffers))) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1521 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1522 ;; Tree Dired |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1523 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1524 ;;; utility functions |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1525 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1526 (defun dired-in-this-tree (file dir) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1527 ;;"Is FILE part of the directory tree starting at DIR?" |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1528 (let (case-fold-search) |
8791
555762c754a6
(dired-buffers-for-dir): Assume dirs are preexpanded.
Richard M. Stallman <rms@gnu.org>
parents:
8438
diff
changeset
|
1529 (string-match (concat "^" (regexp-quote dir)) file))) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1530 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1531 (defun dired-normalize-subdir (dir) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1532 ;; Prepend default-directory to DIR if relative path name. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1533 ;; dired-get-filename must be able to make a valid filename from a |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1534 ;; file and its directory DIR. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1535 (file-name-as-directory |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1536 (if (file-name-absolute-p dir) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1537 dir |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1538 (expand-file-name dir default-directory)))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1539 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1540 (defun dired-get-subdir () |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1541 ;;"Return the subdir name on this line, or nil if not on a headerline." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1542 ;; Look up in the alist whether this is a headerline. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1543 (save-excursion |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1544 (let ((cur-dir (dired-current-directory))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1545 (beginning-of-line) ; alist stores b-o-l positions |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1546 (and (zerop (- (point) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1547 (dired-get-subdir-min (assoc cur-dir |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1548 dired-subdir-alist)))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1549 cur-dir)))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1550 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1551 ;(defun dired-get-subdir-min (elt) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1552 ; (cdr elt)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1553 ;; can't use macro, must be redefinable for other alist format in dired-nstd. |
2584
55e18ce6e98a
Changed fsets to defaliases.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2492
diff
changeset
|
1554 (defalias 'dired-get-subdir-min 'cdr) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1555 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1556 (defun dired-get-subdir-max (elt) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1557 (save-excursion |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1558 (goto-char (dired-get-subdir-min elt)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1559 (dired-subdir-max))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1560 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1561 (defun dired-clear-alist () |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1562 (while dired-subdir-alist |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1563 (set-marker (dired-get-subdir-min (car dired-subdir-alist)) nil) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1564 (setq dired-subdir-alist (cdr dired-subdir-alist)))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1565 |
1091
3302f6e93ce5
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
910
diff
changeset
|
1566 (defun dired-subdir-index (dir) |
3302f6e93ce5
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
910
diff
changeset
|
1567 ;; Return an index into alist for use with nth |
3302f6e93ce5
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
910
diff
changeset
|
1568 ;; for the sake of subdir moving commands. |
3302f6e93ce5
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
910
diff
changeset
|
1569 (let (found (index 0) (alist dired-subdir-alist)) |
3302f6e93ce5
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
910
diff
changeset
|
1570 (while alist |
3302f6e93ce5
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
910
diff
changeset
|
1571 (if (string= dir (car (car alist))) |
3302f6e93ce5
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
910
diff
changeset
|
1572 (setq alist nil found t) |
3302f6e93ce5
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
910
diff
changeset
|
1573 (setq alist (cdr alist) index (1+ index)))) |
3302f6e93ce5
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
910
diff
changeset
|
1574 (if found index nil))) |
3302f6e93ce5
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
910
diff
changeset
|
1575 |
3302f6e93ce5
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
910
diff
changeset
|
1576 (defun dired-next-subdir (arg &optional no-error-if-not-found no-skip) |
3302f6e93ce5
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
910
diff
changeset
|
1577 "Go to next subdirectory, regardless of level." |
3302f6e93ce5
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
910
diff
changeset
|
1578 ;; Use 0 arg to go to this directory's header line. |
3302f6e93ce5
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
910
diff
changeset
|
1579 ;; NO-SKIP prevents moving to end of header line, returning whatever |
3302f6e93ce5
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
910
diff
changeset
|
1580 ;; position was found in dired-subdir-alist. |
3302f6e93ce5
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
910
diff
changeset
|
1581 (interactive "p") |
3302f6e93ce5
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
910
diff
changeset
|
1582 (let ((this-dir (dired-current-directory)) |
3302f6e93ce5
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
910
diff
changeset
|
1583 pos index) |
3302f6e93ce5
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
910
diff
changeset
|
1584 ;; nth with negative arg does not return nil but the first element |
3302f6e93ce5
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
910
diff
changeset
|
1585 (setq index (- (dired-subdir-index this-dir) arg)) |
3302f6e93ce5
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
910
diff
changeset
|
1586 (setq pos (if (>= index 0) |
3302f6e93ce5
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
910
diff
changeset
|
1587 (dired-get-subdir-min (nth index dired-subdir-alist)))) |
3302f6e93ce5
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
910
diff
changeset
|
1588 (if pos |
3302f6e93ce5
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
910
diff
changeset
|
1589 (progn |
3302f6e93ce5
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
910
diff
changeset
|
1590 (goto-char pos) |
3302f6e93ce5
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
910
diff
changeset
|
1591 (or no-skip (skip-chars-forward "^\n\r")) |
3302f6e93ce5
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
910
diff
changeset
|
1592 (point)) |
3302f6e93ce5
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
910
diff
changeset
|
1593 (if no-error-if-not-found |
3302f6e93ce5
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
910
diff
changeset
|
1594 nil ; return nil if not found |
3302f6e93ce5
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
910
diff
changeset
|
1595 (error "%s directory" (if (> arg 0) "Last" "First")))))) |
3302f6e93ce5
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
910
diff
changeset
|
1596 |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1597 (defun dired-build-subdir-alist () |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1598 "Build `dired-subdir-alist' by parsing the buffer. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1599 Returns the new value of the alist." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1600 (interactive) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1601 (dired-clear-alist) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1602 (save-excursion |
4760
f3808bb8a993
(dired-mode): Don't change the value of case-fold-search.
Brian Fox <bfox@gnu.org>
parents:
4394
diff
changeset
|
1603 (let ((count 0) |
f3808bb8a993
(dired-mode): Don't change the value of case-fold-search.
Brian Fox <bfox@gnu.org>
parents:
4394
diff
changeset
|
1604 (buffer-read-only nil) |
f3808bb8a993
(dired-mode): Don't change the value of case-fold-search.
Brian Fox <bfox@gnu.org>
parents:
4394
diff
changeset
|
1605 new-dir-name) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1606 (goto-char (point-min)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1607 (setq dired-subdir-alist nil) |
7918
4561618ebf64
(dired-build-subdir-alist): Avoid mistaking a file name
Richard M. Stallman <rms@gnu.org>
parents:
7728
diff
changeset
|
1608 (while (and (re-search-forward dired-subdir-regexp nil t) |
4561618ebf64
(dired-build-subdir-alist): Avoid mistaking a file name
Richard M. Stallman <rms@gnu.org>
parents:
7728
diff
changeset
|
1609 ;; Avoid taking a file name ending in a colon |
4561618ebf64
(dired-build-subdir-alist): Avoid mistaking a file name
Richard M. Stallman <rms@gnu.org>
parents:
7728
diff
changeset
|
1610 ;; as a subdir name. |
4561618ebf64
(dired-build-subdir-alist): Avoid mistaking a file name
Richard M. Stallman <rms@gnu.org>
parents:
7728
diff
changeset
|
1611 (not (save-excursion |
4561618ebf64
(dired-build-subdir-alist): Avoid mistaking a file name
Richard M. Stallman <rms@gnu.org>
parents:
7728
diff
changeset
|
1612 (goto-char (match-beginning 0)) |
4561618ebf64
(dired-build-subdir-alist): Avoid mistaking a file name
Richard M. Stallman <rms@gnu.org>
parents:
7728
diff
changeset
|
1613 (beginning-of-line) |
4561618ebf64
(dired-build-subdir-alist): Avoid mistaking a file name
Richard M. Stallman <rms@gnu.org>
parents:
7728
diff
changeset
|
1614 (forward-char 2) |
7945
db1785b91d03
(dired-build-subdir-alist): Don't let looking-at destroy the match data.
Karl Heuer <kwzh@gnu.org>
parents:
7918
diff
changeset
|
1615 (save-match-data (looking-at dired-re-perms))))) |
4760
f3808bb8a993
(dired-mode): Don't change the value of case-fold-search.
Brian Fox <bfox@gnu.org>
parents:
4394
diff
changeset
|
1616 (save-excursion |
f3808bb8a993
(dired-mode): Don't change the value of case-fold-search.
Brian Fox <bfox@gnu.org>
parents:
4394
diff
changeset
|
1617 (goto-char (match-beginning 1)) |
f3808bb8a993
(dired-mode): Don't change the value of case-fold-search.
Brian Fox <bfox@gnu.org>
parents:
4394
diff
changeset
|
1618 (setq new-dir-name |
f3808bb8a993
(dired-mode): Don't change the value of case-fold-search.
Brian Fox <bfox@gnu.org>
parents:
4394
diff
changeset
|
1619 (expand-file-name (buffer-substring (point) (match-end 1)))) |
f3808bb8a993
(dired-mode): Don't change the value of case-fold-search.
Brian Fox <bfox@gnu.org>
parents:
4394
diff
changeset
|
1620 (delete-region (point) (match-end 1)) |
f3808bb8a993
(dired-mode): Don't change the value of case-fold-search.
Brian Fox <bfox@gnu.org>
parents:
4394
diff
changeset
|
1621 (insert new-dir-name)) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1622 (setq count (1+ count)) |
4760
f3808bb8a993
(dired-mode): Don't change the value of case-fold-search.
Brian Fox <bfox@gnu.org>
parents:
4394
diff
changeset
|
1623 (dired-alist-add-1 new-dir-name |
f3808bb8a993
(dired-mode): Don't change the value of case-fold-search.
Brian Fox <bfox@gnu.org>
parents:
4394
diff
changeset
|
1624 ;; Place a sub directory boundary between lines. |
f3808bb8a993
(dired-mode): Don't change the value of case-fold-search.
Brian Fox <bfox@gnu.org>
parents:
4394
diff
changeset
|
1625 (save-excursion |
f3808bb8a993
(dired-mode): Don't change the value of case-fold-search.
Brian Fox <bfox@gnu.org>
parents:
4394
diff
changeset
|
1626 (goto-char (match-beginning 0)) |
f3808bb8a993
(dired-mode): Don't change the value of case-fold-search.
Brian Fox <bfox@gnu.org>
parents:
4394
diff
changeset
|
1627 (beginning-of-line) |
f3808bb8a993
(dired-mode): Don't change the value of case-fold-search.
Brian Fox <bfox@gnu.org>
parents:
4394
diff
changeset
|
1628 (point-marker)))) |
1091
3302f6e93ce5
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
910
diff
changeset
|
1629 (if (> count 1) |
3302f6e93ce5
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
910
diff
changeset
|
1630 (message "Buffer includes %d directories" count)) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1631 ;; We don't need to sort it because it is in buffer order per |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1632 ;; constructionem. Return new alist: |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1633 dired-subdir-alist))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1634 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1635 (defun dired-alist-add-1 (dir new-marker) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1636 ;; Add new DIR at NEW-MARKER. Don't sort. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1637 (setq dired-subdir-alist |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1638 (cons (cons (dired-normalize-subdir dir) new-marker) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1639 dired-subdir-alist))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1640 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1641 (defun dired-goto-next-nontrivial-file () |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1642 ;; Position point on first nontrivial file after point. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1643 (dired-goto-next-file);; so there is a file to compare with |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1644 (if (stringp dired-trivial-filenames) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1645 (while (and (not (eobp)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1646 (string-match dired-trivial-filenames |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1647 (file-name-nondirectory |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1648 (or (dired-get-filename nil t) "")))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1649 (forward-line 1) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1650 (dired-move-to-filename)))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1651 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1652 (defun dired-goto-next-file () |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1653 (let ((max (1- (dired-subdir-max)))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1654 (while (and (not (dired-move-to-filename)) (< (point) max)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1655 (forward-line 1)))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1656 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1657 (defun dired-goto-file (file) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1658 "Go to file line of FILE in this dired buffer." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1659 ;; Return value of point on success, else nil. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1660 ;; FILE must be an absolute pathname. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1661 ;; Loses if FILE contains control chars like "\007" for which ls |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1662 ;; either inserts "?" or "\\007" into the buffer, so we won't find |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1663 ;; it in the buffer. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1664 (interactive |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1665 (prog1 ; let push-mark display its message |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1666 (list (expand-file-name |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1667 (read-file-name "Goto file: " |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1668 (dired-current-directory)))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1669 (push-mark))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1670 (setq file (directory-file-name file)) ; does no harm if no directory |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1671 (let (found case-fold-search dir) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1672 (setq dir (or (file-name-directory file) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1673 (error "Need absolute pathname for %s" file))) |
661 | 1674 (save-excursion |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1675 ;; The hair here is to get the result of dired-goto-subdir |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1676 ;; without really calling it if we don't have any subdirs. |
5299
883c241eed1b
(dired-in-this-tree): Call expand-file-name.
Richard M. Stallman <rms@gnu.org>
parents:
5115
diff
changeset
|
1677 (if (if (string= dir (expand-file-name default-directory)) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1678 (goto-char (point-min)) |
1170 | 1679 (and (cdr dired-subdir-alist) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1680 (dired-goto-subdir dir))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1681 (let ((base (file-name-nondirectory file)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1682 (boundary (dired-subdir-max))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1683 (while (and (not found) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1684 ;; filenames are preceded by SPC, this makes |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1685 ;; the search faster (e.g. for the filename "-"!). |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1686 (search-forward (concat " " base) boundary 'move)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1687 ;; Match could have BASE just as initial substring or |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1688 ;; or in permission bits or date or |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1689 ;; not be a proper filename at all: |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1690 (if (equal base (dired-get-filename 'no-dir t)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1691 ;; Must move to filename since an (actually |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1692 ;; correct) match could have been elsewhere on the |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1693 ;; ;; line (e.g. "-" would match somewhere in the |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1694 ;; permission bits). |
5115
da6f8aa6c0aa
(dired-goto-file): Don't try matching one line twice.
Richard M. Stallman <rms@gnu.org>
parents:
5113
diff
changeset
|
1695 (setq found (dired-move-to-filename)) |
da6f8aa6c0aa
(dired-goto-file): Don't try matching one line twice.
Richard M. Stallman <rms@gnu.org>
parents:
5113
diff
changeset
|
1696 ;; If this isn't the right line, move forward to avoid |
da6f8aa6c0aa
(dired-goto-file): Don't try matching one line twice.
Richard M. Stallman <rms@gnu.org>
parents:
5113
diff
changeset
|
1697 ;; trying this line again. |
da6f8aa6c0aa
(dired-goto-file): Don't try matching one line twice.
Richard M. Stallman <rms@gnu.org>
parents:
5113
diff
changeset
|
1698 (forward-line 1)))))) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1699 (and found |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1700 ;; return value of point (i.e., FOUND): |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1701 (goto-char found)))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1702 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1703 (defun dired-initial-position (dirname) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1704 ;; Where point should go in a new listing of DIRNAME. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1705 ;; Point assumed at beginning of new subdir line. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1706 ;; You may redefine this function as you wish, e.g. like in dired-x.el. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1707 (end-of-line) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1708 (if dired-trivial-filenames (dired-goto-next-nontrivial-file))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1709 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1710 ;; These are hooks which make tree dired work. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1711 ;; They are in this file because other parts of dired need to call them. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1712 ;; But they don't call the rest of tree dired unless there are subdirs loaded. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1713 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1714 ;; This function is called for each retrieved filename. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1715 ;; It could stand to be faster, though it's mostly function call |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1716 ;; overhead. Avoiding the function call seems to save about 10% in |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1717 ;; dired-get-filename. Make it a defsubst? |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1718 (defun dired-current-directory (&optional localp) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1719 "Return the name of the subdirectory to which this line belongs. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1720 This returns a string with trailing slash, like `default-directory'. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1721 Optional argument means return a file name relative to `default-directory'." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1722 (let ((here (point)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1723 (alist (or dired-subdir-alist |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1724 ;; probably because called in a non-dired buffer |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1725 (error "No subdir-alist in %s" (current-buffer)))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1726 elt dir) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1727 (while alist |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1728 (setq elt (car alist) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1729 dir (car elt) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1730 ;; use `<=' (not `<') as subdir line is part of subdir |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1731 alist (if (<= (dired-get-subdir-min elt) here) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1732 nil ; found |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1733 (cdr alist)))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1734 (if localp |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1735 (dired-make-relative dir default-directory) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1736 dir))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1737 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1738 ;; Subdirs start at the beginning of their header lines and end just |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1739 ;; before the beginning of the next header line (or end of buffer). |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1740 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1741 (defun dired-subdir-max () |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1742 (save-excursion |
1170 | 1743 (if (or (null (cdr dired-subdir-alist)) (not (dired-next-subdir 1 t t))) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1744 (point-max) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1745 (point)))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1746 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1747 ;; Deleting files |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1748 |
12736
a7253dcf5f9d
(dired-insert-set-properties): Catch errors.
Richard M. Stallman <rms@gnu.org>
parents:
12211
diff
changeset
|
1749 (defun dired-do-flagged-delete (&optional nomessage) |
a7253dcf5f9d
(dired-insert-set-properties): Catch errors.
Richard M. Stallman <rms@gnu.org>
parents:
12211
diff
changeset
|
1750 "In dired, delete the files flagged for deletion. |
a7253dcf5f9d
(dired-insert-set-properties): Catch errors.
Richard M. Stallman <rms@gnu.org>
parents:
12211
diff
changeset
|
1751 If NOMESSAGE is non-nil, we don't display any message |
a7253dcf5f9d
(dired-insert-set-properties): Catch errors.
Richard M. Stallman <rms@gnu.org>
parents:
12211
diff
changeset
|
1752 if there are no flagged files." |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1753 (interactive) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1754 (let* ((dired-marker-char dired-del-marker) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1755 (regexp (dired-marker-regexp)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1756 case-fold-search) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1757 (if (save-excursion (goto-char (point-min)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1758 (re-search-forward regexp nil t)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1759 (dired-internal-do-deletions |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1760 ;; this can't move point since ARG is nil |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1761 (dired-map-over-marks (cons (dired-get-filename) (point)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1762 nil) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1763 nil) |
12736
a7253dcf5f9d
(dired-insert-set-properties): Catch errors.
Richard M. Stallman <rms@gnu.org>
parents:
12211
diff
changeset
|
1764 (or nomessage |
a7253dcf5f9d
(dired-insert-set-properties): Catch errors.
Richard M. Stallman <rms@gnu.org>
parents:
12211
diff
changeset
|
1765 (message "(No deletions requested)"))))) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1766 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1767 (defun dired-do-delete (&optional arg) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1768 "Delete all marked (or next ARG) files." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1769 ;; This is more consistent with the file marking feature than |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1770 ;; dired-do-flagged-delete. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1771 (interactive "P") |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1772 (dired-internal-do-deletions |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1773 ;; this may move point if ARG is an integer |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1774 (dired-map-over-marks (cons (dired-get-filename) (point)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1775 arg) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1776 arg)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1777 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1778 (defvar dired-deletion-confirmer 'yes-or-no-p) ; or y-or-n-p? |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1779 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1780 (defun dired-internal-do-deletions (l arg) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1781 ;; L is an alist of files to delete, with their buffer positions. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1782 ;; ARG is the prefix arg. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1783 ;; Filenames are absolute (VMS needs this for logical search paths). |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1784 ;; (car L) *must* be the *last* (bottommost) file in the dired buffer. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1785 ;; That way as changes are made in the buffer they do not shift the |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1786 ;; lines still to be changed, so the (point) values in L stay valid. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1787 ;; Also, for subdirs in natural order, a subdir's files are deleted |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1788 ;; before the subdir itself - the other way around would not work. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1789 (let ((files (mapcar (function car) l)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1790 (count (length l)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1791 (succ 0)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1792 ;; canonicalize file list for pop up |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1793 (setq files (nreverse (mapcar (function dired-make-relative) files))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1794 (if (dired-mark-pop-up |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1795 " *Deletions*" 'delete files dired-deletion-confirmer |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1796 (format "Delete %s " (dired-mark-prompt arg files))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1797 (save-excursion |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1798 (let (failures);; files better be in reverse order for this loop! |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1799 (while l |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1800 (goto-char (cdr (car l))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1801 (let (buffer-read-only) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1802 (condition-case err |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1803 (let ((fn (car (car l)))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1804 ;; This test is equivalent to |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1805 ;; (and (file-directory-p fn) (not (file-symlink-p fn))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1806 ;; but more efficient |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1807 (if (eq t (car (file-attributes fn))) |
878
5b1c5b4286e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
834
diff
changeset
|
1808 (delete-directory fn) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1809 (delete-file fn)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1810 ;; if we get here, removing worked |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1811 (setq succ (1+ succ)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1812 (message "%s of %s deletions" succ count) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1813 (delete-region (progn (beginning-of-line) (point)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1814 (progn (forward-line 1) (point))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1815 (dired-clean-up-after-deletion fn)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1816 (error;; catch errors from failed deletions |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1817 (dired-log "%s\n" err) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1818 (setq failures (cons (car (car l)) failures))))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1819 (setq l (cdr l))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1820 (if (not failures) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1821 (message "%d deletion%s done" count (dired-plural-s count)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1822 (dired-log-summary |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1823 (format "%d of %d deletion%s failed" |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1824 (length failures) count |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1825 (dired-plural-s count)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1826 failures)))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1827 (message "(No deletions performed)"))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1828 (dired-move-to-filename)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1829 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1830 ;; This is a separate function for the sake of dired-x.el. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1831 (defun dired-clean-up-after-deletion (fn) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1832 ;; Clean up after a deleted file or directory FN. |
1170 | 1833 (save-excursion (and (cdr dired-subdir-alist) |
1834 (dired-goto-subdir fn) | |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1835 (dired-kill-subdir)))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1836 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1837 ;; Confirmation |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1838 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1839 (defun dired-marker-regexp () |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1840 (concat "^" (regexp-quote (char-to-string dired-marker-char)))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1841 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1842 (defun dired-plural-s (count) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1843 (if (= 1 count) "" "s")) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1844 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1845 (defun dired-mark-prompt (arg files) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1846 ;; Return a string for use in a prompt, either the current file |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1847 ;; name, or the marker and a count of marked files. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1848 (let ((count (length files))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1849 (if (= count 1) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1850 (car files) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1851 ;; more than 1 file: |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1852 (if (integerp arg) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1853 ;; abs(arg) = count |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1854 ;; Perhaps this is nicer, but it also takes more screen space: |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1855 ;;(format "[%s %d files]" (if (> arg 0) "next" "previous") |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1856 ;; count) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1857 (format "[next %d files]" arg) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1858 (format "%c [%d files]" dired-marker-char count))))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1859 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1860 (defun dired-pop-to-buffer (buf) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1861 ;; Pop up buffer BUF. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1862 ;; If dired-shrink-to-fit is t, make its window fit its contents. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1863 (if (not dired-shrink-to-fit) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1864 (pop-to-buffer (get-buffer-create buf)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1865 ;; let window shrink to fit: |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1866 (let ((window (selected-window)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1867 target-lines w2) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1868 (cond ;; if split-window-threshold is enabled, use the largest window |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1869 ((and (> (window-height (setq w2 (get-largest-window))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1870 split-height-threshold) |
778 | 1871 (= (frame-width) (window-width w2))) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1872 (setq window w2)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1873 ;; if the least-recently-used window is big enough, use it |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1874 ((and (> (window-height (setq w2 (get-lru-window))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1875 (* 2 window-min-height)) |
778 | 1876 (= (frame-width) (window-width w2))) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1877 (setq window w2))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1878 (save-excursion |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1879 (set-buffer buf) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1880 (goto-char (point-max)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1881 (skip-chars-backward "\n\r\t ") |
2466
e766b88d67ce
(dired-pop-to-buffer): Adjust count-lines val for last line.
Richard M. Stallman <rms@gnu.org>
parents:
2458
diff
changeset
|
1882 (setq target-lines (count-lines (point-min) (point))) |
e766b88d67ce
(dired-pop-to-buffer): Adjust count-lines val for last line.
Richard M. Stallman <rms@gnu.org>
parents:
2458
diff
changeset
|
1883 ;; Don't forget to count the last line. |
e766b88d67ce
(dired-pop-to-buffer): Adjust count-lines val for last line.
Richard M. Stallman <rms@gnu.org>
parents:
2458
diff
changeset
|
1884 (if (not (bolp)) |
e766b88d67ce
(dired-pop-to-buffer): Adjust count-lines val for last line.
Richard M. Stallman <rms@gnu.org>
parents:
2458
diff
changeset
|
1885 (setq target-lines (1+ target-lines)))) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1886 (if (<= (window-height window) (* 2 window-min-height)) |
778 | 1887 ;; At this point, every window on the frame is too small to split. |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1888 (setq w2 (display-buffer buf)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1889 (setq w2 (split-window window |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1890 (max window-min-height |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1891 (- (window-height window) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1892 (1+ (max window-min-height target-lines))))))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1893 (set-window-buffer w2 buf) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1894 (if (< (1- (window-height w2)) target-lines) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1895 (progn |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1896 (select-window w2) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1897 (enlarge-window (- target-lines (1- (window-height w2)))))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1898 (set-window-start w2 1) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1899 ))) |
661 | 1900 |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1901 (defvar dired-no-confirm nil |
17198
471ce207330c
Doc dired-no-confirm and allow t value.
Simon Marshall <simon@gnu.org>
parents:
17079
diff
changeset
|
1902 "A list of symbols for commands dired should not confirm. |
471ce207330c
Doc dired-no-confirm and allow t value.
Simon Marshall <simon@gnu.org>
parents:
17079
diff
changeset
|
1903 Command symbols are `byte-compile', `chgrp', `chmod', `chown', `compress', |
471ce207330c
Doc dired-no-confirm and allow t value.
Simon Marshall <simon@gnu.org>
parents:
17079
diff
changeset
|
1904 `copy', `delete', `hardlink', `load', `move', `print', `shell', `symlink' and |
471ce207330c
Doc dired-no-confirm and allow t value.
Simon Marshall <simon@gnu.org>
parents:
17079
diff
changeset
|
1905 `uncompress'.") |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1906 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1907 (defun dired-mark-pop-up (bufname op-symbol files function &rest args) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1908 ;;"Args BUFNAME OP-SYMBOL FILES FUNCTION &rest ARGS. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1909 ;;Return FUNCTION's result on ARGS after popping up a window (in a buffer |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1910 ;;named BUFNAME, nil gives \" *Marked Files*\") showing the marked |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1911 ;;files. Uses function `dired-pop-to-buffer' to do that. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1912 ;; FUNCTION should not manipulate files. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1913 ;; It should only read input (an argument or confirmation). |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1914 ;;The window is not shown if there is just one file or |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1915 ;; OP-SYMBOL is a member of the list in `dired-no-confirm'. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1916 ;;FILES is the list of marked files." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1917 (or bufname (setq bufname " *Marked Files*")) |
17198
471ce207330c
Doc dired-no-confirm and allow t value.
Simon Marshall <simon@gnu.org>
parents:
17079
diff
changeset
|
1918 (if (or (eq dired-no-confirm t) |
471ce207330c
Doc dired-no-confirm and allow t value.
Simon Marshall <simon@gnu.org>
parents:
17079
diff
changeset
|
1919 (memq op-symbol dired-no-confirm) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1920 (= (length files) 1)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1921 (apply function args) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1922 (save-excursion |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1923 (set-buffer (get-buffer-create bufname)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1924 (erase-buffer) |
7609
79f2be712106
(dired-mark-pop-up): Clear mouse-face property.
Richard M. Stallman <rms@gnu.org>
parents:
7598
diff
changeset
|
1925 (dired-format-columns-of-files files) |
79f2be712106
(dired-mark-pop-up): Clear mouse-face property.
Richard M. Stallman <rms@gnu.org>
parents:
7598
diff
changeset
|
1926 (remove-text-properties (point-min) (point-max) '(mouse-face))) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1927 (save-window-excursion |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1928 (dired-pop-to-buffer bufname) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1929 (apply function args)))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1930 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1931 (defun dired-format-columns-of-files (files) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1932 ;; Files should be in forward order for this loop. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1933 ;; i.e., (car files) = first file in buffer. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1934 ;; Returns the number of lines used. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1935 (let* ((maxlen (+ 2 (apply 'max (mapcar 'length files)))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1936 (width (- (window-width (selected-window)) 2)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1937 (columns (max 1 (/ width maxlen))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1938 (nfiles (length files)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1939 (rows (+ (/ nfiles columns) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1940 (if (zerop (% nfiles columns)) 0 1))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1941 (i 0) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1942 (j 0)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1943 (setq files (nconc (copy-sequence files) ; fill up with empty fns |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1944 (make-list (- (* columns rows) nfiles) ""))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1945 (setcdr (nthcdr (1- (length files)) files) files) ; make circular |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1946 (while (< j rows) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1947 (while (< i columns) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1948 (indent-to (* i maxlen)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1949 (insert (car files)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1950 (setq files (nthcdr rows files) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1951 i (1+ i))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1952 (insert "\n") |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1953 (setq i 0 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1954 j (1+ j) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1955 files (cdr files))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1956 rows)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1957 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1958 ;; Commands to mark or flag file(s) at or near current line. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1959 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1960 (defun dired-repeat-over-lines (arg function) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1961 ;; This version skips non-file lines. |
3737
8a0b09b3a24c
(dired-repeat-over-lines): Going fwd, skip new lines
Richard M. Stallman <rms@gnu.org>
parents:
3633
diff
changeset
|
1962 (let ((pos (make-marker))) |
661 | 1963 (beginning-of-line) |
3737
8a0b09b3a24c
(dired-repeat-over-lines): Going fwd, skip new lines
Richard M. Stallman <rms@gnu.org>
parents:
3633
diff
changeset
|
1964 (while (and (> arg 0) (not (eobp))) |
8a0b09b3a24c
(dired-repeat-over-lines): Going fwd, skip new lines
Richard M. Stallman <rms@gnu.org>
parents:
3633
diff
changeset
|
1965 (setq arg (1- arg)) |
8a0b09b3a24c
(dired-repeat-over-lines): Going fwd, skip new lines
Richard M. Stallman <rms@gnu.org>
parents:
3633
diff
changeset
|
1966 (beginning-of-line) |
8a0b09b3a24c
(dired-repeat-over-lines): Going fwd, skip new lines
Richard M. Stallman <rms@gnu.org>
parents:
3633
diff
changeset
|
1967 (while (and (not (eobp)) (dired-between-files)) (forward-line 1)) |
8a0b09b3a24c
(dired-repeat-over-lines): Going fwd, skip new lines
Richard M. Stallman <rms@gnu.org>
parents:
3633
diff
changeset
|
1968 (save-excursion |
8a0b09b3a24c
(dired-repeat-over-lines): Going fwd, skip new lines
Richard M. Stallman <rms@gnu.org>
parents:
3633
diff
changeset
|
1969 (forward-line 1) |
8a0b09b3a24c
(dired-repeat-over-lines): Going fwd, skip new lines
Richard M. Stallman <rms@gnu.org>
parents:
3633
diff
changeset
|
1970 (move-marker pos (1+ (point)))) |
8a0b09b3a24c
(dired-repeat-over-lines): Going fwd, skip new lines
Richard M. Stallman <rms@gnu.org>
parents:
3633
diff
changeset
|
1971 (save-excursion (funcall function)) |
8a0b09b3a24c
(dired-repeat-over-lines): Going fwd, skip new lines
Richard M. Stallman <rms@gnu.org>
parents:
3633
diff
changeset
|
1972 ;; Advance to the next line--actually, to the line that *was* next. |
8a0b09b3a24c
(dired-repeat-over-lines): Going fwd, skip new lines
Richard M. Stallman <rms@gnu.org>
parents:
3633
diff
changeset
|
1973 ;; (If FUNCTION inserted some new lines in between, skip them.) |
8a0b09b3a24c
(dired-repeat-over-lines): Going fwd, skip new lines
Richard M. Stallman <rms@gnu.org>
parents:
3633
diff
changeset
|
1974 (goto-char pos)) |
8a0b09b3a24c
(dired-repeat-over-lines): Going fwd, skip new lines
Richard M. Stallman <rms@gnu.org>
parents:
3633
diff
changeset
|
1975 (while (and (< arg 0) (not (bobp))) |
8a0b09b3a24c
(dired-repeat-over-lines): Going fwd, skip new lines
Richard M. Stallman <rms@gnu.org>
parents:
3633
diff
changeset
|
1976 (setq arg (1+ arg)) |
8a0b09b3a24c
(dired-repeat-over-lines): Going fwd, skip new lines
Richard M. Stallman <rms@gnu.org>
parents:
3633
diff
changeset
|
1977 (forward-line -1) |
8a0b09b3a24c
(dired-repeat-over-lines): Going fwd, skip new lines
Richard M. Stallman <rms@gnu.org>
parents:
3633
diff
changeset
|
1978 (while (and (not (bobp)) (dired-between-files)) (forward-line -1)) |
8a0b09b3a24c
(dired-repeat-over-lines): Going fwd, skip new lines
Richard M. Stallman <rms@gnu.org>
parents:
3633
diff
changeset
|
1979 (beginning-of-line) |
8a0b09b3a24c
(dired-repeat-over-lines): Going fwd, skip new lines
Richard M. Stallman <rms@gnu.org>
parents:
3633
diff
changeset
|
1980 (save-excursion (funcall function))) |
8a0b09b3a24c
(dired-repeat-over-lines): Going fwd, skip new lines
Richard M. Stallman <rms@gnu.org>
parents:
3633
diff
changeset
|
1981 (move-marker pos nil) |
8a0b09b3a24c
(dired-repeat-over-lines): Going fwd, skip new lines
Richard M. Stallman <rms@gnu.org>
parents:
3633
diff
changeset
|
1982 (dired-move-to-filename))) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1983 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1984 (defun dired-between-files () |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1985 ;; Point must be at beginning of line |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1986 ;; Should be equivalent to (save-excursion (not (dired-move-to-filename))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1987 ;; but is about 1.5..2.0 times as fast. (Actually that's not worth it) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1988 (or (looking-at "^$\\|^. *$\\|^. total\\|^. wildcard") |
8299
bc8c9c72e3bf
(dired-between-files): Ignore dired-subdir-regexp
Richard M. Stallman <rms@gnu.org>
parents:
8073
diff
changeset
|
1989 (and (looking-at dired-subdir-regexp) |
bc8c9c72e3bf
(dired-between-files): Ignore dired-subdir-regexp
Richard M. Stallman <rms@gnu.org>
parents:
8073
diff
changeset
|
1990 (save-excursion (not (dired-move-to-filename)))))) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1991 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1992 (defun dired-next-marked-file (arg &optional wrap opoint) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1993 "Move to the next marked file, wrapping around the end of the buffer." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1994 (interactive "p\np") |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1995 (or opoint (setq opoint (point)));; return to where interactively started |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1996 (if (if (> arg 0) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1997 (re-search-forward dired-re-mark nil t arg) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1998 (beginning-of-line) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
1999 (re-search-backward dired-re-mark nil t (- arg))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2000 (dired-move-to-filename) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2001 (if (null wrap) |
661 | 2002 (progn |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2003 (goto-char opoint) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2004 (error "No next marked file")) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2005 (message "(Wraparound for next marked file)") |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2006 (goto-char (if (> arg 0) (point-min) (point-max))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2007 (dired-next-marked-file arg nil opoint)))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2008 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2009 (defun dired-prev-marked-file (arg &optional wrap) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2010 "Move to the previous marked file, wrapping around the end of the buffer." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2011 (interactive "p\np") |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2012 (dired-next-marked-file (- arg) wrap)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2013 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2014 (defun dired-file-marker (file) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2015 ;; Return FILE's marker, or nil if unmarked. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2016 (save-excursion |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2017 (and (dired-goto-file file) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2018 (progn |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2019 (beginning-of-line) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2020 (if (not (equal ?\040 (following-char))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2021 (following-char)))))) |
661 | 2022 |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2023 (defun dired-mark-files-in-region (start end) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2024 (let (buffer-read-only) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2025 (if (> start end) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2026 (error "start > end")) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2027 (goto-char start) ; assumed at beginning of line |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2028 (while (< (point) end) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2029 ;; Skip subdir line and following garbage like the `total' line: |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2030 (while (and (< (point) end) (dired-between-files)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2031 (forward-line 1)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2032 (if (and (not (looking-at dired-re-dot)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2033 (dired-get-filename nil t)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2034 (progn |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2035 (delete-char 1) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2036 (insert dired-marker-char))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2037 (forward-line 1)))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2038 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2039 (defun dired-mark (arg) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2040 "Mark the current (or next ARG) files. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2041 If on a subdir headerline, mark all its files except `.' and `..'. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2042 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2043 Use \\[dired-unmark-all-files] to remove all marks |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2044 and \\[dired-unmark] on a subdir to remove the marks in |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2045 this subdir." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2046 (interactive "P") |
10710
d5d1393a26af
(dired-mark): If on dir header line, always mark
Richard M. Stallman <rms@gnu.org>
parents:
10658
diff
changeset
|
2047 (if (dired-get-subdir) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2048 (save-excursion (dired-mark-subdir-files)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2049 (let (buffer-read-only) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2050 (dired-repeat-over-lines |
834
2e0cd4e83c2e
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
778
diff
changeset
|
2051 (prefix-numeric-value arg) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2052 (function (lambda () (delete-char 1) (insert dired-marker-char))))))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2053 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2054 (defun dired-unmark (arg) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2055 "Unmark the current (or next ARG) files. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2056 If looking at a subdir, unmark all its files except `.' and `..'." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2057 (interactive "P") |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2058 (let ((dired-marker-char ?\040)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2059 (dired-mark arg))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2060 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2061 (defun dired-flag-file-deletion (arg) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2062 "In dired, flag the current line's file for deletion. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2063 With prefix arg, repeat over several lines. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2064 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2065 If on a subdir headerline, mark all its files except `.' and `..'." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2066 (interactive "P") |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2067 (let ((dired-marker-char dired-del-marker)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2068 (dired-mark arg))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2069 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2070 (defun dired-unmark-backward (arg) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2071 "In dired, move up lines and remove deletion flag there. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2072 Optional prefix ARG says how many lines to unflag; default is one line." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2073 (interactive "p") |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2074 (dired-unmark (- arg))) |
661 | 2075 |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2076 ;;; Commands to mark or flag files based on their characteristics or names. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2077 |
1755
83734c185e01
(dired-regexp-history): New history list.
Richard M. Stallman <rms@gnu.org>
parents:
1672
diff
changeset
|
2078 (defvar dired-regexp-history nil |
83734c185e01
(dired-regexp-history): New history list.
Richard M. Stallman <rms@gnu.org>
parents:
1672
diff
changeset
|
2079 "History list of regular expressions used in Dired commands.") |
83734c185e01
(dired-regexp-history): New history list.
Richard M. Stallman <rms@gnu.org>
parents:
1672
diff
changeset
|
2080 |
83734c185e01
(dired-regexp-history): New history list.
Richard M. Stallman <rms@gnu.org>
parents:
1672
diff
changeset
|
2081 (defun dired-read-regexp (prompt) |
83734c185e01
(dired-regexp-history): New history list.
Richard M. Stallman <rms@gnu.org>
parents:
1672
diff
changeset
|
2082 (read-from-minibuffer prompt nil nil nil 'dired-regexp-history)) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2083 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2084 (defun dired-mark-files-regexp (regexp &optional marker-char) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2085 "Mark all files matching REGEXP for use in later commands. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2086 A prefix argument means to unmark them instead. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2087 `.' and `..' are never marked. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2088 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2089 REGEXP is an Emacs regexp, not a shell wildcard. Thus, use `\\.o$' for |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2090 object files--just `.o' will mark more than you might think." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2091 (interactive |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2092 (list (dired-read-regexp (concat (if current-prefix-arg "Unmark" "Mark") |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2093 " files (regexp): ")) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2094 (if current-prefix-arg ?\040))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2095 (let ((dired-marker-char (or marker-char dired-marker-char))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2096 (dired-mark-if |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2097 (and (not (looking-at dired-re-dot)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2098 (not (eolp)) ; empty line |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2099 (let ((fn (dired-get-filename nil t))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2100 (and fn (string-match regexp (file-name-nondirectory fn))))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2101 "matching file"))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2102 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2103 (defun dired-flag-files-regexp (regexp) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2104 "In dired, flag all files containing the specified REGEXP for deletion. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2105 The match is against the non-directory part of the filename. Use `^' |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2106 and `$' to anchor matches. Exclude subdirs by hiding them. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2107 `.' and `..' are never flagged." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2108 (interactive (list (dired-read-regexp "Flag for deletion (regexp): "))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2109 (dired-mark-files-regexp regexp dired-del-marker)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2110 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2111 (defun dired-mark-symlinks (unflag-p) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2112 "Mark all symbolic links. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2113 With prefix argument, unflag all those files." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2114 (interactive "P") |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2115 (let ((dired-marker-char (if unflag-p ?\040 dired-marker-char))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2116 (dired-mark-if (looking-at dired-re-sym) "symbolic link"))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2117 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2118 (defun dired-mark-directories (unflag-p) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2119 "Mark all directory file lines except `.' and `..'. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2120 With prefix argument, unflag all those files." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2121 (interactive "P") |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2122 (let ((dired-marker-char (if unflag-p ?\040 dired-marker-char))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2123 (dired-mark-if (and (looking-at dired-re-dir) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2124 (not (looking-at dired-re-dot))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2125 "directory file"))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2126 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2127 (defun dired-mark-executables (unflag-p) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2128 "Mark all executable files. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2129 With prefix argument, unflag all those files." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2130 (interactive "P") |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2131 (let ((dired-marker-char (if unflag-p ?\040 dired-marker-char))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2132 (dired-mark-if (looking-at dired-re-exe) "executable file"))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2133 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2134 ;; dired-x.el has a dired-mark-sexp interactive command: mark |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2135 ;; files for which PREDICATE returns non-nil. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2136 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2137 (defun dired-flag-auto-save-files (&optional unflag-p) |
661 | 2138 "Flag for deletion files whose names suggest they are auto save files. |
2139 A prefix argument says to unflag those files instead." | |
2140 (interactive "P") | |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2141 (let ((dired-marker-char (if unflag-p ?\040 dired-del-marker))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2142 (dired-mark-if |
3633 | 2143 ;; It is less than general to check for # here, |
3043
29fe3ea604a2
(dired-flag-backup-files): Speedup:
Richard M. Stallman <rms@gnu.org>
parents:
2584
diff
changeset
|
2144 ;; but it's the only way this runs fast enough. |
29fe3ea604a2
(dired-flag-backup-files): Speedup:
Richard M. Stallman <rms@gnu.org>
parents:
2584
diff
changeset
|
2145 (and (save-excursion (end-of-line) |
3580
8223f1bf078f
(dired-flag-auto-save-files): Ignore `*' added by ls -F.
Richard M. Stallman <rms@gnu.org>
parents:
3524
diff
changeset
|
2146 (or |
8223f1bf078f
(dired-flag-auto-save-files): Ignore `*' added by ls -F.
Richard M. Stallman <rms@gnu.org>
parents:
3524
diff
changeset
|
2147 (eq (preceding-char) ?#) |
8223f1bf078f
(dired-flag-auto-save-files): Ignore `*' added by ls -F.
Richard M. Stallman <rms@gnu.org>
parents:
3524
diff
changeset
|
2148 ;; Handle executables in case of -F option. |
8223f1bf078f
(dired-flag-auto-save-files): Ignore `*' added by ls -F.
Richard M. Stallman <rms@gnu.org>
parents:
3524
diff
changeset
|
2149 ;; We need not worry about the other kinds |
8223f1bf078f
(dired-flag-auto-save-files): Ignore `*' added by ls -F.
Richard M. Stallman <rms@gnu.org>
parents:
3524
diff
changeset
|
2150 ;; of markings that -F makes, since they won't |
8223f1bf078f
(dired-flag-auto-save-files): Ignore `*' added by ls -F.
Richard M. Stallman <rms@gnu.org>
parents:
3524
diff
changeset
|
2151 ;; appear on real auto-save files. |
8223f1bf078f
(dired-flag-auto-save-files): Ignore `*' added by ls -F.
Richard M. Stallman <rms@gnu.org>
parents:
3524
diff
changeset
|
2152 (if (eq (preceding-char) ?*) |
8223f1bf078f
(dired-flag-auto-save-files): Ignore `*' added by ls -F.
Richard M. Stallman <rms@gnu.org>
parents:
3524
diff
changeset
|
2153 (progn |
8223f1bf078f
(dired-flag-auto-save-files): Ignore `*' added by ls -F.
Richard M. Stallman <rms@gnu.org>
parents:
3524
diff
changeset
|
2154 (forward-char -1) |
8223f1bf078f
(dired-flag-auto-save-files): Ignore `*' added by ls -F.
Richard M. Stallman <rms@gnu.org>
parents:
3524
diff
changeset
|
2155 (eq (preceding-char) ?#))))) |
3043
29fe3ea604a2
(dired-flag-backup-files): Speedup:
Richard M. Stallman <rms@gnu.org>
parents:
2584
diff
changeset
|
2156 (not (looking-at dired-re-dir)) |
29fe3ea604a2
(dired-flag-backup-files): Speedup:
Richard M. Stallman <rms@gnu.org>
parents:
2584
diff
changeset
|
2157 (let ((fn (dired-get-filename t t))) |
29fe3ea604a2
(dired-flag-backup-files): Speedup:
Richard M. Stallman <rms@gnu.org>
parents:
2584
diff
changeset
|
2158 (if fn (auto-save-file-name-p |
29fe3ea604a2
(dired-flag-backup-files): Speedup:
Richard M. Stallman <rms@gnu.org>
parents:
2584
diff
changeset
|
2159 (file-name-nondirectory fn))))) |
29fe3ea604a2
(dired-flag-backup-files): Speedup:
Richard M. Stallman <rms@gnu.org>
parents:
2584
diff
changeset
|
2160 "auto save file"))) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2161 |
16825
9ec806f8bbb7
(dired-garbage-files-regexp): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16824
diff
changeset
|
2162 (defvar dired-garbage-files-regexp |
9ec806f8bbb7
(dired-garbage-files-regexp): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16824
diff
changeset
|
2163 "\\.log$\\|\\.toc$\\|.dvi$|\\.bak$\\|\\.orig$\\|\\.rej$" |
9ec806f8bbb7
(dired-garbage-files-regexp): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16824
diff
changeset
|
2164 "*Regular expression to match \"garbage\" files for `dired-flag-garbage-files'.") |
9ec806f8bbb7
(dired-garbage-files-regexp): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16824
diff
changeset
|
2165 |
9ec806f8bbb7
(dired-garbage-files-regexp): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16824
diff
changeset
|
2166 (defun dired-flag-garbage-files () |
9ec806f8bbb7
(dired-garbage-files-regexp): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16824
diff
changeset
|
2167 (interactive) |
9ec806f8bbb7
(dired-garbage-files-regexp): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16824
diff
changeset
|
2168 "Flag for deletion all files that match `dired-garbage-files-regexp'." |
9ec806f8bbb7
(dired-garbage-files-regexp): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16824
diff
changeset
|
2169 (dired-flag-files-regexp dired-garbage-files-regexp)) |
9ec806f8bbb7
(dired-garbage-files-regexp): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16824
diff
changeset
|
2170 |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2171 (defun dired-flag-backup-files (&optional unflag-p) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2172 "Flag all backup files (names ending with `~') for deletion. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2173 With prefix argument, unflag these files." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2174 (interactive "P") |
13750
6a9cecd5bcfb
(dired-flag-backup-files): Undo previous change.
Karl Heuer <kwzh@gnu.org>
parents:
13726
diff
changeset
|
2175 (let ((dired-marker-char (if unflag-p ?\ dired-del-marker))) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2176 (dired-mark-if |
13726
0611604f3cd3
(dired-flag-backup-files): Under MS-DOS, search for
Karl Heuer <kwzh@gnu.org>
parents:
13033
diff
changeset
|
2177 ;; Don't call backup-file-name-p unless the last character looks like |
0611604f3cd3
(dired-flag-backup-files): Under MS-DOS, search for
Karl Heuer <kwzh@gnu.org>
parents:
13033
diff
changeset
|
2178 ;; it might be the end of a backup file name. This isn't very general, |
3043
29fe3ea604a2
(dired-flag-backup-files): Speedup:
Richard M. Stallman <rms@gnu.org>
parents:
2584
diff
changeset
|
2179 ;; but it's the only way this runs fast enough. |
29fe3ea604a2
(dired-flag-backup-files): Speedup:
Richard M. Stallman <rms@gnu.org>
parents:
2584
diff
changeset
|
2180 (and (save-excursion (end-of-line) |
13726
0611604f3cd3
(dired-flag-backup-files): Under MS-DOS, search for
Karl Heuer <kwzh@gnu.org>
parents:
13033
diff
changeset
|
2181 ;; Handle executables in case of -F option. |
0611604f3cd3
(dired-flag-backup-files): Under MS-DOS, search for
Karl Heuer <kwzh@gnu.org>
parents:
13033
diff
changeset
|
2182 ;; We need not worry about the other kinds |
0611604f3cd3
(dired-flag-backup-files): Under MS-DOS, search for
Karl Heuer <kwzh@gnu.org>
parents:
13033
diff
changeset
|
2183 ;; of markings that -F makes, since they won't |
0611604f3cd3
(dired-flag-backup-files): Under MS-DOS, search for
Karl Heuer <kwzh@gnu.org>
parents:
13033
diff
changeset
|
2184 ;; appear on real backup files. |
0611604f3cd3
(dired-flag-backup-files): Under MS-DOS, search for
Karl Heuer <kwzh@gnu.org>
parents:
13033
diff
changeset
|
2185 (if (eq (preceding-char) ?*) |
0611604f3cd3
(dired-flag-backup-files): Under MS-DOS, search for
Karl Heuer <kwzh@gnu.org>
parents:
13033
diff
changeset
|
2186 (forward-char -1)) |
13750
6a9cecd5bcfb
(dired-flag-backup-files): Undo previous change.
Karl Heuer <kwzh@gnu.org>
parents:
13726
diff
changeset
|
2187 (eq (preceding-char) ?~)) |
3043
29fe3ea604a2
(dired-flag-backup-files): Speedup:
Richard M. Stallman <rms@gnu.org>
parents:
2584
diff
changeset
|
2188 (not (looking-at dired-re-dir)) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2189 (let ((fn (dired-get-filename t t))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2190 (if fn (backup-file-name-p fn)))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2191 "backup file"))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2192 |
910
4fba6d4b6a28
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
890
diff
changeset
|
2193 (defun dired-change-marks (&optional old new) |
4fba6d4b6a28
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
890
diff
changeset
|
2194 "Change all OLD marks to NEW marks. |
4fba6d4b6a28
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
890
diff
changeset
|
2195 OLD and NEW are both characters used to mark files." |
4fba6d4b6a28
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
890
diff
changeset
|
2196 (interactive |
4fba6d4b6a28
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
890
diff
changeset
|
2197 (let* ((cursor-in-echo-area t) |
4fba6d4b6a28
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
890
diff
changeset
|
2198 (old (progn (message "Change (old mark): ") (read-char))) |
4fba6d4b6a28
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
890
diff
changeset
|
2199 (new (progn (message "Change %c marks to (new mark): " old) |
4fba6d4b6a28
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
890
diff
changeset
|
2200 (read-char)))) |
4fba6d4b6a28
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
890
diff
changeset
|
2201 (list old new))) |
3478
a917a964bef8
(dired-change-marks): Just ding if one arg is RET.
Richard M. Stallman <rms@gnu.org>
parents:
3148
diff
changeset
|
2202 (if (or (eq old ?\r) (eq new ?\r)) |
a917a964bef8
(dired-change-marks): Just ding if one arg is RET.
Richard M. Stallman <rms@gnu.org>
parents:
3148
diff
changeset
|
2203 (ding) |
a917a964bef8
(dired-change-marks): Just ding if one arg is RET.
Richard M. Stallman <rms@gnu.org>
parents:
3148
diff
changeset
|
2204 (let ((string (format "\n%c" old)) |
a917a964bef8
(dired-change-marks): Just ding if one arg is RET.
Richard M. Stallman <rms@gnu.org>
parents:
3148
diff
changeset
|
2205 (buffer-read-only)) |
a917a964bef8
(dired-change-marks): Just ding if one arg is RET.
Richard M. Stallman <rms@gnu.org>
parents:
3148
diff
changeset
|
2206 (save-excursion |
a917a964bef8
(dired-change-marks): Just ding if one arg is RET.
Richard M. Stallman <rms@gnu.org>
parents:
3148
diff
changeset
|
2207 (goto-char (point-min)) |
a917a964bef8
(dired-change-marks): Just ding if one arg is RET.
Richard M. Stallman <rms@gnu.org>
parents:
3148
diff
changeset
|
2208 (while (search-forward string nil t) |
12211
472729271c30
(dired-change-marks): If OLD is a space, don't act on non-file lines.
Richard M. Stallman <rms@gnu.org>
parents:
12045
diff
changeset
|
2209 (if (if (= old ?\ ) |
472729271c30
(dired-change-marks): If OLD is a space, don't act on non-file lines.
Richard M. Stallman <rms@gnu.org>
parents:
12045
diff
changeset
|
2210 (save-match-data |
472729271c30
(dired-change-marks): If OLD is a space, don't act on non-file lines.
Richard M. Stallman <rms@gnu.org>
parents:
12045
diff
changeset
|
2211 (dired-get-filename 'no-dir t)) |
472729271c30
(dired-change-marks): If OLD is a space, don't act on non-file lines.
Richard M. Stallman <rms@gnu.org>
parents:
12045
diff
changeset
|
2212 t) |
472729271c30
(dired-change-marks): If OLD is a space, don't act on non-file lines.
Richard M. Stallman <rms@gnu.org>
parents:
12045
diff
changeset
|
2213 (subst-char-in-region (match-beginning 0) |
472729271c30
(dired-change-marks): If OLD is a space, don't act on non-file lines.
Richard M. Stallman <rms@gnu.org>
parents:
12045
diff
changeset
|
2214 (match-end 0) old new))))))) |
910
4fba6d4b6a28
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
890
diff
changeset
|
2215 |
18160
c64b7a17eea9
(dired-unmark-all-marks):
Richard M. Stallman <rms@gnu.org>
parents:
17988
diff
changeset
|
2216 (defun dired-unmark-all-marks () |
4169
45b07ea88511
(dired-unmark-all-files-no-query): New command.
Richard M. Stallman <rms@gnu.org>
parents:
4099
diff
changeset
|
2217 "Remove all marks from all files in the Dired buffer." |
45b07ea88511
(dired-unmark-all-files-no-query): New command.
Richard M. Stallman <rms@gnu.org>
parents:
4099
diff
changeset
|
2218 (interactive) |
45b07ea88511
(dired-unmark-all-files-no-query): New command.
Richard M. Stallman <rms@gnu.org>
parents:
4099
diff
changeset
|
2219 (dired-unmark-all-files ?\r)) |
45b07ea88511
(dired-unmark-all-files-no-query): New command.
Richard M. Stallman <rms@gnu.org>
parents:
4099
diff
changeset
|
2220 |
3102
603e39319c86
(dired-unmark-all-files): Read arg as a string.
Richard M. Stallman <rms@gnu.org>
parents:
3043
diff
changeset
|
2221 (defun dired-unmark-all-files (mark &optional arg) |
3524
bedf7049667a
(dired-unmark-all-files): Read arg as just a character.
Richard M. Stallman <rms@gnu.org>
parents:
3503
diff
changeset
|
2222 "Remove a specific mark (or any mark) from every file. |
bedf7049667a
(dired-unmark-all-files): Read arg as just a character.
Richard M. Stallman <rms@gnu.org>
parents:
3503
diff
changeset
|
2223 After this command, type the mark character to remove, |
bedf7049667a
(dired-unmark-all-files): Read arg as just a character.
Richard M. Stallman <rms@gnu.org>
parents:
3503
diff
changeset
|
2224 or type RET to remove all marks. |
2458
b1834ed2c366
(dired-unmark-all-files): Read the arg as just a char.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
2225 With prefix arg, query for each marked file. |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2226 Type \\[help-command] at that time for help." |
3524
bedf7049667a
(dired-unmark-all-files): Read arg as just a character.
Richard M. Stallman <rms@gnu.org>
parents:
3503
diff
changeset
|
2227 (interactive "cRemove marks (RET means all): \nP") |
bedf7049667a
(dired-unmark-all-files): Read arg as just a character.
Richard M. Stallman <rms@gnu.org>
parents:
3503
diff
changeset
|
2228 (save-excursion |
bedf7049667a
(dired-unmark-all-files): Read arg as just a character.
Richard M. Stallman <rms@gnu.org>
parents:
3503
diff
changeset
|
2229 (let* ((count 0) |
bedf7049667a
(dired-unmark-all-files): Read arg as just a character.
Richard M. Stallman <rms@gnu.org>
parents:
3503
diff
changeset
|
2230 buffer-read-only case-fold-search query |
bedf7049667a
(dired-unmark-all-files): Read arg as just a character.
Richard M. Stallman <rms@gnu.org>
parents:
3503
diff
changeset
|
2231 (string (format "\n%c" mark)) |
bedf7049667a
(dired-unmark-all-files): Read arg as just a character.
Richard M. Stallman <rms@gnu.org>
parents:
3503
diff
changeset
|
2232 (help-form "\ |
3102
603e39319c86
(dired-unmark-all-files): Read arg as a string.
Richard M. Stallman <rms@gnu.org>
parents:
3043
diff
changeset
|
2233 Type SPC or `y' to unmark one file, DEL or `n' to skip to next, |
603e39319c86
(dired-unmark-all-files): Read arg as a string.
Richard M. Stallman <rms@gnu.org>
parents:
3043
diff
changeset
|
2234 `!' to unmark all remaining files with no more questions.")) |
3524
bedf7049667a
(dired-unmark-all-files): Read arg as just a character.
Richard M. Stallman <rms@gnu.org>
parents:
3503
diff
changeset
|
2235 (goto-char (point-min)) |
bedf7049667a
(dired-unmark-all-files): Read arg as just a character.
Richard M. Stallman <rms@gnu.org>
parents:
3503
diff
changeset
|
2236 (while (if (eq mark ?\r) |
bedf7049667a
(dired-unmark-all-files): Read arg as just a character.
Richard M. Stallman <rms@gnu.org>
parents:
3503
diff
changeset
|
2237 (re-search-forward dired-re-mark nil t) |
bedf7049667a
(dired-unmark-all-files): Read arg as just a character.
Richard M. Stallman <rms@gnu.org>
parents:
3503
diff
changeset
|
2238 (search-forward string nil t)) |
bedf7049667a
(dired-unmark-all-files): Read arg as just a character.
Richard M. Stallman <rms@gnu.org>
parents:
3503
diff
changeset
|
2239 (if (or (not arg) |
bedf7049667a
(dired-unmark-all-files): Read arg as just a character.
Richard M. Stallman <rms@gnu.org>
parents:
3503
diff
changeset
|
2240 (dired-query 'query "Unmark file `%s'? " |
bedf7049667a
(dired-unmark-all-files): Read arg as just a character.
Richard M. Stallman <rms@gnu.org>
parents:
3503
diff
changeset
|
2241 (dired-get-filename t))) |
bedf7049667a
(dired-unmark-all-files): Read arg as just a character.
Richard M. Stallman <rms@gnu.org>
parents:
3503
diff
changeset
|
2242 (progn (subst-char-in-region (1- (point)) (point) |
bedf7049667a
(dired-unmark-all-files): Read arg as just a character.
Richard M. Stallman <rms@gnu.org>
parents:
3503
diff
changeset
|
2243 (preceding-char) ?\ ) |
bedf7049667a
(dired-unmark-all-files): Read arg as just a character.
Richard M. Stallman <rms@gnu.org>
parents:
3503
diff
changeset
|
2244 (setq count (1+ count))))) |
bedf7049667a
(dired-unmark-all-files): Read arg as just a character.
Richard M. Stallman <rms@gnu.org>
parents:
3503
diff
changeset
|
2245 (message (if (= count 1) "1 mark removed" |
bedf7049667a
(dired-unmark-all-files): Read arg as just a character.
Richard M. Stallman <rms@gnu.org>
parents:
3503
diff
changeset
|
2246 "%d marks removed") |
bedf7049667a
(dired-unmark-all-files): Read arg as just a character.
Richard M. Stallman <rms@gnu.org>
parents:
3503
diff
changeset
|
2247 count)))) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2248 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2249 ;; Logging failures operating on files, and showing the results. |
661 | 2250 |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2251 (defvar dired-log-buffer "*Dired log*") |
661 | 2252 |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2253 (defun dired-why () |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2254 "Pop up a buffer with error log output from Dired. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2255 A group of errors from a single command ends with a formfeed. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2256 Thus, use \\[backward-page] to find the beginning of a group of errors." |
661 | 2257 (interactive) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2258 (if (get-buffer dired-log-buffer) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2259 (let ((owindow (selected-window)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2260 (window (display-buffer (get-buffer dired-log-buffer)))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2261 (unwind-protect |
910
4fba6d4b6a28
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
890
diff
changeset
|
2262 (progn |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2263 (select-window window) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2264 (goto-char (point-max)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2265 (recenter -1)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2266 (select-window owindow))))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2267 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2268 (defun dired-log (log &rest args) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2269 ;; Log a message or the contents of a buffer. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2270 ;; If LOG is a string and there are more args, it is formatted with |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2271 ;; those ARGS. Usually the LOG string ends with a \n. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2272 ;; End each bunch of errors with (dired-log t): this inserts |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2273 ;; current time and buffer, and a \f (formfeed). |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2274 (let ((obuf (current-buffer))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2275 (unwind-protect ; want to move point |
661 | 2276 (progn |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2277 (set-buffer (get-buffer-create dired-log-buffer)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2278 (goto-char (point-max)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2279 (let (buffer-read-only) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2280 (cond ((stringp log) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2281 (insert (if args |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2282 (apply (function format) log args) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2283 log))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2284 ((bufferp log) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2285 (insert-buffer log)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2286 ((eq t log) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2287 (insert "\n\t" (current-time-string) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2288 "\tBuffer `" (buffer-name obuf) "'\n\f\n"))))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2289 (set-buffer obuf)))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2290 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2291 (defun dired-log-summary (string failures) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2292 (message (if failures "%s--type ? for details (%s)" |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2293 "%s--type ? for details") |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2294 string failures) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2295 ;; Log a summary describing a bunch of errors. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2296 (dired-log (concat "\n" string)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2297 (dired-log t)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2298 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2299 ;;; Sorting |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2300 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2301 ;; Most ls can only sort by name or by date (with -t), nothing else. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2302 ;; GNU ls sorts on size with -S, on extension with -X, and unsorted with -U. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2303 ;; So anything that does not contain these is sort "by name". |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2304 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2305 (defvar dired-ls-sorting-switches "SXU" |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2306 "String of `ls' switches (single letters) except `t' that influence sorting.") |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2307 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2308 (defvar dired-sort-by-date-regexp |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2309 (concat "^-[^" dired-ls-sorting-switches |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2310 "]*t[^" dired-ls-sorting-switches "]*$") |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2311 "Regexp recognized by dired to set `by date' mode.") |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2312 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2313 (defvar dired-sort-by-name-regexp |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2314 (concat "^-[^t" dired-ls-sorting-switches "]+$") |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2315 "Regexp recognized by dired to set `by name' mode.") |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2316 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2317 (defun dired-sort-set-modeline () |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2318 ;; Set modeline display according to dired-actual-switches. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2319 ;; Modeline display of "by name" or "by date" guarantees the user a |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2320 ;; match with the corresponding regexps. Non-matching switches are |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2321 ;; shown literally. |
4394
06a92db6c73b
(dired-sort-mode): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
4284
diff
changeset
|
2322 (setq mode-name |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2323 (let (case-fold-search) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2324 (cond ((string-match dired-sort-by-name-regexp dired-actual-switches) |
4394
06a92db6c73b
(dired-sort-mode): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
4284
diff
changeset
|
2325 "Dired by name") |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2326 ((string-match dired-sort-by-date-regexp dired-actual-switches) |
4394
06a92db6c73b
(dired-sort-mode): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
4284
diff
changeset
|
2327 "Dired by date") |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2328 (t |
4394
06a92db6c73b
(dired-sort-mode): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
4284
diff
changeset
|
2329 (concat "Dired " dired-actual-switches))))) |
11587
cf1d828dbb57
(dired-sort-set-modeline): Use force-mode-line-update.
Karl Heuer <kwzh@gnu.org>
parents:
11518
diff
changeset
|
2330 (force-mode-line-update)) |
661 | 2331 |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2332 (defun dired-sort-toggle-or-edit (&optional arg) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2333 "Toggle between sort by date/name and refresh the dired buffer. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2334 With a prefix argument you can edit the current listing switches instead." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2335 (interactive "P") |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2336 (if arg |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2337 (dired-sort-other |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2338 (read-string "ls switches (must contain -l): " dired-actual-switches)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2339 (dired-sort-toggle))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2340 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2341 (defun dired-sort-toggle () |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2342 ;; Toggle between sort by date/name. Reverts the buffer. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2343 (setq dired-actual-switches |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2344 (let (case-fold-search) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2345 (concat |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2346 "-l" |
6309
9217f29851c2
Don't use triple-hyphen in a character class.
Karl Heuer <kwzh@gnu.org>
parents:
5803
diff
changeset
|
2347 (dired-replace-in-string (concat "[-lt" |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2348 dired-ls-sorting-switches "]") |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2349 "" |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2350 dired-actual-switches) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2351 (if (string-match (concat "[t" dired-ls-sorting-switches "]") |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2352 dired-actual-switches) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2353 "" |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2354 "t")))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2355 (dired-sort-set-modeline) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2356 (revert-buffer)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2357 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2358 (defun dired-replace-in-string (regexp newtext string) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2359 ;; Replace REGEXP with NEWTEXT everywhere in STRING and return result. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2360 ;; NEWTEXT is taken literally---no \\DIGIT escapes will be recognized. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2361 (let ((result "") (start 0) mb me) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2362 (while (string-match regexp string start) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2363 (setq mb (match-beginning 0) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2364 me (match-end 0) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2365 result (concat result (substring string start mb) newtext) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2366 start me)) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2367 (concat result (substring string start)))) |
661 | 2368 |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2369 (defun dired-sort-other (switches &optional no-revert) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2370 ;; Specify new ls SWITCHES for current dired buffer. Values matching |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2371 ;; `dired-sort-by-date-regexp' or `dired-sort-by-name-regexp' set the |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2372 ;; minor mode accordingly, others appear literally in the mode line. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2373 ;; With optional second arg NO-REVERT, don't refresh the listing afterwards. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2374 (setq dired-actual-switches switches) |
13010
06f8e805121d
(dired-internal-noselect): Set dired-directory when refreshing a buffer
André Spiegel <spiegel@gnu.org>
parents:
12996
diff
changeset
|
2375 (if (eq major-mode 'dired-mode) (dired-sort-set-modeline)) |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2376 (or no-revert (revert-buffer))) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2377 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2378 ;; To make this file smaller, the less common commands |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2379 ;; go in a separate file. But autoload them here |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2380 ;; to make the separation invisible. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2381 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2382 (autoload 'dired-diff "dired-aux" |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2383 "Compare file at point with file FILE using `diff'. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2384 FILE defaults to the file at the mark. |
878
5b1c5b4286e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
834
diff
changeset
|
2385 The prompted-for file is the first file given to `diff'." |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2386 t) |
661 | 2387 |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2388 (autoload 'dired-backup-diff "dired-aux" |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2389 "Diff this file with its backup file or vice versa. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2390 Uses the latest backup, if there are several numerical backups. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2391 If this file is a backup, diff it with its original. |
878
5b1c5b4286e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
834
diff
changeset
|
2392 The backup file is the first file given to `diff'." |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2393 t) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2394 |
890
bad1b9af86a1
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
878
diff
changeset
|
2395 (autoload 'dired-clean-directory "dired-aux" |
bad1b9af86a1
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
878
diff
changeset
|
2396 "Flag numerical backups for deletion. |
bad1b9af86a1
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
878
diff
changeset
|
2397 Spares `dired-kept-versions' latest versions, and `kept-old-versions' oldest. |
bad1b9af86a1
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
878
diff
changeset
|
2398 Positive prefix arg KEEP overrides `dired-kept-versions'; |
bad1b9af86a1
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
878
diff
changeset
|
2399 Negative prefix arg KEEP overrides `kept-old-versions' with KEEP made positive. |
bad1b9af86a1
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
878
diff
changeset
|
2400 |
bad1b9af86a1
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
878
diff
changeset
|
2401 To clear the flags on these files, you can use \\[dired-flag-backup-files] |
bad1b9af86a1
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
878
diff
changeset
|
2402 with a prefix argument." |
bad1b9af86a1
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
878
diff
changeset
|
2403 t) |
bad1b9af86a1
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
878
diff
changeset
|
2404 |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2405 (autoload 'dired-do-chmod "dired-aux" |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2406 "Change the mode of the marked (or next ARG) files. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2407 This calls chmod, thus symbolic modes like `g+w' are allowed." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2408 t) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2409 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2410 (autoload 'dired-do-chgrp "dired-aux" |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2411 "Change the group of the marked (or next ARG) files." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2412 t) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2413 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2414 (autoload 'dired-do-chown "dired-aux" |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2415 "Change the owner of the marked (or next ARG) files." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2416 t) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2417 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2418 (autoload 'dired-do-print "dired-aux" |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2419 "Print the marked (or next ARG) files. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2420 Uses the shell command coming from variables `lpr-command' and |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2421 `lpr-switches' as default." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2422 t) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2423 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2424 (autoload 'dired-do-shell-command "dired-aux" |
910
4fba6d4b6a28
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
890
diff
changeset
|
2425 "Run a shell command COMMAND on the marked files. |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2426 If no files are marked or a specific numeric prefix arg is given, |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2427 the next ARG files are used. Just \\[universal-argument] means the current file. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2428 The prompt mentions the file(s) or the marker, as appropriate. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2429 |
910
4fba6d4b6a28
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
890
diff
changeset
|
2430 If there is output, it goes to a separate buffer. |
4fba6d4b6a28
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
890
diff
changeset
|
2431 |
4fba6d4b6a28
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
890
diff
changeset
|
2432 Normally the command is run on each file individually. |
4fba6d4b6a28
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
890
diff
changeset
|
2433 However, if there is a `*' in the command then it is run |
4fba6d4b6a28
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
890
diff
changeset
|
2434 just once with the entire file list substituted there. |
4fba6d4b6a28
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
890
diff
changeset
|
2435 |
4fba6d4b6a28
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
890
diff
changeset
|
2436 No automatic redisplay of dired buffers is attempted, as there's no |
4fba6d4b6a28
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
890
diff
changeset
|
2437 telling what files the command may have changed. Type |
4fba6d4b6a28
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
890
diff
changeset
|
2438 \\[dired-do-redisplay] to redisplay the marked files. |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2439 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2440 The shell command has the top level directory as working directory, so |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2441 output files usually are created there instead of in a subdir." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2442 t) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2443 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2444 (autoload 'dired-do-kill-lines "dired-aux" |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2445 "Kill all marked lines (not the files). |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2446 With a prefix arg, kill all lines not marked or flagged." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2447 t) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2448 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2449 (autoload 'dired-do-compress "dired-aux" |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2450 "Compress or uncompress marked (or next ARG) files." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2451 t) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2452 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2453 (autoload 'dired-do-byte-compile "dired-aux" |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2454 "Byte compile marked (or next ARG) Emacs Lisp files." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2455 t) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2456 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2457 (autoload 'dired-do-load "dired-aux" |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2458 "Load the marked (or next ARG) Emacs Lisp files." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2459 t) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2460 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2461 (autoload 'dired-do-redisplay "dired-aux" |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2462 "Redisplay all marked (or next ARG) files. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2463 If on a subdir line, redisplay that subdirectory. In that case, |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2464 a prefix arg lets you edit the `ls' switches used for the new listing." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2465 t) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2466 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2467 (autoload 'dired-create-directory "dired-aux" |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2468 "Create a directory called DIRECTORY." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2469 t) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2470 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2471 (autoload 'dired-do-copy "dired-aux" |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2472 "Copy all marked (or next ARG) files, or copy the current file. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2473 Thus, a zero prefix argument copies nothing. But it toggles the |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2474 variable `dired-copy-preserve-time' (which see)." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2475 t) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2476 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2477 (autoload 'dired-do-symlink "dired-aux" |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2478 "Make symbolic links to current file or all marked (or next ARG) files. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2479 When operating on just the current file, you specify the new name. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2480 When operating on multiple or marked files, you specify a directory |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2481 and new symbolic links are made in that directory |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2482 with the same names that the files currently have." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2483 t) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2484 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2485 (autoload 'dired-do-hardlink "dired-aux" |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2486 "Add names (hard links) current file or all marked (or next ARG) files. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2487 When operating on just the current file, you specify the new name. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2488 When operating on multiple or marked files, you specify a directory |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2489 and new hard links are made in that directory |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2490 with the same names that the files currently have." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2491 t) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2492 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2493 (autoload 'dired-do-rename "dired-aux" |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2494 "Rename current file or all marked (or next ARG) files. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2495 When renaming just the current file, you specify the new name. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2496 When renaming multiple or marked files, you specify a directory." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2497 t) |
661 | 2498 |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2499 (autoload 'dired-do-rename-regexp "dired-aux" |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2500 "Rename marked files containing REGEXP to NEWNAME. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2501 As each match is found, the user must type a character saying |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2502 what to do with it. For directions, type \\[help-command] at that time. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2503 NEWNAME may contain \\=\\<n> or \\& as in `query-replace-regexp'. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2504 REGEXP defaults to the last regexp used. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2505 With a zero prefix arg, renaming by regexp affects the complete |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2506 pathname - usually only the non-directory part of file names is used |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2507 and changed." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2508 t) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2509 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2510 (autoload 'dired-do-copy-regexp "dired-aux" |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2511 "Copy all marked files containing REGEXP to NEWNAME. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2512 See function `dired-rename-regexp' for more info." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2513 t) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2514 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2515 (autoload 'dired-do-hardlink-regexp "dired-aux" |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2516 "Hardlink all marked files containing REGEXP to NEWNAME. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2517 See function `dired-rename-regexp' for more info." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2518 t) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2519 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2520 (autoload 'dired-do-symlink-regexp "dired-aux" |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2521 "Symlink all marked files containing REGEXP to NEWNAME. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2522 See function `dired-rename-regexp' for more info." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2523 t) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2524 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2525 (autoload 'dired-upcase "dired-aux" |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2526 "Rename all marked (or next ARG) files to upper case." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2527 t) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2528 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2529 (autoload 'dired-downcase "dired-aux" |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2530 "Rename all marked (or next ARG) files to lower case." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2531 t) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2532 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2533 (autoload 'dired-maybe-insert-subdir "dired-aux" |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2534 "Insert this subdirectory into the same dired buffer. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2535 If it is already present, just move to it (type \\[dired-do-redisplay] to refresh), |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2536 else inserts it at its natural place (as `ls -lR' would have done). |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2537 With a prefix arg, you may edit the ls switches used for this listing. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2538 You can add `R' to the switches to expand the whole tree starting at |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2539 this subdirectory. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2540 This function takes some pains to conform to `ls -lR' output." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2541 t) |
661 | 2542 |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2543 (autoload 'dired-next-subdir "dired-aux" |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2544 "Go to next subdirectory, regardless of level." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2545 t) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2546 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2547 (autoload 'dired-prev-subdir "dired-aux" |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2548 "Go to previous subdirectory, regardless of level. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2549 When called interactively and not on a subdir line, go to this subdir's line." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2550 t) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2551 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2552 (autoload 'dired-goto-subdir "dired-aux" |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2553 "Go to end of header line of DIR in this dired buffer. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2554 Return value of point on success, otherwise return nil. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2555 The next char is either \\n, or \\r if DIR is hidden." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2556 t) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2557 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2558 (autoload 'dired-mark-subdir-files "dired-aux" |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2559 "Mark all files except `.' and `..'." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2560 t) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2561 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2562 (autoload 'dired-kill-subdir "dired-aux" |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2563 "Remove all lines of current subdirectory. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2564 Lower levels are unaffected." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2565 t) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2566 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2567 (autoload 'dired-tree-up "dired-aux" |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2568 "Go up ARG levels in the dired tree." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2569 t) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2570 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2571 (autoload 'dired-tree-down "dired-aux" |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2572 "Go down in the dired tree." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2573 t) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2574 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2575 (autoload 'dired-hide-subdir "dired-aux" |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2576 "Hide or unhide the current subdirectory and move to next directory. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2577 Optional prefix arg is a repeat factor. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2578 Use \\[dired-hide-all] to (un)hide all directories." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2579 t) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2580 |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2581 (autoload 'dired-hide-all "dired-aux" |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2582 "Hide all subdirectories, leaving only their header lines. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2583 If there is already something hidden, make everything visible again. |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2584 Use \\[dired-hide-subdir] to (un)hide a particular subdirectory." |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2585 t) |
661 | 2586 |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2587 (if (eq system-type 'vax-vms) |
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2588 (load "dired-vms")) |
661 | 2589 |
4888
a58a505c42d9
`provide' "dired" before running user hooks.
Brian Fox <bfox@gnu.org>
parents:
4760
diff
changeset
|
2590 (provide 'dired) |
a58a505c42d9
`provide' "dired" before running user hooks.
Brian Fox <bfox@gnu.org>
parents:
4760
diff
changeset
|
2591 |
723
a898ba10b49c
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
661
diff
changeset
|
2592 (run-hooks 'dired-load-hook) ; for your customizations |
661 | 2593 |
834
2e0cd4e83c2e
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
778
diff
changeset
|
2594 ;;; dired.el ends here |