Ich erhalteup-list: Scan error: "Unbalanced parentheses" von dieser Position:

(foo "bar|")

Ausschnitt ausup-list doc:

Dieser Befehl setzt voraus, dass point nicht in einer Zeichenfolge oder einem Kommentar enthalten ist.

Das ist also das erwartete Verhalten. Aber es ist mir egal. Ich möchte nur von einer Liste aufwärts gehen. Könnte jemand eine vorschlagenup-list Klon, der das Richtige tut?

Ich suche etwas besseres als diesen naiven Code:

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