Otrzymujęup-list: Scan error: "Unbalanced parentheses" z tej pozycji:

(foo "bar|")

Fragment zup-list doc:

To polecenie zakłada, że ​​punkt nie jest łańcuchem lub komentarzem.

To jest oczekiwane zachowanie. Ale mnie to nie obchodzi. Chcę tylko iść w górę z listy. Czy ktoś mógłby zasugerowaćup-list klon, który robi właściwą rzecz?

Szukam czegoś lepszego niż ten naiwny kod:

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