EMACS和TAB键（缩进vs \\ t插入）

Question

假设我有一个<weird language>文件，我正在编辑它。

如果光标位于句子的开头（假设一个if ，已经缩进了2个级别），并且我按了TAB ，那么我希望EMACS可以增加该行的缩进级别+1（使用TAB或N SPACEs ，具体取决于文件中使用的缩进样式）。

无论如何，如果我按下TAB并且光标位于if之后， if我希望EMACS插入一个普通\\t 。

如何使EMACS表现得像这样？

问候

Answer 1

将当前缩进作为开始。 该条件可能需要修改。 另请参阅第三条款。

(defun my-indent-or-insert-tab ()
  "Insert a TAB or indent depending on context. "
  (interactive "*")
  (cond((eq (current-column) (current-indentation)) 
        (indent-for-tab-command))
       ((member (char-after) (list ?\t ? ?\n))
        (insert "\t"))
       (t (message "%s" "Don't know what to do if inside word"))))