Mercurial > emacs
comparison lisp/files.el @ 49741:d886db23ad3a
(find-alternate-file): Check whether `dired-directory' is bound.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Wed, 12 Feb 2003 09:25:22 +0000 |
| parents | 57fdeb6dcb72 |
| children | fe39d5f94bfd |
comparison
equal
deleted
inserted
replaced
| 49740:b1415b1712d3 | 49741:d886db23ad3a |
|---|---|
| 938 (unless (yes-or-no-p "Kill and replace the buffer without saving it? ") | 938 (unless (yes-or-no-p "Kill and replace the buffer without saving it? ") |
| 939 (error "Aborted")))) | 939 (error "Aborted")))) |
| 940 (let ((obuf (current-buffer)) | 940 (let ((obuf (current-buffer)) |
| 941 (ofile buffer-file-name) | 941 (ofile buffer-file-name) |
| 942 (onum buffer-file-number) | 942 (onum buffer-file-number) |
| 943 (odir dired-directory) | 943 (odir (bound-and-true-p dired-directory)) |
| 944 (otrue buffer-file-truename) | 944 (otrue buffer-file-truename) |
| 945 (oname (buffer-name))) | 945 (oname (buffer-name))) |
| 946 (if (get-buffer " **lose**") | 946 (if (get-buffer " **lose**") |
| 947 (kill-buffer " **lose**")) | 947 (kill-buffer " **lose**")) |
| 948 (rename-buffer " **lose**") | 948 (rename-buffer " **lose**") |