Re: Output in Emacs

[Kevin Rodgers]

Barry Margolin wrote:

> (defun apply-function-to-current-line (func)
>   (let ((string
>           (save-excursion
>             (beginning-of-line)
>             (let ((start (point)))
>               (end-of-line)
>               (buffer-substring start (point))))))
>     (funcall func string)))

It's even easier now:


(funcall func (buffer-substring (line-beginning-position) (line-end-position)))

--
Kevin Rodgers