annotate lisp/wdired.el @ 84339:2397532a703a

*** empty log message ***
author Glenn Morris <rgm@gnu.org>
date Thu, 06 Sep 2007 06:53:59 +0000
parents 06241457c4f0
children 786d3a985758
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
1 ;;; wdired.el --- Rename files editing their names in dired buffers
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
2
75347
e3694f1cb928 Add 2007 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 75159
diff changeset
3 ;; Copyright (C) 2004, 2005, 2006, 2007 Free Software Foundation, Inc.
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
4
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
5 ;; Filename: wdired.el
61350
796b7fe4bfd8 (wdired-advise-functions, wdired-add-skip-in-replace)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61030
diff changeset
6 ;; Author: Juan León Lahoz García <juanleon1@gmail.com>
796b7fe4bfd8 (wdired-advise-functions, wdired-add-skip-in-replace)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61030
diff changeset
7 ;; Version: 2.0
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
8 ;; Keywords: dired, environment, files, renaming
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
9
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
10 ;; This file is part of GNU Emacs.
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
11
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
12 ;; GNU Emacs is free software; you can redistribute it and/or
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
13 ;; modify it under the terms of the GNU General Public License as
78236
9355f9b7bbff Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents: 75347
diff changeset
14 ;; published by the Free Software Foundation; either version 3, or (at
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
15 ;; your option) any later version.
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
16
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
17 ;; This program is distributed in the hope that it will be useful, but
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
18 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
20 ;; General Public License for more details.
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
21
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
22 ;; You should have received a copy of the GNU General Public License
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
64091
6fb026ad601f Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 62746
diff changeset
24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
6fb026ad601f Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 62746
diff changeset
25 ;; Boston, MA 02110-1301, USA.
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
26
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
27 ;;; Commentary:
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
28
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
29 ;; wdired.el (the "w" is for writable) provides an alternative way of
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
30 ;; renaming files.
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
31 ;;
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
32 ;; Have you ever wished to use C-x r t (string-rectangle), M-%
68680
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
33 ;; (query-replace), M-c (capitalize-word), etc... to change the name of
61473
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
34 ;; the files in a "dired" buffer? Now you can do this. All the power
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
35 ;; of Emacs commands are available to renaming files!
68680
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
36 ;;
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
37 ;; This package provides a function that makes the filenames of a a
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
38 ;; dired buffer editable, by changing the buffer mode (which inhibits
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
39 ;; all of the commands of dired mode). Here you can edit the names of
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
40 ;; one or more files and directories, and when you press C-c C-c, the
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
41 ;; renaming takes effect and you are back to dired mode.
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
42 ;;
61473
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
43 ;; Another things you can do with WDired:
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
44 ;;
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
45 ;; - To move files to another directory (by typing their path,
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
46 ;; absolute or relative, as a part of the new filename).
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
47 ;;
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
48 ;; - To change the target of symbolic links.
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
49 ;;
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
50 ;; - To change the permission bits of the filenames (in systems with a
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
51 ;; working unix-alike `dired-chmod-program'). See and customize the
61473
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
52 ;; variable `wdired-allow-to-change-permissions'. To change a single
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
53 ;; char (toggling between its two more usual values) you can press
61473
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
54 ;; the space bar over it or left-click the mouse. To set any char to
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
55 ;; an specific value (this includes the SUID, SGID and STI bits) you
61473
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
56 ;; can use the key labeled as the letter you want. Please note that
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
57 ;; permissions of the links cannot be changed in that way, because
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
58 ;; the change would affect to their targets, and this would not be
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
59 ;; WYSIWYG :-).
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
60 ;;
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
61 ;; - To mark files for deletion, by deleting their whole filename.
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
62
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
63 ;;; Installation:
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
64
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
65 ;; Add this file (byte-compiling it is recommended) to your load-path.
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
66 ;; Then add one of these set of lines (or similar ones) to your config:
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
67 ;;
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
68 ;; This is the easy way:
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
69 ;;
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
70 ;; (require 'wdired)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
71 ;; (define-key dired-mode-map "r" 'wdired-change-to-wdired-mode)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
72 ;;
61473
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
73 ;; This is the recommended way for faster Emacs startup time and lower
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
74 ;; memory consumption:
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
75 ;;
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
76 ;; (autoload 'wdired-change-to-wdired-mode "wdired")
61473
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
77 ;; (eval-after-load "dired"
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
78 ;; '(lambda ()
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
79 ;; (define-key dired-mode-map "r" 'wdired-change-to-wdired-mode)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
80 ;; (define-key dired-mode-map
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
81 ;; [menu-bar immediate wdired-change-to-wdired-mode]
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
82 ;; '("Edit File Names" . wdired-change-to-wdired-mode))))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
83 ;;
61473
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
84 ;; Type "M-x customize-group RET wdired" if you want to make changes
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
85 ;; to the default behavior.
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
86
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
87 ;;; Usage:
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
88
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
89 ;; Then, you can start editing the names of the files by typing "r"
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
90 ;; (or whatever key you choose, or M-x wdired-change-to-wdired-mode).
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
91 ;; Use C-c C-c when finished or C-c C-k to abort. You can use also the
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
92 ;; menu options: in dired mode, "Edit File Names" under "Immediate".
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
93 ;; While editing the names, a new submenu "WDired" is available at top
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
94 ;; level. You can customize the behavior of this package from this
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
95 ;; menu.
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
96
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
97 ;;; Change Log:
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
98
61473
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
99 ;; Google is your friend (previous versions with complete changelogs
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
100 ;; were posted to gnu.emacs.sources)
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
101
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
102 ;;; Code:
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
103
61473
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
104 (defvar dired-backup-overwrite) ; Only in Emacs 20.x this is a custom var
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
105
69279
45a2e01db282 (toplevel): Require `cl' at compile-time.
John Paul Wallington <jpw@pobox.com>
parents: 68680
diff changeset
106 (eval-when-compile (require 'cl))
68680
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
107 (require 'dired)
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
108 (autoload 'dired-do-create-files-regexp "dired-aux")
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
109
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
110 (defgroup wdired nil
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
111 "Mode to rename files by editing their names in dired buffers."
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
112 :group 'dired)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
113
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
114 (defcustom wdired-use-interactive-rename nil
68680
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
115 "If non-nil, WDired requires confirmation before actually renaming files.
61473
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
116 If nil, WDired doesn't require confirmation to change the file names,
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
117 and the variable `wdired-confirm-overwrite' controls whether it is ok
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
118 to overwrite files without asking."
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
119 :type 'boolean
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
120 :group 'wdired)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
121
61473
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
122 (defcustom wdired-confirm-overwrite t
68680
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
123 "If nil the renames can overwrite files without asking.
61473
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
124 This variable has no effect at all if `wdired-use-interactive-rename'
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
125 is not nil."
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
126 :type 'boolean
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
127 :group 'wdired)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
128
61473
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
129 (defcustom wdired-use-dired-vertical-movement nil
68680
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
130 "If t, the \"up\" and \"down\" movement works as in Dired mode.
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
131 That is, always move the point to the beginning of the filename at line.
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
132
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
133 If `sometimes, only move to the beginning of filename if the point is
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
134 before it, and `track-eol' is honored. This behavior is very handy
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
135 when editing several filenames.
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
136
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
137 If nil, \"up\" and \"down\" movement is done as in any other buffer."
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
138 :type '(choice (const :tag "As in any other mode" nil)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
139 (const :tag "Smart cursor placement" sometimes)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
140 (other :tag "As in dired mode" t))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
141 :group 'wdired)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
142
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
143 (defcustom wdired-allow-to-redirect-links t
68680
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
144 "If non-nil, the target of the symbolic links are editable.
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
145 In systems without symbolic links support, this variable has no effect
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
146 at all."
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
147 :type 'boolean
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
148 :group 'wdired)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
149
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
150 (defcustom wdired-allow-to-change-permissions nil
68680
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
151 "If non-nil, the permissions bits of the files are editable.
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
152
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
153 If t, to change a single bit, put the cursor over it and press the
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
154 space bar, or left click over it. You can also hit the letter you want
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
155 to set: if this value is allowed, the character in the buffer will be
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
156 changed. Anyway, the point is advanced one position, so, for example,
61473
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
157 you can keep the <x> key pressed to give execution permissions to
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
158 everybody to that file.
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
159
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
160 If `advanced, the bits are freely editable. You can use
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
161 `string-rectangle', `query-replace', etc. You can put any value (even
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
162 newlines), but if you want your changes to be useful, you better put a
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
163 intelligible value.
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
164
61473
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
165 Anyway, the real change of the permissions is done by the external
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
166 program `dired-chmod-program', which must exist."
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
167 :type '(choice (const :tag "Not allowed" nil)
55109
043dd9a4d1b4 (wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 55107
diff changeset
168 (const :tag "Toggle/set bits" t)
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
169 (other :tag "Bits freely editable" advanced))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
170 :group 'wdired)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
171
55109
043dd9a4d1b4 (wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 55107
diff changeset
172 (defvar wdired-mode-map
043dd9a4d1b4 (wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 55107
diff changeset
173 (let ((map (make-sparse-keymap)))
043dd9a4d1b4 (wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 55107
diff changeset
174 (define-key map "\C-x\C-s" 'wdired-finish-edit)
043dd9a4d1b4 (wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 55107
diff changeset
175 (define-key map "\C-c\C-c" 'wdired-finish-edit)
043dd9a4d1b4 (wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 55107
diff changeset
176 (define-key map "\C-c\C-k" 'wdired-abort-changes)
043dd9a4d1b4 (wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 55107
diff changeset
177 (define-key map "\C-c\C-[" 'wdired-abort-changes)
82194
06241457c4f0 (wdired-exit): New function.
Juri Linkov <juri@jurta.org>
parents: 82140
diff changeset
178 (define-key map "\C-x\C-q" 'wdired-exit)
61473
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
179 (define-key map "\C-m" 'ignore)
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
180 (define-key map "\C-j" 'ignore)
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
181 (define-key map "\C-o" 'ignore)
55109
043dd9a4d1b4 (wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 55107
diff changeset
182 (define-key map [up] 'wdired-previous-line)
043dd9a4d1b4 (wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 55107
diff changeset
183 (define-key map "\C-p" 'wdired-previous-line)
043dd9a4d1b4 (wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 55107
diff changeset
184 (define-key map [down] 'wdired-next-line)
043dd9a4d1b4 (wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 55107
diff changeset
185 (define-key map "\C-n" 'wdired-next-line)
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
186
55109
043dd9a4d1b4 (wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 55107
diff changeset
187 (define-key map [menu-bar wdired]
043dd9a4d1b4 (wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 55107
diff changeset
188 (cons "WDired" (make-sparse-keymap "WDired")))
043dd9a4d1b4 (wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 55107
diff changeset
189 (define-key map [menu-bar wdired wdired-customize]
043dd9a4d1b4 (wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 55107
diff changeset
190 '("Options" . wdired-customize))
043dd9a4d1b4 (wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 55107
diff changeset
191 (define-key map [menu-bar wdired dashes]
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
192 '("--"))
55109
043dd9a4d1b4 (wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 55107
diff changeset
193 (define-key map [menu-bar wdired wdired-abort-changes]
68152
3a7458f9152d (wdired-mode-map): Add help echo for wdired-abort-changes.
Nick Roberts <nickrob@snap.net.nz>
parents: 67561
diff changeset
194 '(menu-item "Abort Changes" wdired-abort-changes
3a7458f9152d (wdired-mode-map): Add help echo for wdired-abort-changes.
Nick Roberts <nickrob@snap.net.nz>
parents: 67561
diff changeset
195 :help "Abort changes and return to dired mode"))
55109
043dd9a4d1b4 (wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 55107
diff changeset
196 (define-key map [menu-bar wdired wdired-finish-edit]
043dd9a4d1b4 (wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 55107
diff changeset
197 '("Commit Changes" . wdired-finish-edit))
68680
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
198
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
199 (define-key map [remap upcase-word] 'wdired-upcase-word)
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
200 (define-key map [remap capitalize-word] 'wdired-capitalize-word)
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
201 (define-key map [remap downcase-word] 'wdired-downcase-word)
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
202
55109
043dd9a4d1b4 (wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 55107
diff changeset
203 map))
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
204
55109
043dd9a4d1b4 (wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 55107
diff changeset
205 (defvar wdired-mode-hook nil
61473
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
206 "Hooks run when changing to WDired mode.")
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
207
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
208 ;; Local variables (put here to avoid compilation gripes)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
209 (defvar wdired-col-perm) ;; Column where the permission bits start
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
210 (defvar wdired-old-content)
67561
827930ad591b (wdired-old-point): New internal variable.
Juri Linkov <juri@jurta.org>
parents: 65582
diff changeset
211 (defvar wdired-old-point)
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
212
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
213
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
214 (defun wdired-mode ()
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
215 "\\<wdired-mode-map>File Names Editing mode.
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
216
61473
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
217 Press \\[wdired-finish-edit] to make the changes to take effect
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
218 and exit. To abort the edit, use \\[wdired-abort-changes].
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
219
61473
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
220 In this mode you can edit the names of the files, the target of
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
221 the links and the permission bits of the files. You can use
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
222 \\[customize-group] RET wdired to customize WDired behavior.
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
223
61473
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
224 The only editable texts in a WDired buffer are filenames,
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
225 symbolic link targets, and filenames permission."
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
226 (interactive)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
227 (error "This mode can be enabled only by `wdired-change-to-wdired-mode'"))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
228 (put 'wdired-mode 'mode-class 'special)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
229
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
230
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
231 ;;;###autoload
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
232 (defun wdired-change-to-wdired-mode ()
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
233 "Put a dired buffer in a mode in which filenames are editable.
61473
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
234 \\<wdired-mode-map>
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
235 This mode allows the user to change the names of the files, and after
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
236 typing \\[wdired-finish-edit] Emacs renames the files and directories
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
237 in disk.
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
238
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
239 See `wdired-mode'."
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
240 (interactive)
72160
183934d15fbb (wdired-change-to-wdired-mode, wdired-change-to-dired-mode):
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 69279
diff changeset
241 (or (eq major-mode 'dired-mode)
183934d15fbb (wdired-change-to-wdired-mode, wdired-change-to-dired-mode):
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 69279
diff changeset
242 (error "Not a Dired buffer"))
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
243 (set (make-local-variable 'wdired-old-content)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
244 (buffer-substring (point-min) (point-max)))
67561
827930ad591b (wdired-old-point): New internal variable.
Juri Linkov <juri@jurta.org>
parents: 65582
diff changeset
245 (set (make-local-variable 'wdired-old-point) (point))
61350
796b7fe4bfd8 (wdired-advise-functions, wdired-add-skip-in-replace)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61030
diff changeset
246 (set (make-local-variable 'query-replace-skip-read-only) t)
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
247 (use-local-map wdired-mode-map)
55109
043dd9a4d1b4 (wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 55107
diff changeset
248 (force-mode-line-update)
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
249 (setq buffer-read-only nil)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
250 (dired-unadvertise default-directory)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
251 (add-hook 'kill-buffer-hook 'wdired-check-kill-buffer nil t)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
252 (setq major-mode 'wdired-mode)
61473
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
253 (setq mode-name "Editable Dired")
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
254 (setq revert-buffer-function 'wdired-revert)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
255 ;; I temp disable undo for performance: since I'm going to clear the
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
256 ;; undo list, it can save more than a 9% of time with big
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
257 ;; directories because setting properties modify the undo-list.
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
258 (buffer-disable-undo)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
259 (wdired-preprocess-files)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
260 (if wdired-allow-to-change-permissions
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
261 (wdired-preprocess-perms))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
262 (if (and wdired-allow-to-redirect-links (fboundp 'make-symbolic-link))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
263 (wdired-preprocess-symlinks))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
264 (buffer-enable-undo) ; Performance hack. See above.
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
265 (set-buffer-modified-p nil)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
266 (setq buffer-undo-list nil)
62746
0fe5c8d2cd65 (wdired-change-to-wdired-mode): Use run-mode-hooks.
Lute Kamstra <lute@gnu.org>
parents: 61473
diff changeset
267 (run-mode-hooks 'wdired-mode-hook)
67561
827930ad591b (wdired-old-point): New internal variable.
Juri Linkov <juri@jurta.org>
parents: 65582
diff changeset
268 (message "%s" (substitute-command-keys
827930ad591b (wdired-old-point): New internal variable.
Juri Linkov <juri@jurta.org>
parents: 65582
diff changeset
269 "Press \\[wdired-finish-edit] when finished \
61030
6b0506554db8 (wdired-change-to-wdired-mode):
Juri Linkov <juri@jurta.org>
parents: 60141
diff changeset
270 or \\[wdired-abort-changes] to abort changes")))
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
271
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
272
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
273 ;; Protect the buffer so only the filenames can be changed, and put
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
274 ;; properties so filenames (old and new) can be easily found.
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
275 (defun wdired-preprocess-files ()
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
276 (put-text-property 1 2 'front-sticky t)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
277 (save-excursion
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
278 (goto-char (point-min))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
279 (let ((b-protection (point))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
280 filename)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
281 (while (not (eobp))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
282 (setq filename (dired-get-filename nil t))
55109
043dd9a4d1b4 (wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 55107
diff changeset
283 (when (and filename
043dd9a4d1b4 (wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 55107
diff changeset
284 (not (member (file-name-nondirectory filename) '("." ".."))))
043dd9a4d1b4 (wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 55107
diff changeset
285 (dired-move-to-filename)
74526
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
286 ;; The rear-nonsticky property below shall ensure that text preceding
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
287 ;; the filename can't be modified.
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
288 (add-text-properties
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
289 (1- (point)) (point) `(old-name ,filename rear-nonsticky (read-only)))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
290 (put-text-property b-protection (point) 'read-only t)
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
291 (setq b-protection (dired-move-to-end-of-filename t))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
292 (put-text-property (point) (1+ (point)) 'end-name t))
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
293 (forward-line))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
294 (put-text-property b-protection (point-max) 'read-only t))))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
295
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
296 ;; This code is a copy of some dired-get-filename lines.
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
297 (defsubst wdired-normalize-filename (file)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
298 (setq file
55109
043dd9a4d1b4 (wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 55107
diff changeset
299 ;; FIXME: shouldn't we check for a `b' argument or somesuch before
043dd9a4d1b4 (wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 55107
diff changeset
300 ;; doing such unquoting? --Stef
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
301 (read (concat
55109
043dd9a4d1b4 (wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 55107
diff changeset
302 "\"" (replace-regexp-in-string
043dd9a4d1b4 (wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 55107
diff changeset
303 "\\([^\\]\\|\\`\\)\"" "\\1\\\\\"" file)
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
304 "\"")))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
305 (and file buffer-file-coding-system
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
306 (not file-name-coding-system)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
307 (not default-file-name-coding-system)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
308 (setq file (encode-coding-string file buffer-file-coding-system)))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
309 file)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
310
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
311 (defun wdired-get-filename (&optional no-dir old)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
312 "Return the filename at line.
55109
043dd9a4d1b4 (wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 55107
diff changeset
313 Similar to `dired-get-filename' but it doesn't rely on regexps. It
61473
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
314 relies on WDired buffer's properties. Optional arg NO-DIR with value
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
315 non-nil means don't include directory. Optional arg OLD with value
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
316 non-nil means return old filename."
55109
043dd9a4d1b4 (wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 55107
diff changeset
317 ;; FIXME: Use dired-get-filename's new properties.
74526
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
318 (let (beg end file)
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
319 (save-excursion
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
320 (setq end (line-end-position))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
321 (beginning-of-line)
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
322 (setq beg (next-single-property-change (point) 'old-name nil end))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
323 (unless (eq beg end)
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
324 (if old
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
325 (setq file (get-text-property beg 'old-name))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
326 (setq end (next-single-property-change (1+ beg) 'end-name))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
327 (setq file (buffer-substring-no-properties (1+ beg) end)))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
328 (and file (setq file (wdired-normalize-filename file))))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
329 (if (or no-dir old)
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
330 file
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
331 (and file (> (length file) 0)
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
332 (concat (dired-current-directory) file))))))
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
333
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
334
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
335 (defun wdired-change-to-dired-mode ()
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
336 "Change the mode back to dired."
72160
183934d15fbb (wdired-change-to-wdired-mode, wdired-change-to-dired-mode):
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 69279
diff changeset
337 (or (eq major-mode 'wdired-mode)
183934d15fbb (wdired-change-to-wdired-mode, wdired-change-to-dired-mode):
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 69279
diff changeset
338 (error "Not a Wdired buffer"))
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
339 (let ((inhibit-read-only t))
74526
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
340 (remove-text-properties
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
341 (point-min) (point-max)
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
342 '(front-sticky nil rear-nonsticky nil read-only nil keymap nil)))
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
343 (use-local-map dired-mode-map)
55109
043dd9a4d1b4 (wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 55107
diff changeset
344 (force-mode-line-update)
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
345 (setq buffer-read-only t)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
346 (setq major-mode 'dired-mode)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
347 (setq mode-name "Dired")
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
348 (dired-advertise)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
349 (remove-hook 'kill-buffer-hook 'wdired-check-kill-buffer t)
68680
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
350 (set (make-local-variable 'revert-buffer-function) 'dired-revert))
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
351
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
352
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
353 (defun wdired-abort-changes ()
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
354 "Abort changes and return to dired mode."
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
355 (interactive)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
356 (let ((inhibit-read-only t))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
357 (erase-buffer)
67561
827930ad591b (wdired-old-point): New internal variable.
Juri Linkov <juri@jurta.org>
parents: 65582
diff changeset
358 (insert wdired-old-content)
827930ad591b (wdired-old-point): New internal variable.
Juri Linkov <juri@jurta.org>
parents: 65582
diff changeset
359 (goto-char wdired-old-point))
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
360 (wdired-change-to-dired-mode)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
361 (set-buffer-modified-p nil)
55371
a96e9558b1ea (wdired-change-to-wdired-mode): Quote wdired-mode-hook in run-hooks.
Lars Hansen <larsh@soem.dk>
parents: 55109
diff changeset
362 (setq buffer-undo-list nil)
a96e9558b1ea (wdired-change-to-wdired-mode): Quote wdired-mode-hook in run-hooks.
Lars Hansen <larsh@soem.dk>
parents: 55109
diff changeset
363 (message "Changes aborted"))
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
364
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
365 (defun wdired-finish-edit ()
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
366 "Actually rename files based on your editing in the Dired buffer."
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
367 (interactive)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
368 (wdired-change-to-dired-mode)
61473
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
369 (let ((overwrite (or (not wdired-confirm-overwrite) 1))
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
370 (changes nil)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
371 (files-deleted nil)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
372 (errors 0)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
373 file-ori file-new tmp-value)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
374 (save-excursion
74526
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
375 (when (and wdired-allow-to-redirect-links
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
376 (fboundp 'make-symbolic-link))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
377 (setq tmp-value (wdired-do-symlink-changes))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
378 (setq errors (cdr tmp-value))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
379 (setq changes (car tmp-value)))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
380 (when (and wdired-allow-to-change-permissions
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
381 (boundp 'wdired-col-perm)) ; could have been changed
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
382 (setq tmp-value (wdired-do-perm-changes))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
383 (setq errors (+ errors (cdr tmp-value)))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
384 (setq changes (or changes (car tmp-value))))
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
385 (goto-char (point-max))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
386 (while (not (bobp))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
387 (setq file-ori (wdired-get-filename nil t))
74526
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
388 (when file-ori
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
389 (setq file-new (wdired-get-filename)))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
390 (when (and file-ori (not (equal file-new file-ori)))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
391 (setq changes t)
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
392 (if (not file-new) ;empty filename!
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
393 (setq files-deleted (cons file-ori files-deleted))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
394 (setq file-new (substitute-in-file-name file-new))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
395 (if wdired-use-interactive-rename
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
396 (wdired-search-and-rename file-ori file-new)
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
397 ;; If dired-rename-file autoloads dired-aux while
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
398 ;; dired-backup-overwrite is locally bound,
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
399 ;; dired-backup-overwrite won't be initialized.
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
400 ;; So we must ensure dired-aux is loaded.
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
401 (require 'dired-aux)
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
402 (condition-case err
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
403 (let ((dired-backup-overwrite nil))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
404 (dired-rename-file file-ori file-new
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
405 overwrite))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
406 (error
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
407 (setq errors (1+ errors))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
408 (dired-log (concat "Rename `" file-ori "' to `"
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
409 file-new "' failed:\n%s\n")
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
410 err))))))
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
411 (forward-line -1)))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
412 (if changes
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
413 (revert-buffer) ;The "revert" is necessary to re-sort the buffer
68680
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
414 (let ((inhibit-read-only t))
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
415 (remove-text-properties (point-min) (point-max)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
416 '(old-name nil end-name nil old-link nil
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
417 end-link nil end-perm nil
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
418 old-perm nil perm-changed nil))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
419 (message "(No changes to be performed)")))
74526
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
420 (when files-deleted
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
421 (wdired-flag-for-deletion files-deleted))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
422 (when (> errors 0)
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
423 (dired-log-summary (format "%d rename actions failed" errors) nil)))
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
424 (set-buffer-modified-p nil)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
425 (setq buffer-undo-list nil))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
426
82194
06241457c4f0 (wdired-exit): New function.
Juri Linkov <juri@jurta.org>
parents: 82140
diff changeset
427 (defun wdired-exit ()
06241457c4f0 (wdired-exit): New function.
Juri Linkov <juri@jurta.org>
parents: 82140
diff changeset
428 "Exit wdired and return to dired mode.
06241457c4f0 (wdired-exit): New function.
Juri Linkov <juri@jurta.org>
parents: 82140
diff changeset
429 Just return to dired mode if there are no changes. Otherwise,
06241457c4f0 (wdired-exit): New function.
Juri Linkov <juri@jurta.org>
parents: 82140
diff changeset
430 ask a yes-or-no question whether to save or cancel changes,
06241457c4f0 (wdired-exit): New function.
Juri Linkov <juri@jurta.org>
parents: 82140
diff changeset
431 and proceed depending on the answer."
06241457c4f0 (wdired-exit): New function.
Juri Linkov <juri@jurta.org>
parents: 82140
diff changeset
432 (interactive)
06241457c4f0 (wdired-exit): New function.
Juri Linkov <juri@jurta.org>
parents: 82140
diff changeset
433 (if (buffer-modified-p)
06241457c4f0 (wdired-exit): New function.
Juri Linkov <juri@jurta.org>
parents: 82140
diff changeset
434 (if (y-or-n-p (format "Buffer %s modified; save changes? "
06241457c4f0 (wdired-exit): New function.
Juri Linkov <juri@jurta.org>
parents: 82140
diff changeset
435 (current-buffer)))
06241457c4f0 (wdired-exit): New function.
Juri Linkov <juri@jurta.org>
parents: 82140
diff changeset
436 (wdired-finish-edit)
06241457c4f0 (wdired-exit): New function.
Juri Linkov <juri@jurta.org>
parents: 82140
diff changeset
437 (wdired-abort-changes))
06241457c4f0 (wdired-exit): New function.
Juri Linkov <juri@jurta.org>
parents: 82140
diff changeset
438 (wdired-change-to-dired-mode)
06241457c4f0 (wdired-exit): New function.
Juri Linkov <juri@jurta.org>
parents: 82140
diff changeset
439 (set-buffer-modified-p nil)
06241457c4f0 (wdired-exit): New function.
Juri Linkov <juri@jurta.org>
parents: 82140
diff changeset
440 (setq buffer-undo-list nil)
06241457c4f0 (wdired-exit): New function.
Juri Linkov <juri@jurta.org>
parents: 82140
diff changeset
441 (message "(No changes need to be saved)")))
06241457c4f0 (wdired-exit): New function.
Juri Linkov <juri@jurta.org>
parents: 82140
diff changeset
442
68680
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
443 ;; Rename a file, searching it in a modified dired buffer, in order
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
444 ;; to be able to use `dired-do-create-files-regexp' and get its
68680
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
445 ;; "benefits".
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
446 (defun wdired-search-and-rename (filename-ori filename-new)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
447 (save-excursion
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
448 (goto-char (point-max))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
449 (forward-line -1)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
450 (let ((exit-while nil)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
451 curr-filename)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
452 (while (not exit-while)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
453 (setq curr-filename (wdired-get-filename))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
454 (if (and curr-filename
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
455 (equal (substitute-in-file-name curr-filename) filename-new))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
456 (progn
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
457 (setq exit-while t)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
458 (let ((inhibit-read-only t))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
459 (dired-move-to-filename)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
460 (search-forward (wdired-get-filename t) nil t)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
461 (replace-match (file-name-nondirectory filename-ori) t t))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
462 (dired-do-create-files-regexp
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
463 (function dired-rename-file)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
464 "Move" 1 ".*" filename-new nil t))
74526
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
465 (forward-line -1)
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
466 (beginning-of-line)
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
467 (setq exit-while (bobp)))))))
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
468
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
469 ;; marks a list of files for deletion
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
470 (defun wdired-flag-for-deletion (filenames-ori)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
471 (save-excursion
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
472 (goto-char (point-min))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
473 (while (not (eobp))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
474 (if (member (dired-get-filename nil t) filenames-ori)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
475 (dired-flag-file-deletion 1)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
476 (forward-line)))))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
477
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
478 (defun wdired-customize ()
61473
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
479 "Customize WDired options."
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
480 (interactive)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
481 (customize-apropos "wdired" 'groups))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
482
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
483 (defun wdired-revert (&optional arg noconfirm)
61473
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
484 "Discard changes in the buffer and update it based on changes on disk.
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
485 Optional arguments are ignored."
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
486 (wdired-change-to-dired-mode)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
487 (revert-buffer)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
488 (wdired-change-to-wdired-mode))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
489
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
490 (defun wdired-check-kill-buffer ()
55109
043dd9a4d1b4 (wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 55107
diff changeset
491 ;; FIXME: Can't we use the normal mechanism for that? --Stef
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
492 (if (and
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
493 (buffer-modified-p)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
494 (not (y-or-n-p "Buffer changed. Discard changes and kill buffer? ")))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
495 (error nil)))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
496
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
497 (defun wdired-next-line (arg)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
498 "Move down lines then position at filename or the current column.
61473
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
499 See `wdired-use-dired-vertical-movement'. Optional prefix ARG
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
500 says how many lines to move; default is one line."
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
501 (interactive "p")
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
502 (next-line arg)
61473
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
503 (if (or (eq wdired-use-dired-vertical-movement t)
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
504 (and wdired-use-dired-vertical-movement
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
505 (< (current-column)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
506 (save-excursion (dired-move-to-filename)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
507 (current-column)))))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
508 (dired-move-to-filename)))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
509
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
510 (defun wdired-previous-line (arg)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
511 "Move up lines then position at filename or the current column.
61473
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
512 See `wdired-use-dired-vertical-movement'. Optional prefix ARG
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
513 says how many lines to move; default is one line."
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
514 (interactive "p")
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
515 (previous-line arg)
61473
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
516 (if (or (eq wdired-use-dired-vertical-movement t)
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
517 (and wdired-use-dired-vertical-movement
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
518 (< (current-column)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
519 (save-excursion (dired-move-to-filename)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
520 (current-column)))))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
521 (dired-move-to-filename)))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
522
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
523 ;; Put the needed properties to allow the user to change links' targets
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
524 (defun wdired-preprocess-symlinks ()
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
525 (let ((inhibit-read-only t))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
526 (save-excursion
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
527 (goto-char (point-min))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
528 (while (not (eobp))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
529 (if (looking-at dired-re-sym)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
530 (progn
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
531 (re-search-forward " -> \\(.*\\)$")
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
532 (put-text-property (- (match-beginning 1) 2)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
533 (1- (match-beginning 1)) 'old-link
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
534 (match-string-no-properties 1))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
535 (put-text-property (match-end 1) (1+ (match-end 1)) 'end-link t)
74528
6be933449565 (wdired-preprocess-symlinks): Make the spaces after symlink arrows
Chong Yidong <cyd@stupidchicken.com>
parents: 74526
diff changeset
536 (put-text-property (1- (match-beginning 1))
6be933449565 (wdired-preprocess-symlinks): Make the spaces after symlink arrows
Chong Yidong <cyd@stupidchicken.com>
parents: 74526
diff changeset
537 (match-beginning 1)
6be933449565 (wdired-preprocess-symlinks): Make the spaces after symlink arrows
Chong Yidong <cyd@stupidchicken.com>
parents: 74526
diff changeset
538 'rear-nonsticky '(read-only))
6be933449565 (wdired-preprocess-symlinks): Make the spaces after symlink arrows
Chong Yidong <cyd@stupidchicken.com>
parents: 74526
diff changeset
539 (put-text-property (match-beginning 1)
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
540 (match-end 1) 'read-only nil)))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
541 (forward-line)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
542 (beginning-of-line)))))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
543
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
544
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
545 (defun wdired-get-previous-link (&optional old move)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
546 "Return the next symlink target.
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
547 If OLD, return the old target. If MOVE, move point before it."
74526
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
548 (let (beg end target)
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
549 (setq beg (previous-single-property-change (point) 'old-link nil))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
550 (if beg
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
551 (progn
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
552 (if old
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
553 (setq target (get-text-property (1- beg) 'old-link))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
554 (setq end (next-single-property-change beg 'end-link))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
555 (setq target (buffer-substring-no-properties (1+ beg) end)))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
556 (if move (goto-char (1- beg)))))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
557 (and target (wdired-normalize-filename target))))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
558
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
559
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
560 ;; Perform the changes in the target of the changed links.
68680
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
561 (defun wdired-do-symlink-changes ()
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
562 (let ((changes nil)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
563 (errors 0)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
564 link-to-ori link-to-new link-from)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
565 (goto-char (point-max))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
566 (while (setq link-to-new (wdired-get-previous-link))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
567 (setq link-to-ori (wdired-get-previous-link t t))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
568 (setq link-from (wdired-get-filename nil t))
68680
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
569 (unless (equal link-to-new link-to-ori)
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
570 (setq changes t)
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
571 (if (equal link-to-new "") ;empty filename!
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
572 (setq link-to-new "/dev/null"))
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
573 (condition-case err
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
574 (progn
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
575 (delete-file link-from)
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
576 (make-symbolic-link
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
577 (substitute-in-file-name link-to-new) link-from))
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
578 (error
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
579 (setq errors (1+ errors))
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
580 (dired-log (concat "Link `" link-from "' to `"
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
581 link-to-new "' failed:\n%s\n")
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
582 err)))))
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
583 (cons changes errors)))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
584
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
585 ;; Perform a "case command" skipping read-only words.
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
586 (defun wdired-xcase-word (command arg)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
587 (if (< arg 0)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
588 (funcall command arg)
68680
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
589 (while (> arg 0)
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
590 (condition-case err
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
591 (progn
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
592 (funcall command 1)
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
593 (setq arg (1- arg)))
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
594 (error
75159
21d0aec573ef (wdired-xcase-word): Skip non-word read-only characters.
Martin Rudalics <rudalics@gmx.at>
parents: 74528
diff changeset
595 (if (forward-word)
21d0aec573ef (wdired-xcase-word): Skip non-word read-only characters.
Martin Rudalics <rudalics@gmx.at>
parents: 74528
diff changeset
596 ;; Skip any non-word characters to avoid triggering a read-only
21d0aec573ef (wdired-xcase-word): Skip non-word read-only characters.
Martin Rudalics <rudalics@gmx.at>
parents: 74528
diff changeset
597 ;; error which would cause skipping the next word characters too.
21d0aec573ef (wdired-xcase-word): Skip non-word read-only characters.
Martin Rudalics <rudalics@gmx.at>
parents: 74528
diff changeset
598 (skip-syntax-forward "^w")
21d0aec573ef (wdired-xcase-word): Skip non-word read-only characters.
Martin Rudalics <rudalics@gmx.at>
parents: 74528
diff changeset
599 (setq arg 0)))))))
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
600
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
601 (defun wdired-downcase-word (arg)
61473
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
602 "WDired version of `downcase-word'.
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
603 Like original function but it skips read-only words."
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
604 (interactive "p")
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
605 (wdired-xcase-word 'downcase-word arg))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
606
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
607 (defun wdired-upcase-word (arg)
61473
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
608 "WDired version of `upcase-word'.
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
609 Like original function but it skips read-only words."
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
610 (interactive "p")
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
611 (wdired-xcase-word 'upcase-word arg))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
612
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
613 (defun wdired-capitalize-word (arg)
61473
496c7a7bdacc Doc fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61350
diff changeset
614 "WDired version of `capitalize-word'.
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
615 Like original function but it skips read-only words."
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
616 (interactive "p")
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
617 (wdired-xcase-word 'capitalize-word arg))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
618
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
619
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
620 ;; The following code deals with changing the access bits (or
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
621 ;; permissions) of the files.
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
622
68680
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
623 (defvar wdired-perm-mode-map
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
624 (let ((map (make-sparse-keymap)))
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
625 (define-key map " " 'wdired-toggle-bit)
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
626 (define-key map "r" 'wdired-set-bit)
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
627 (define-key map "w" 'wdired-set-bit)
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
628 (define-key map "x" 'wdired-set-bit)
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
629 (define-key map "-" 'wdired-set-bit)
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
630 (define-key map "S" 'wdired-set-bit)
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
631 (define-key map "s" 'wdired-set-bit)
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
632 (define-key map "T" 'wdired-set-bit)
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
633 (define-key map "t" 'wdired-set-bit)
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
634 (define-key map "s" 'wdired-set-bit)
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
635 (define-key map "l" 'wdired-set-bit)
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
636 (define-key map [down-mouse-1] 'wdired-mouse-toggle-bit)
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
637 map))
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
638
74526
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
639 ;; Put a keymap property to the permission bits of the files, and store the
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
640 ;; original name and permissions as a property
68680
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
641 (defun wdired-preprocess-perms ()
74526
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
642 (let ((inhibit-read-only t))
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
643 (set (make-local-variable 'wdired-col-perm) nil)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
644 (save-excursion
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
645 (goto-char (point-min))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
646 (while (not (eobp))
74526
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
647 (when (and (not (looking-at dired-re-sym))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
648 (wdired-get-filename)
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
649 (re-search-forward dired-re-perms (line-end-position) 'eol))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
650 (let ((begin (match-beginning 0))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
651 (end (match-end 0)))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
652 (unless wdired-col-perm
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
653 (setq wdired-col-perm (- (current-column) 9)))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
654 (if (eq wdired-allow-to-change-permissions 'advanced)
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
655 (progn
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
656 (put-text-property begin end 'read-only nil)
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
657 ;; make first permission bit writable
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
658 (put-text-property
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
659 (1- begin) begin 'rear-nonsticky '(read-only)))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
660 ;; avoid that keymap applies to text following permissions
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
661 (add-text-properties
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
662 (1+ begin) end
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
663 `(keymap ,wdired-perm-mode-map rear-nonsticky (keymap))))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
664 (put-text-property end (1+ end) 'end-perm t)
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
665 (put-text-property
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
666 begin (1+ begin) 'old-perm (match-string-no-properties 0))))
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
667 (forward-line)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
668 (beginning-of-line)))))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
669
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
670 (defun wdired-perm-allowed-in-pos (char pos)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
671 (cond
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
672 ((= char ?-) t)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
673 ((= char ?r) (= (% pos 3) 0))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
674 ((= char ?w) (= (% pos 3) 1))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
675 ((= char ?x) (= (% pos 3) 2))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
676 ((memq char '(?s ?S)) (memq pos '(2 5)))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
677 ((memq char '(?t ?T)) (= pos 8))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
678 ((= char ?l) (= pos 5))))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
679
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
680 (defun wdired-set-bit ()
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
681 "Set a permission bit character."
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
682 (interactive)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
683 (if (wdired-perm-allowed-in-pos last-command-char
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
684 (- (current-column) wdired-col-perm))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
685 (let ((new-bit (char-to-string last-command-char))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
686 (inhibit-read-only t)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
687 (pos-prop (- (point) (- (current-column) wdired-col-perm))))
68680
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
688 (put-text-property 0 1 'keymap wdired-perm-mode-map new-bit)
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
689 (put-text-property 0 1 'read-only t new-bit)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
690 (insert new-bit)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
691 (delete-char 1)
74526
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
692 (put-text-property (1- pos-prop) pos-prop 'perm-changed t)
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
693 (put-text-property (1- (point)) (point) 'rear-nonsticky '(keymap)))
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
694 (forward-char 1)))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
695
68680
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
696 (defun wdired-toggle-bit ()
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
697 "Toggle the permission bit at point."
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
698 (interactive)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
699 (let ((inhibit-read-only t)
74526
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
700 (new-bit "-")
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
701 (pos-prop (- (point) (- (current-column) wdired-col-perm))))
74526
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
702 (if (eq (char-after (point)) ?-)
81639
8e5203081e80 * dired-aux.el: Remove `dired-call-process'.
Michael Albinus <michael.albinus@gmx.de>
parents: 75347
diff changeset
703 (setq new-bit
74526
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
704 (if (= (% (- (current-column) wdired-col-perm) 3) 0) "r"
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
705 (if (= (% (- (current-column) wdired-col-perm) 3) 1) "w"
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
706 "x"))))
68680
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
707 (put-text-property 0 1 'keymap wdired-perm-mode-map new-bit)
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
708 (put-text-property 0 1 'read-only t new-bit)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
709 (insert new-bit)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
710 (delete-char 1)
74526
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
711 (put-text-property (1- pos-prop) pos-prop 'perm-changed t)
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
712 (put-text-property (1- (point)) (point) 'rear-nonsticky '(keymap))))
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
713
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
714 (defun wdired-mouse-toggle-bit (event)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
715 "Toggle the permission bit that was left clicked."
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
716 (interactive "e")
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
717 (mouse-set-point event)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
718 (wdired-toggle-bit))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
719
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
720 ;; Allowed chars for 4000 bit are Ss in position 3
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
721 ;; Allowed chars for 2000 bit are Ssl in position 6
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
722 ;; Allowed chars for 1000 bit are Tt in position 9
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
723 (defun wdired-perms-to-number (perms)
74526
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
724 (let ((nperm 0777))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
725 (if (= (elt perms 1) ?-) (setq nperm (- nperm 400)))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
726 (if (= (elt perms 2) ?-) (setq nperm (- nperm 200)))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
727 (let ((p-bit (elt perms 3)))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
728 (if (memq p-bit '(?- ?S)) (setq nperm (- nperm 100)))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
729 (if (memq p-bit '(?s ?S)) (setq nperm (+ nperm 4000))))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
730 (if (= (elt perms 4) ?-) (setq nperm (- nperm 40)))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
731 (if (= (elt perms 5) ?-) (setq nperm (- nperm 20)))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
732 (let ((p-bit (elt perms 6)))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
733 (if (memq p-bit '(?- ?S ?l)) (setq nperm (- nperm 10)))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
734 (if (memq p-bit '(?s ?S ?l)) (setq nperm (+ nperm 2000))))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
735 (if (= (elt perms 7) ?-) (setq nperm (- nperm 4)))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
736 (if (= (elt perms 8) ?-) (setq nperm (- nperm 2)))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
737 (let ((p-bit (elt perms 9)))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
738 (if (memq p-bit '(?- ?T)) (setq nperm (- nperm 1)))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
739 (if (memq p-bit '(?t ?T)) (setq nperm (+ nperm 1000))))
1a43c99020cb (wdired-change-to-wdired-mode, wdired-finish-edit)
Chong Yidong <cyd@stupidchicken.com>
parents: 72160
diff changeset
740 nperm))
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
741
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
742 ;; Perform the changes in the permissions of the files that have
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
743 ;; changed.
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
744 (defun wdired-do-perm-changes ()
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
745 (let ((changes nil)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
746 (errors 0)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
747 (prop-wanted (if (eq wdired-allow-to-change-permissions 'advanced)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
748 'old-perm 'perm-changed))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
749 filename perms-ori perms-new perm-tmp)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
750 (goto-char (next-single-property-change (point-min) prop-wanted
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
751 nil (point-max)))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
752 (while (not (eobp))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
753 (setq perms-ori (get-text-property (point) 'old-perm))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
754 (setq perms-new (buffer-substring-no-properties
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
755 (point) (next-single-property-change (point) 'end-perm)))
68680
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
756 (unless (equal perms-ori perms-new)
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
757 (setq changes t)
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
758 (setq filename (wdired-get-filename nil t))
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
759 (if (= (length perms-new) 10)
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
760 (progn
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
761 (setq perm-tmp
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
762 (int-to-string (wdired-perms-to-number perms-new)))
81639
8e5203081e80 * dired-aux.el: Remove `dired-call-process'.
Michael Albinus <michael.albinus@gmx.de>
parents: 75347
diff changeset
763 (unless (equal 0 (process-file dired-chmod-program
8e5203081e80 * dired-aux.el: Remove `dired-call-process'.
Michael Albinus <michael.albinus@gmx.de>
parents: 75347
diff changeset
764 nil nil nil perm-tmp filename))
68680
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
765 (setq errors (1+ errors))
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
766 (dired-log (concat dired-chmod-program " " perm-tmp
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
767 " `" filename "' failed\n\n"))))
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
768 (setq errors (1+ errors))
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
769 (dired-log (concat "Cannot parse permission `" perms-new
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
770 "' for file `" filename "'\n\n"))))
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
771 (goto-char (next-single-property-change (1+ (point)) prop-wanted
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
772 nil (point-max))))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
773 (cons changes errors)))
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
774
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
775 (provide 'wdired)
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
776
68680
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
777 ;; Local Variables:
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
778 ;; coding: latin-1
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
779 ;; byte-compile-dynamic: t
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
780 ;; End:
bdaa27dd39d3 (wdired-mode-map): Use remap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68671
diff changeset
781
55109
043dd9a4d1b4 (wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 55107
diff changeset
782 ;; arch-tag: bc00902e-526f-4305-bc7f-8862a559184f
55098
dedd285e197e New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
783 ;;; wdired.el ends here