Mercurial > emacs
comparison lisp/dired.el @ 77984:b4683039515d
(dired-recursive-deletes, dired-recursive-copies): Change default to
`top'.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Thu, 07 Jun 2007 16:51:54 +0000 |
| parents | 26ee6973a6d2 |
| children | 9355f9b7bbff |
comparison
equal
deleted
inserted
replaced
| 77983:dccd6acad93e | 77984:b4683039515d |
|---|---|
| 2356 (point-max) | 2356 (point-max) |
| 2357 (point)))) | 2357 (point)))) |
| 2358 | 2358 |
| 2359 ;; Deleting files | 2359 ;; Deleting files |
| 2360 | 2360 |
| 2361 (defcustom dired-recursive-deletes nil ; Default only delete empty directories. | 2361 (defcustom dired-recursive-deletes 'top |
| 2362 "*Decide whether recursive deletes are allowed. | 2362 "*Decide whether recursive deletes are allowed. |
| 2363 A value of nil means no recursive deletes. | 2363 A value of nil means no recursive deletes. |
| 2364 `always' means delete recursively without asking. This is DANGEROUS! | 2364 `always' means delete recursively without asking. This is DANGEROUS! |
| 2365 `top' means ask for each directory at top level, but delete its subdirectories | 2365 `top' means ask for each directory at top level, but delete its subdirectories |
| 2366 without asking. | 2366 without asking. |
| 3204 (list (car (reverse dired-subdir-alist)))))))) | 3204 (list (car (reverse dired-subdir-alist)))))))) |
| 3205 | 3205 |
| 3206 | 3206 |
| 3207 ;;;; Drag and drop support | 3207 ;;;; Drag and drop support |
| 3208 | 3208 |
| 3209 (defcustom dired-recursive-copies nil | 3209 (defcustom dired-recursive-copies 'top |
| 3210 "*Decide whether recursive copies are allowed. | 3210 "*Decide whether recursive copies are allowed. |
| 3211 A value of nil means no recursive copies. | 3211 A value of nil means no recursive copies. |
| 3212 `always' means copy recursively without asking. | 3212 `always' means copy recursively without asking. |
| 3213 `top' means ask for each directory at top level. | 3213 `top' means ask for each directory at top level. |
| 3214 Anything else means ask for each directory." | 3214 Anything else means ask for each directory." |