Re: goto-line trouble with narrowing

[Kevin Rodgers <ihs_4664@yahoo.com>]

Johan Bockgård wrote:
> Kevin Rodgers <ihs_4664@yahoo.com> 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]

Thanks Johan, but you'll have to fill me in on a few details
since I can't read Emacs Lisp byte code.  Nor do I understand
why your example is relevant; isn't this what `flet' sets `widen's
symbol binding to:

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

-- 
Kevin Rodgers