Mercurial > emacs
comparison lisp/progmodes/compile.el @ 54857:3064d74c4fe1
Paren typo.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 13 Apr 2004 23:16:57 +0000 |
| parents | 6a45f159f315 |
| children | a50d004dc072 |
comparison
equal
deleted
inserted
replaced
| 54856:6a45f159f315 | 54857:3064d74c4fe1 |
|---|---|
| 1369 (error "Not in a compilation buffer")) | 1369 (error "Not in a compilation buffer")) |
| 1370 (if (get-text-property (point) 'directory) | 1370 (if (get-text-property (point) 'directory) |
| 1371 (dired-other-window (car (get-text-property (point) 'directory))) | 1371 (dired-other-window (car (get-text-property (point) 'directory))) |
| 1372 (push-mark) | 1372 (push-mark) |
| 1373 (setq compilation-current-error (point)) | 1373 (setq compilation-current-error (point)) |
| 1374 (next-error 0))))) | 1374 (next-error 0))) |
| 1375 | 1375 |
| 1376 ;; Return a compilation buffer. | 1376 ;; Return a compilation buffer. |
| 1377 ;; If the current buffer is a compilation buffer, return it. | 1377 ;; If the current buffer is a compilation buffer, return it. |
| 1378 ;; If compilation-last-buffer is set to a live buffer, use that. | 1378 ;; If compilation-last-buffer is set to a live buffer, use that. |
| 1379 ;; Otherwise, look for a compilation buffer and signal an error | 1379 ;; Otherwise, look for a compilation buffer and signal an error |