How to test if the current line contains only white-spache?

[Rolf Ade]

For some random minor elisp code I need to know, if the current line
contains only white-space characters[1].

I came up with this somewhat convoluted code:

(beginning-of-line)
(skip-chars-forward " \t")
(let ((text-start (current-column)))
  (end-of-line)
  (if (= text-start (current-column))
      t
    nil)

(and that is, obviously, without saving point position and wrapping
into and a defun and maybe other bells and whistles).

I wonder, what much simpler and more elegant solution I'm missing.

rolf


[1] "White-space characters" in this sense atm defines to just " " and
"\t". Lets accept that for the context of the question, I know there are
other definitions of white-space characters.