Re: goto-line trouble with narrowing

[Kevin Rodgers <ihs_4664@yahoo.com>]

 > 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