Mercurial > emacs
comparison lisp/dired.el @ 93777:093881510254
Tweak last change to silence compiler warning.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sun, 06 Apr 2008 20:34:11 +0000 |
| parents | 7b39fa7db791 |
| children | e771e6c269d3 |
comparison
equal
deleted
inserted
replaced
| 93776:7b39fa7db791 | 93777:093881510254 |
|---|---|
| 3297 (y-or-n-p (format "Overwrite existing file `%s'? " to))) | 3297 (y-or-n-p (format "Overwrite existing file `%s'? " to))) |
| 3298 ;; We avoid dired-handle-overwrite and use | 3298 ;; We avoid dired-handle-overwrite and use |
| 3299 ;; y-or-n-p, which pops a graphical menu. | 3299 ;; y-or-n-p, which pops a graphical menu. |
| 3300 dired-overwrite-confirmed backup-file) | 3300 dired-overwrite-confirmed backup-file) |
| 3301 (when (and overwrite | 3301 (when (and overwrite |
| 3302 ;; silence compiler | |
| 3303 (boundp 'dired-backup-overwrite) | |
| 3302 dired-backup-overwrite | 3304 dired-backup-overwrite |
| 3303 (setq backup-file | 3305 (setq backup-file |
| 3304 (car (find-backup-file-name to))) | 3306 (car (find-backup-file-name to))) |
| 3305 (or (eq dired-backup-overwrite 'always) | 3307 (or (eq dired-backup-overwrite 'always) |
| 3306 (y-or-n-p | 3308 (y-or-n-p |