创建一个设置制表符空间的次要模式

Question

我希望有一个次要模式，启用后，将标签空间从4更改为2（当禁用时将标签空间返回到4）。我之前没有写过模式，所以我不知道该怎么做。

Answer 1

无需创建次要模式。 tab-width 已经是缓冲区局部变量：

(defvar my-tab-toggle-values '(2 4))

(defun my-toggle-tab-width ()
  (interactive)
  (setq tab-width 
    (if  (= tab-width (first my-tab-toggle-values))
        (second my-tab-toggle-values)
      (first my-tab-toggle-values))))