diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2017-04-16 23:36:26 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2017-04-16 23:37:29 -0700 |
| commit | 47122295521c63febe9fc64680430812da3a3acf (patch) | |
| tree | 040a021bdad60fb367c8b9120efa490a88b4f942 /lisp/dired-aux.el | |
| parent | 750721c3943e5837d7d9292d6462a144a49347c7 (diff) | |
| download | emacs-47122295521c63febe9fc64680430812da3a3acf.tar.gz | |
dired ‘M’ should not complain about ‘.’ and ‘..’
* lisp/dired-aux.el (dired-do-redisplay):
Allow redisplay of ‘.’ and ‘..’ (Bug#26528).
Diffstat (limited to 'lisp/dired-aux.el')
| -rw-r--r-- | lisp/dired-aux.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index d7ca0527879..ec07f9bf735 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el @@ -1266,12 +1266,14 @@ See Info node `(emacs)Subdir switches' for more details." ;; message much faster than making dired-map-over-marks show progress (dired-uncache (if (consp dired-directory) (car dired-directory) dired-directory)) - (dired-map-over-marks (let ((fname (dired-get-filename)) + (dired-map-over-marks (let ((fname (dired-get-filename nil t)) ;; Postpone readin hook till we map ;; over all marked files (Bug#6810). (dired-after-readin-hook nil)) - (message "Redisplaying... %s" fname) - (dired-update-file-line fname)) + (if (not fname) + (error "No file on this line") + (message "Redisplaying... %s" fname) + (dired-update-file-line fname))) arg) (run-hooks 'dired-after-readin-hook) (dired-move-to-filename) |