Re: goto-line trouble with narrowing

[Kevin Rodgers]

> goto-line already takes a prefix arg to mean a different buffer,
> which is useful in the resulting *Shell Command Output* buffer, so I
> guess I need to roll my own goto-line-in-narrowed-buffer command that
> just omits the call to (widen).  :-(

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))))

Thanks,
--
Kevin Rodgers