emacs संकलित बफर ऑटो बंद?

Question

जब कोई त्रुटि नहीं है और कोई चेतावनी नहीं है, तो मैं संकलन बफर को बंद करना चाहता हूं, लेकिन चेतावनी होने पर मैं इसे दिखाना चाहता हूं। कोई मुझे मदद कर सकता है? emacswiki से यह कोड केवल पहली आवश्यकता है। इसे कैसे बदलें?

;; Helper for compilation. Close the compilation window if 
    ;; there was no error at all. 
    (defun compilation-exit-autoclose (status code msg) 
    ;; If M-x compile exists with a 0 
    (when (and (eq status 'exit) (zerop code)) 
     ;; then bury the *compilation* buffer, so that C-x b doesn't go there 
     (bury-buffer) 
     ;; and delete the *compilation* window 
     (delete-window (get-buffer-window (get-buffer "*compilation*")))) 
    ;; Always return the anticipated result of compilation-exit-message-function 
    (cons msg code)) 
    ;; Specify my function (maybe I should have done a lambda function) 
    (setq compilation-exit-message-function 'compilation-exit-autoclose) 

Answer 1

मैं संकलन के लिए निम्नलिखित का उपयोग करता हूं। चेतावनियां या त्रुटियां होने पर यह संकलन बफर रखता है, और इसे अन्यथा (1 सेकंड के बाद) देता है।

(defun bury-compile-buffer-if-successful (buffer string) 
"Bury a compilation buffer if succeeded without warnings " 
(when (and 
     (buffer-live-p buffer) 
     (string-match "compilation" (buffer-name buffer)) 
     (string-match "finished" string) 
     (not 
      (with-current-buffer buffer 
      (goto-char (point-min)) 
      (search-forward "warning" nil t)))) 
    (run-with-timer 1 nil 
        (lambda (buf) 
         (bury-buffer buf) 
         (switch-to-prev-buffer (get-buffer-window buf) 'kill)) 
        buffer))) 
(add-hook 'compilation-finish-functions 'bury-compile-buffer-if-successful) 

Answer 2

jpkotta, यह ज्यादातर बार काम करता है। कभी-कभी, यहां तक ​​कि अगर कोई चेतावनी है, तो यह संकलन बफर पर स्विच नहीं करता है। इसलिए मैंने आपके फॉर्म में बदलाव किया & यह अब काम करता है:

(defun bury-compile-buffer-if-successful (buffer string) 
    "Bury a compilation buffer if succeeded without warnings " 
    (if (and 
     (string-match "compilation" (buffer-name buffer)) 
     (string-match "finished" string) 
     (not 
     (with-current-buffer buffer 
      **(goto-char 1)** 
      (search-forward "warning" nil t)))) 
     (run-with-timer 1 nil 
         (lambda (buf) 
         (bury-buffer buf) 
         (switch-to-prev-buffer (get-buffer-window buf) 'kill)) 
         buffer))) 
(add-hook 'compilation-finish-functions 'bury-compile-buffer-if-successful)