1

コンパイルが終了したらコンパイル バッファを削除したい。

以下は私のinit-compile.elです

(require 'compile)

(defun notify-compilation-result(buffer msg)
  (if (string-match "Compilation finished" msg)
      (progn (delete-windows-on buffer)))
  (setq current-frame (car (car (cdr (current-frame-configuration)))))
  (select-frame-set-input-focus current-frame))

(add-to-list 'compilation-finish-functions 
             'notify-compilation-result)

(provide 'init-compile)

プレーン文字列を一致させる方法は?

4

1 に答える 1

0

これは役に立ちますか？

(cl-search "compilation finished" "whatever compilation finished whatever")
9
(cl-search "compilation finished" "compilation did not finish")
nil
于 2013-07-17T04:41:29.847 に答える