Emacs:防弹列表？

Question

我从这个位置得到 up-list: Scan error: "Unbalanced parentheses":

(foo "bar|")

来自 up-list 文档的片段:

This command assumes point is not in a string or comment.

所以这是预期的行为。但我不在乎。我只想从列表中向上移动。有人可以推荐一个做正确事情的 up-list 克隆吗？

我正在寻找比这个天真的代码更好的东西:

(defun up-list-naive ()
  (interactive)
  (while (not (ignore-errors (up-list) t))
    (forward-char)))

Answer 1

编辑:合并了 Andreas Rohler 的建议:

这在你的测试用例中对我有用:

(defun my-up-list ()
  (interactive)
  (let ((s (syntax-ppss)))
    (when (nth 3 s)
      (goto-char (nth 8 s))))
  (ignore-errors (up-list)))

syntax-ppss 返回一个列表，如果你在一个字符串中，则第三个元素存在，而第 8 个元素是字符串的开头(如果你在一个字符串中，否则无)。