Re: sh-script beg-end of function

[Andreas Röhler]

Just see empty-line-p is my own:

(defcustom empty-line-p-chars "^[ \t\f\r]*$" 
  "empty-line-p-chars"
 :type 'regexp
 :group 'convenience)

(defun empty-line-p (&optional ispec) 
  "Returns t if cursor is at an empty line, nil otherwise."
  (interactive "p")
  (save-excursion
    (beginning-of-line)
    (when ispec
      (message "%s" (looking-at empty-line-p-chars)))
    (looking-at empty-line-p-chars)))