[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: goto-line trouble with narrowing
From: |
Johan Bockgård |
Subject: |
Re: goto-line trouble with narrowing |
Date: |
Mon, 30 Jan 2006 20:57:30 +0100 |
User-agent: |
Gnus/5.110004 (No Gnus v0.4) Emacs/22.0.50 (gnu/linux) |
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