emacs - 从交互式函数内部调用 kill-rectangle

Question

我正在尝试编写一个函数:

1. 如果没有选择区域，则终止当前行。
2. 如果选择了一个区域，则删除点和标记之间的矩形。

(2) 我的意思是如果你运行 M-x kill-rectangle 会发生同样的事情。

这是我对该功能的尝试:

(defun cut-line-or-rectangle ()
  "Cut rectangle if selection exists, cut line otherwise"
  (interactive)
  (if mark-active
      (kill-rectangle (point) (mark))
    (kill-whole-line)
  )
)

这满足 (1) 但如果区域处于事件状态则不执行任何操作。在这种情况下，如何让 emacs 服从 kill-rectangle 功能？

Answer 1

kill-rectangle 按start 和end 顺序执行，因此您的代码仅在指向

做这种事情的典型方法是给你的函数 start 和 end 参数，然后使用 (interactive "r").