procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Don't kill ~/ if it's the top level directory

Browse source 
* lisp/dired-aux.el (dired-kill-subdir): Don't kill ~/ if it's
the top level directory (bug#23017).
This commit is contained in:
Tino Calancha 2016-04-24 17:05:33 +02:00 • committed by Lars Magne Ingebrigtsen
parent 4f40f5f63a
commit 0cd2e923db
1 changed files with 2 additions and 2 deletions

4
lisp/dired-aux.el
View file

@ -2486,8 +2486,8 @@ Lower levels are unaffected."
(cur-dir (dired-current-directory))
(cons (assoc-string cur-dir dired-switches-alist))
buffer-read-only)
(if (equal cur-dir default-directory)
(error "Attempt to kill top level directory"))
(when (equal cur-dir (expand-file-name default-directory))
(error "Attempt to kill top level directory"))
(prog1
(if remember-marks (dired-remember-marks beg end))
(delete-region beg end)