如何限制Emacs中緩衝區的大小？

Question

有沒有什麼辦法可以限制Emacs緩衝區的大小？已經檢查過這個問題：Can I limit the length of the compilation buffer in Emacs?但它不是我想要的。我想限制用戶正在處理的緩衝區的大小，所以他不能超過預定義的大小。

Answer 1

爲message-mode一個例子（把一個緩衝在此模式類型M-x message-mode）

(define-key message-mode-map [remap self-insert-command] 
    '(lambda() 
    (interactive) 
    (let ((limit-buffer-size 30)) 
     (message "buffer-size is %i of %i" (buffer-size) limit-buffer-size) 
     (if (< (buffer-size) limit-buffer-size) 
     (call-interactively 'self-insert-command) 
    (message "Maximum bufer size is %i characters" limit-buffer-size))))) 

注意，用戶仍然可以yank多個字符。另一種選擇是重新映射save-buffer。

Answer 2

我看不到任何方式直接訪問它，你可以做的是：hook pre-command-hook如果命令是self-insert-command你可以檢查buffer-size是否在你想要的長度以下。或者，您可以掛鉤post-self-insert-hook以檢查命中大小限制，撤消它並打印消息。對於所有這些，您需要編寫一個在您的緩衝區中處於活動狀態的minor-mode。