2

我的 .emacs.d 中有以下 defun：

;;; http://emacswiki.org/emacs/ParenthesisMatching
(defun goto-match-paren (arg)
  "Go to the matching  if on (){}[], similar to vi style of % "
  (interactive "p")
  ;; first, check for "outside of bracket" positions expected by forward-sexp, etc.
  (cond ((looking-at "[\[\(\{]") (forward-sexp))
        ((looking-back "[\]\)\}]" 1) (backward-sexp))
        ;; now, try to succeed from inside of a bracket
        ((looking-at "[\]\)\}]") (forward-char) (backward-sexp))
        ((looking-back "[\[\(\{]" 1) (backward-char) (forward-sexp))
        (t nil)))

(defun select-in-parens ()
  (interactive)
  (goto-match-paren 1)
  (set-mark (point)))

我最初只有第一个功能。然后我添加了第二个，我打算选择整个 s 表达式。现在，我将其中一个绑定到 M-[，另一个绑定到 M-]。当我去一个paren并按下“goto”键时，它会做我想要的 - 跳到另一个。如果我在那之后点击“选择”键......它会做同样的事情，而不标记区域，然后反复点击它会在括号之间跳转。但是，如果我在那之后执行“goto”，它确实会标记该区域，并且反复击中它会跳回并取消标记它。

所以基本上我有我想要的功能......但是颠倒了，我不知道为什么。有人可以解释这里发生了什么，并可能提供解决方案吗？

4

1 回答 1

2

也许在移动点之前设置标记？

(defun select-in-parens ()
  (interactive)
  (set-mark (point))
  (goto-match-paren 1))
于 2012-06-24T01:50:54.263 回答