3

我希望我的 tab 键执行以下操作：

  • 如果我在迷你缓冲区中，请使用单词完成。
  • 否则，如果选择了一个区域，则缩进它。
  • 否则，在该点缩进该行（使用制表符到制表位）。

这是代码，其中一些是基于我在 Internet 上其他地方找到的片段：

(defun my-tab ()
  "If region is selected, indent it and keep it selected, else indent current line."
  (interactive)
       (if (use-region-p)
           (increase-left-margin (region-beginning) (region-end) nil)
           (tab-to-tab-stop))
        (setq deactivate-mark nil))
(defun my-untab ()
  "If region is selected, unindent it and keep it selected, else unindent current line."
  (interactive)
       (if (use-region-p)
           (decrease-left-margin (region-beginning) (region-end) nil)
         (indent-rigidly (line-beginning-position) (line-end-position) (- tab-width)))
        (setq deactivate-mark nil))
;; AJF: wrote this one myself
(defun ajf-tab-fun ()
   (if (minibufferp)
     (minibuffer-complete)
     (my-tab)))

(global-set-key (kbd "TAB") 'ajf-tab-fun)

问题是当我按下 tab 键时，我得到一个错误：

Wrong type argument: commandp, ajf-tab-fun

我将 debug-on-error 设置为 t 以便进行调试。这是输出：

Debugger entered--Lisp error: (wrong-type-argument commandp ajf-tab-fun)
  call-interactively(ajf-tab-fun nil nil)

我应该怎么做？

4

2 回答 2

3 
(defun ajf-tab-fun ()
  (interactive)     ; add interactive to let emacs know to call it interactively
   (if (minibufferp)
     (minibuffer-complete)
     (my-tab)))

你只是忘记了(interactive)

于 2012-10-25T22:40:58.893 回答
0

实际上，您描述的行为几乎已经是默认行为，除了“缩进”，其中默认是“根据主要模式缩进规则缩进”而不是“将文本向右（或向左）移动固定数量” .

于 2012-10-26T02:11:09.957 回答