在Emacs shell中的铃声

Question

在M-x shell中，当打印铃声字符时（例如在echo -e '\a'中），它不会产生任何噪音并打印出^G。是否有可能像普通终端那样实际响铃？

Answer 1

当通过评估此代码将control-G字符发送到shell时，我能够让铃声响起：

(defun beep-on-alert-char (str)
  (if (string-match-p "\x7" str) (beep)))

(add-hook 'comint-output-filter-functions 'beep-on-alert-char)