emacs - Emacs 字符串匹配“编译完成”但失败

Question

我想在编译完成时删除编译缓冲区。

以下是我的 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)

如何匹配纯字符串？

Answer 1

这会有帮助吗？

(cl-search "compilation finished" "whatever compilation finished whatever")
9
(cl-search "compilation finished" "compilation did not finish")
nil