如何獲得'下一個錯誤'將導致錯誤的行復制到kill-ring中？

Question

我試圖運行

(list (next-error) 
     (kill-ring-save (line-beginning-position) (line-end-position))) 

後的Mx編譯

但它使當前行到殺戒，不要在那裏被發現的錯誤的行...

如果是這樣在繼續下一個命令之前，如何讓emacs等待(next-error)完成？

Answer 1

這個建議將複製由錯誤指定到殺環行的點點：

(defadvice compilation-goto-locus (after next-error-copy-offending-line activate) 
    (kill-ring-save (line-beginning-position) (line-end-position))) 

如果你決定要搶錯誤信息，您可以使用此：

(progn 
    (next-error) 
    (with-current-buffer next-error-last-buffer 
    (kill-ring-save (line-beginning-position) (line-end-position))))