我越来越up-list: Scan error: "Unbalanced parentheses"从这个位置：
(foo "bar|")
片段来自up-list doc:
此命令假设点不在字符串或注释中。
所以这是预期的行为。
但我不在乎。我只想从列表中向上移动。
有人可以建议一个up-list克隆可以做正确的事情吗？
我正在寻找比这个天真的代码更好的东西：
(defun up-list-naive ()
(interactive)
(while (not (ignore-errors (up-list) t))
(forward-char)))
编辑：合并 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 个元素是字符串的开头（如果您在字符串中，则为 nil）。
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
