Я получаюup-list: Scan error: "Unbalanced parentheses" с этой позиции:

(foo "bar|")

Фрагмент изup-list документ:

Эта команда предполагает, что точка не находится в строке или комментарии.

Так что это ожидаемое поведение. Но мне все равно. Я просто хочу пойти вверх из списка. Может ли кто-то предложитьup-list клон, который делает правильную вещь?

Я ищу что-то лучше, чем этот наивный код:

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