Mercurial > emacs
comparison lisp/ediff.el @ 11057:9081dcfc25ae
(ediff-patch-buffer): Use buffer name in error message.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Sat, 18 Mar 1995 01:12:12 +0000 |
parents | e168f57ece92 |
children | f8238a1ab991 |
comparison
equal
deleted
inserted
replaced
11056:e168f57ece92 | 11057:9081dcfc25ae |
---|---|
2489 | 2489 |
2490 (let* ((file-buffer (get-buffer buffer-name)) | 2490 (let* ((file-buffer (get-buffer buffer-name)) |
2491 (file-name (if file-buffer (buffer-file-name file-buffer)))) | 2491 (file-name (if file-buffer (buffer-file-name file-buffer)))) |
2492 (if (not file-name) | 2492 (if (not file-name) |
2493 (error "Buffer %s doesn't exist or doesn't visit any file. Why patch?" | 2493 (error "Buffer %s doesn't exist or doesn't visit any file. Why patch?" |
2494 file-name)) | 2494 buffer-name)) |
2495 | 2495 |
2496 (ediff-patch-file file-name startup-hooks))) | 2496 (ediff-patch-file file-name startup-hooks))) |
2497 | 2497 |
2498 | 2498 |
2499 (defun ediff-get-patch-buffer (dir) | 2499 (defun ediff-get-patch-buffer (dir) |