Me estoy poniendoup-list: Scan error: "Unbalanced parentheses" desde esta posición:

(foo "bar|")

Fragmento deup-list Doc:

Este comando asume que el punto no está en una cadena o comentario.

Así que este es el comportamiento esperado. Pero no me importa. Solo quiero subir de una lista. ¿Podría alguien sugerir unaup-list clon que hace lo correcto?

Estoy buscando algo mejor que este código ingenuo:

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