diff options
| author | Jim Blandy | 1993-06-22 03:54:25 +0000 |
|---|---|---|
| committer | Jim Blandy | 1993-06-22 03:54:25 +0000 |
| commit | aead2f9fa6f8750e414b2dcfab066ee926a5ecc8 (patch) | |
| tree | d088cffe98686f408a7be6d4818146a0f1f86961 | |
| parent | 929cc9de2d35f53d69b1d2cc530684da83b328f3 (diff) | |
| download | emacs-aead2f9fa6f8750e414b2dcfab066ee926a5ecc8.tar.gz emacs-aead2f9fa6f8750e414b2dcfab066ee926a5ecc8.zip | |
* compile.el (compile-file-of-error): Remember that
compilation-error-list stores file names as strings, not as (DIR .
FILE) pairs.
| -rw-r--r-- | lisp/progmodes/compile.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 12b866ce3d8..7bb2c95ff90 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el | |||
| @@ -507,8 +507,7 @@ Does NOT find the source line like \\[next-error]." | |||
| 507 | (setq data (cdr data)) | 507 | (setq data (cdr data)) |
| 508 | (if (markerp data) | 508 | (if (markerp data) |
| 509 | (buffer-file-name (marker-buffer data)) | 509 | (buffer-file-name (marker-buffer data)) |
| 510 | (setq data (car data)) | 510 | (car data))) |
| 511 | (expand-file-name (cdr data) (car data)))) | ||
| 512 | 511 | ||
| 513 | (defun compilation-next-file (n) | 512 | (defun compilation-next-file (n) |
| 514 | "Move point to the next error for a different file than the current one." | 513 | "Move point to the next error for a different file than the current one." |