Re: goto-line trouble with narrowing

[Johan Bockgård]

Kevin Rodgers <address@hidden> writes:

> OK, can anyone explain why this doesn't work:
>
> (eval-when-compile
>   (require 'cl-macs))                   ; flet
>
> (defun goto-line-in-narrowed-buffer (&rest args)
>   "Like `goto-line', but count from line 1 of the accessible part of
> the buffer."
>   (interactive)
>   (flet ((widen () t))
>     (if (interactive-p)
>         (let ((prefix-arg  current-prefix-arg))
>           (call-interactively 'goto-line))
>       (apply 'goto-line args))))


(byte-compile (lambda () (widen)))  =>  #[nil "~\207" [] 1]

-- 
Johan Bockgård