如何防止emacs烦人的习惯将当前单词添加到任何命令缓冲区？

(defmacro prevent-add-to-buffer ()
  "Prevent the current word from being added to any command buffer."
  `(let ((inhibit-modification-hooks t))
     (when (and (not (local-variable-p 'major-mode))
               (or (not (boundp 'syntax-after-jump))
                   (syntax-after-jump)))
       (let ((inhibit-modification-hooks t))
         (add-to-list 'command-buffer-alist (cons (point-marker) 'no-local-modification))))))

(progn
  (prevent-add-to-buffer)
  (execute-command-here))

(defmacro add-to-blank-list ()
  "Add the current word to a blank list."
  `(let ((list ()))
     (when (and (not (local-variable-p 'major-mode))
               (or (not (boundp 'syntax-after-jump))
                   (syntax-after-jump)))
       (push (point-marker) list))))

(progn
  (add-to-blank-list)
  (execute-command-here))