whitespace – ¿La forma más fácil de comprobar si la línea actual está "vacía" (ignorando los espacios en blanco)?

Pregunta:

Solo quiero verificar si la línea actual está vacía o no (si contiene solo espacios en blanco, todavía la considero vacía).

Aquí está mi versión inicial:

(defun strip-text-properties(txt)
  (set-text-properties 0 (length txt) nil txt)
  txt)

(defun is-current-line-empty ()
  (interactive)
  (setq c-line (thing-at-point 'line))
  (string-match "^\s*$" (strip-text-properties c-line)))

¿Cuál es la forma más sencilla de comprobar si la línea actual está vacía?

Respuesta:

¿Algo como esto sería "más fácil"?

(defun current-line-empty-p ()
  (save-excursion
    (beginning-of-line)
    (looking-at-p "[[:space:]]*$")))