Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-folder.el @ 40:7e54bd776075 r19-15b103

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b103
author cvs
date Mon, 13 Aug 2007 08:54:25 +0200
parents c53a95d3c46d
children 8b8b7f3559a2
comparison
equal deleted inserted replaced
39:06f275776fba 40:7e54bd776075
2412 (y-or-n-p (format "%s is empty, remove it? " 2412 (y-or-n-p (format "%s is empty, remove it? "
2413 (or buffer-file-name (buffer-name))))) 2413 (or buffer-file-name (buffer-name)))))
2414 (condition-case () 2414 (condition-case ()
2415 (progn 2415 (progn
2416 (delete-file buffer-file-name) 2416 (delete-file buffer-file-name)
2417 (clear-visited-file-modtime)
2417 (message "%s removed" buffer-file-name)) 2418 (message "%s removed" buffer-file-name))
2418 ;; no can do, oh well. 2419 ;; no can do, oh well.
2419 (error nil))) 2420 (error nil)))
2420 (vm-update-summary-and-mode-line)) 2421 (vm-update-summary-and-mode-line))
2421 (message "No changes need to be saved")))) 2422 (message "No changes need to be saved"))))