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 )) |