как установить критерий длины строки уничтожения для хранения в списке уничтожений

Question

Есть ли способ заставить emacs игнорировать kill длиной менее 4 символов? Весьма раздражает, что в режиме зла много убийств одного персонажа. Спасибо!

Answer 1

Механизм фильтра уже в 24.4. Благодаря глюкам. https://emacs.stackexchange.com/questions/8097/how-do-i-filter-kill-ring-contents

(defvar kill-ring-entry-length 3)
(defun my/replace-blank-kill (args)
  (let ((string (car args))
        (replace (cdr args))
        (last (car-safe kill-ring)))
    (when (or (and last (string-blank-p last))
           (< (length last) kill-ring-entry-length))
      (setq replace t))
    (list string replace)))

(advice-add 'kill-new :filter-args #'my/replace-blank-kill)