我想模仿大多数控制台在缓冲区中的工作方式,有没有办法做到这一点? IE。只允许将文本附加到缓冲区,但不允许删除?
也许我可以禁用或建议一些删除字符的内置函数,但恐怕这不是一个非常可扩展的解决方案......我可能会错过一些。
最佳答案
如前所述,您可以设置只读文本属性。或者更简单地说,您可以设置 buffer-read-only
变量,然后编写一些覆盖它的命令。例如(保证 100% 未经测试的代码):
(defun append-only-s-i-c ()
(let ((inhibit-read-only (eobp)))
(call-interactively 'self-insert-command)))
(defvar append-only-mode-map
(let ((map (make-sparse-keymap)))
(define-key map [remap self-insert-command] 'append-only-s-i-c)
map))
(define-derived-mode append-only-mode nil "Append-Only"
"Here's the doc."
(set (make-local-variable 'buffer-read-only) t))
如本示例所示,文本的只读性可以被命令覆盖,因此即使
read-only
文本属性也不能保证 100% 文本永远不会被修改,但很少有命令会覆盖 read-只是信息,所以在实践中应该不是一个严重的问题。另一种方法是使用
before-change-functions
并从那里发出错误信号,如果修改发生在 EOB 之前。可能是更好的方法:(defun append-only-b-c-f (beg end)
(if (< beg (point-max)) (error "Can't modify text: append-only!")))
(define-derived-mode append-only-mode nil "Append-Only"
"Here's the doc."
(add-hook 'before-change-functions #'append-only-b-c-f nil 'local))
关于emacs - 只写缓冲区?,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/13385454/