diff options
| author | Eli Zaretskii | 1997-02-19 15:48:50 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 1997-02-19 15:48:50 +0000 |
| commit | 167d14181ce4d1f1cca6cb6d0e7b26f80ab7de65 (patch) | |
| tree | de767a2d2ace753e88bde2de55477cf33022779e | |
| parent | 9d497c0123892d4756963be81fa29c04073ab94c (diff) | |
| download | emacs-167d14181ce4d1f1cca6cb6d0e7b26f80ab7de65.tar.gz emacs-167d14181ce4d1f1cca6cb6d0e7b26f80ab7de65.zip | |
(compile-mouse-goto-error): Move to end of line
before calling `compile-reinitialize-errors', so that it always
sees the entire filename.
| -rw-r--r-- | lisp/progmodes/compile.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index a95d260daa6..77608903b22 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el | |||
| @@ -897,6 +897,11 @@ Does NOT find the source line like \\[next-error]." | |||
| 897 | (or (compilation-buffer-p (current-buffer)) | 897 | (or (compilation-buffer-p (current-buffer)) |
| 898 | (error "Not in a compilation buffer.")) | 898 | (error "Not in a compilation buffer.")) |
| 899 | (setq compilation-last-buffer (current-buffer)) | 899 | (setq compilation-last-buffer (current-buffer)) |
| 900 | ;; `compile-reinitialize-errors' needs to see the complete filename | ||
| 901 | ;; on the line where they clicked the mouse. Since it only looks | ||
| 902 | ;; upto point, moving point to eol makes sure the filename is | ||
| 903 | ;; visible to `compile-reinitialize-errors'. | ||
| 904 | (end-of-line) | ||
| 900 | (compile-reinitialize-errors nil (point)) | 905 | (compile-reinitialize-errors nil (point)) |
| 901 | 906 | ||
| 902 | ;; Move to bol; the marker for the error on this line will point there. | 907 | ;; Move to bol; the marker for the error on this line will point there. |