|
From: | Kevin Rodgers |
Subject: | Re: goto-line trouble with narrowing |
Date: | Tue, 31 Jan 2006 12:53:41 -0700 |
User-agent: | Mozilla Thunderbird 0.9 (X11/20041105) |
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
[Prev in Thread] | Current Thread | [Next in Thread] |