Re: empty-line-p

[Joost Kremers]

Andreas Roehler wrote:
> needed a check at several occassions, if the current line
> contains printable characters.
>
> What about the following to solve this?
>
> (defun empty-line-p ()
>   "Returns t if cursor is at an empty line "
>   (interactive)
>   (save-excursion
>     (beginning-of-line)
>   (if
>       (looking-at "^[ \t\f\r]*$")
>       t
>     nil)))

you don't need the if-statement here:

(defun empty-line-p ()
  "Returns t if cursor is at an empty line "
  (interactive)
  (save-excursion
    (beginning-of-line)
    (looking-at "^[ \t\f\r]*$")))

looking-at already returns t or nil.

-- 
Joost Kremers                                      joostkremers@yahoo.com
Selbst in die Unterwelt dringt durch Spalten Licht
EN:SiS(9)