aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPaul Eggert2017-04-16 23:36:26 -0700
committerPaul Eggert2017-04-16 23:37:29 -0700
commit47122295521c63febe9fc64680430812da3a3acf (patch)
tree040a021bdad60fb367c8b9120efa490a88b4f942
parent750721c3943e5837d7d9292d6462a144a49347c7 (diff)
downloademacs-47122295521c63febe9fc64680430812da3a3acf.tar.gz
emacs-47122295521c63febe9fc64680430812da3a3acf.zip
dired ‘M’ should not complain about ‘.’ and ‘..’
* lisp/dired-aux.el (dired-do-redisplay): Allow redisplay of ‘.’ and ‘..’ (Bug#26528).
-rw-r--r--lisp/dired-aux.el8
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."
1266 ;; message much faster than making dired-map-over-marks show progress 1266 ;; message much faster than making dired-map-over-marks show progress
1267 (dired-uncache 1267 (dired-uncache
1268 (if (consp dired-directory) (car dired-directory) dired-directory)) 1268 (if (consp dired-directory) (car dired-directory) dired-directory))
1269 (dired-map-over-marks (let ((fname (dired-get-filename)) 1269 (dired-map-over-marks (let ((fname (dired-get-filename nil t))
1270 ;; Postpone readin hook till we map 1270 ;; Postpone readin hook till we map
1271 ;; over all marked files (Bug#6810). 1271 ;; over all marked files (Bug#6810).
1272 (dired-after-readin-hook nil)) 1272 (dired-after-readin-hook nil))
1273 (message "Redisplaying... %s" fname) 1273 (if (not fname)
1274 (dired-update-file-line fname)) 1274 (error "No file on this line")
1275 (message "Redisplaying... %s" fname)
1276 (dired-update-file-line fname)))
1275 arg) 1277 arg)
1276 (run-hooks 'dired-after-readin-hook) 1278 (run-hooks 'dired-after-readin-hook)
1277 (dired-move-to-filename) 1279 (dired-move-to-filename)