Lines Matching refs:dired
1 ;;; wdired.el --- Rename files editing their names in dired buffers
8 ;; Keywords: dired, environment, files, renaming
34 ;; the files in a "dired" buffer? Now you can do this. All the power
38 ;; dired buffer editable, by changing the buffer mode (which inhibits
39 ;; all of the commands of dired mode). Here you can edit the names of
41 ;; renaming takes effect and you are back to dired mode.
51 ;; working unix-alike `dired-chmod-program'). See and customize the
71 ;; (define-key dired-mode-map "r" 'wdired-change-to-wdired-mode)
77 ;; (eval-after-load "dired"
79 ;; (define-key dired-mode-map "r" 'wdired-change-to-wdired-mode)
80 ;; (define-key dired-mode-map
92 ;; menu options: in dired mode, "Edit File Names" under "Immediate".
104 (defvar dired-backup-overwrite) ; Only in Emacs 20.x this is a custom var
107 (require 'dired)
108 (autoload 'dired-do-create-files-regexp "dired-aux")
109 (autoload 'dired-call-process "dired-aux")
112 "Mode to rename files by editing their names in dired buffers."
113 :group 'dired)
130 (defcustom wdired-use-dired-vertical-movement nil
141 (other :tag "As in dired mode" t))
167 program `dired-chmod-program', which must exist."
195 :help "Abort changes and return to dired mode"))
233 "Put a dired buffer in a mode in which filenames are editable.
241 (or (eq major-mode 'dired-mode)
250 (dired-unadvertise default-directory)
282 (setq filename (dired-get-filename nil t))
285 (dired-move-to-filename)
291 (setq b-protection (dired-move-to-end-of-filename t))
296 ;; This code is a copy of some dired-get-filename lines.
313 Similar to `dired-get-filename' but it doesn't rely on regexps. It
317 ;; FIXME: Use dired-get-filename's new properties.
332 (concat (dired-current-directory) file))))))
335 (defun wdired-change-to-dired-mode ()
336 "Change the mode back to dired."
343 (use-local-map dired-mode-map)
346 (setq major-mode 'dired-mode)
348 (dired-advertise)
350 (set (make-local-variable 'revert-buffer-function) 'dired-revert))
354 "Abort changes and return to dired mode."
360 (wdired-change-to-dired-mode)
368 (wdired-change-to-dired-mode)
397 ;; If dired-rename-file autoloads dired-aux while
398 ;; dired-backup-overwrite is locally bound,
399 ;; dired-backup-overwrite won't be initialized.
400 ;; So we must ensure dired-aux is loaded.
401 (require 'dired-aux)
403 (let ((dired-backup-overwrite nil))
404 (dired-rename-file file-ori file-new
408 (dired-log (concat "Rename `" file-ori "' to `"
423 (dired-log-summary (format "%d rename actions failed" errors) nil)))
427 ;; Rename a file, searching it in a modified dired buffer, in order
428 ;; to be able to use `dired-do-create-files-regexp' and get its
443 (dired-move-to-filename)
446 (dired-do-create-files-regexp
447 (function dired-rename-file)
458 (if (member (dired-get-filename nil t) filenames-ori)
459 (dired-flag-file-deletion 1)
470 (wdired-change-to-dired-mode)
483 See `wdired-use-dired-vertical-movement'. Optional prefix ARG
487 (if (or (eq wdired-use-dired-vertical-movement t)
488 (and wdired-use-dired-vertical-movement
490 (save-excursion (dired-move-to-filename)
492 (dired-move-to-filename)))
496 See `wdired-use-dired-vertical-movement'. Optional prefix ARG
500 (if (or (eq wdired-use-dired-vertical-movement t)
501 (and wdired-use-dired-vertical-movement
503 (save-excursion (dired-move-to-filename)
505 (dired-move-to-filename)))
513 (if (looking-at dired-re-sym)
564 (dired-log (concat "Link `" link-from "' to `"
631 (when (and (not (looking-at dired-re-sym))
633 (re-search-forward dired-re-perms (line-end-position) 'eol))
747 (unless (equal 0 (dired-call-process dired-chmod-program
750 (dired-log (concat dired-chmod-program " " perm-tmp
753 (dired-log (concat "Cannot parse permission `" perms-new