Mercurial > emacs
comparison lisp/files.el @ 941:eb8a7ea2798e
*** empty log message ***
| author | Joseph Arceneaux <jla@gnu.org> |
|---|---|
| date | Thu, 06 Aug 1992 02:56:35 +0000 |
| parents | 4c6cdb66c74c |
| children | 9b788095582b |
comparison
equal
deleted
inserted
replaced
| 940:32f59f790757 | 941:eb8a7ea2798e |
|---|---|
| 288 (file-name nil) | 288 (file-name nil) |
| 289 (file-dir nil)) | 289 (file-dir nil)) |
| 290 (and file | 290 (and file |
| 291 (setq file-name (file-name-nondirectory file) | 291 (setq file-name (file-name-nondirectory file) |
| 292 file-dir (file-name-directory file))) | 292 file-dir (file-name-directory file))) |
| 293 (list (read-file-name "Find alternate file: " file-dir nil nil file-name)))) | 293 (list (read-file-name |
| 294 "Find alternate file: " file-dir nil nil file-name)))) | |
| 294 (and (buffer-modified-p) | 295 (and (buffer-modified-p) |
| 295 ;; (not buffer-read-only) | 296 ;; (not buffer-read-only) |
| 296 (not (yes-or-no-p (format "Buffer %s is modified; kill anyway? " | 297 (not (yes-or-no-p (format "Buffer %s is modified; kill anyway? " |
| 297 (buffer-name)))) | 298 (buffer-name)))) |
| 298 (error "Aborted")) | 299 (error "Aborted")) |