Mercurial > emacs
comparison lisp/speedbar.el @ 108851:cb093dac3d58
Merge from mainline.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Fri, 28 May 2010 00:48:45 +0000 |
| parents | 511da81b16c5 |
| children | 029e4783cbae |
comparison
equal
deleted
inserted
replaced
| 108850:7cd8ffa6f7db | 108851:cb093dac3d58 |
|---|---|
| 1642 (let ((f (speedbar-line-file))) | 1642 (let ((f (speedbar-line-file))) |
| 1643 (if (not f) (error "Not a file")) | 1643 (if (not f) (error "Not a file")) |
| 1644 (if (speedbar-y-or-n-p (format "Delete %s? " f) t) | 1644 (if (speedbar-y-or-n-p (format "Delete %s? " f) t) |
| 1645 (progn | 1645 (progn |
| 1646 (if (file-directory-p f) | 1646 (if (file-directory-p f) |
| 1647 (delete-directory f) | 1647 (delete-directory f t t) |
| 1648 (delete-file f)) | 1648 (delete-file f t)) |
| 1649 (speedbar-message "Okie dokie.") | 1649 (speedbar-message "Okie dokie.") |
| 1650 (let ((p (point))) | 1650 (let ((p (point))) |
| 1651 (speedbar-refresh) | 1651 (speedbar-refresh) |
| 1652 (goto-char p)) | 1652 (goto-char p)) |
| 1653 )) | 1653 )) |