1553 |
(dired-other-window (car (get-text-property (point) 'directory))) |
(dired-other-window (car (get-text-property (point) 'directory))) |
1554 |
(push-mark) |
(push-mark) |
1555 |
(setq compilation-current-error (point)) |
(setq compilation-current-error (point)) |
1556 |
(next-error-internal)))) |
(next-error-internal))) |
1557 |
|
|
1558 |
;; Return a compilation buffer. |
;; Return a compilation buffer. |
1559 |
;; If the current buffer is a compilation buffer, return it. |
;; If the current buffer is a compilation buffer, return it. |