mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

* lisp/dired-aux.el (dired-do-chmod): Don't provide initial input.

Browse Source
This commit is contained in:
Chong Yidong 2011-09-14 11:06:28 -04:00
parent f678e0b6a2
commit a0bf2bcd93
2 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2011-09-14 Chong Yidong <cyd@stupidchicken.com>
* dired-aux.el (dired-do-chmod): Don't provide initial input.
2011-09-14 Martin Rudalics <rudalics@gmx.at>
* window.el (display-buffer-window): Remove.

17
lisp/dired-aux.el
View File

@ -285,11 +285,8 @@ Symbolic modes like `g+w' are allowed."
(match-string 3 modestr)))))
(modes (dired-mark-read-string
"Change mode of %s to: "
;; Insert initial input if there's only one file.
(unless (cadr files) default)
'chmod arg files default))
nil 'chmod arg files default))
num-modes)
(cond ((equal modes "")
;; We used to treat empty input as DEFAULT, but that is not
;; such a good idea (Bug#9361).
@ -388,7 +385,7 @@ Uses the shell command coming from variables `lpr-command' and
(dired-run-shell-command (dired-shell-stuff-it command file-list nil))))
(defun dired-mark-read-string (prompt initial op-symbol arg files
&optional standard-value)
&optional default-value)
"Read args for a Dired marked-files command, prompting with PROMPT.
Return the user input (a string).
@ -397,14 +394,14 @@ OP-SYMBOL is an operation symbol (see `dired-no-confirm').
ARG is normally the prefix argument for the calling command.
FILES should be a list of file names.
STANDARD-VALUE, if non-nil, should be a \"standard\" value or
list of such values, available via history commands. Note that
if the user enters empty input, this function returns the empty
string, not STANDARD-VALUE."
DEFAULT-VALUE, if non-nil, should be a \"standard\" value or list
of such values, available via history commands. Note that if the
user enters empty input, this function returns the empty string,
not DEFAULT-VALUE."
(dired-mark-pop-up nil op-symbol files
'read-from-minibuffer
(format prompt (dired-mark-prompt arg files))
initial nil nil nil standard-value))
initial nil nil nil default-value))
;;; Cleaning a directory: flagging some backups for deletion.