Re: goto-line trouble with narrowing

[Kevin Rodgers]

Johan Bockgård wrote:
> 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]

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