From db75135d74e48a19aa91083dc50b15a06a1bcda0 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Thu, 14 Aug 1997 19:23:13 +0000 Subject: [PATCH] * emacs.scm (emacs-load): Something has changed in the reader so that we now should set the port line count to the specified value (linum) instead of (- linum 1). --- ice-9/ChangeLog | 4 ++++ ice-9/emacs.scm | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog index c4e6daaed..42a9cac00 100644 --- a/ice-9/ChangeLog +++ b/ice-9/ChangeLog @@ -1,5 +1,9 @@ Thu Aug 14 19:55:37 1997 Mikael Djurfeldt + * emacs.scm (emacs-load): Something has changed in the reader so + that we now should set the port line count to the specified value + (linum) instead of (- linum 1). + * slib.scm (slib:load): Use load-from-path instead of primitive-load-path so that backtraces get narrowed properly at the top. diff --git a/ice-9/emacs.scm b/ice-9/emacs.scm index 77c62241a..ba616665e 100644 --- a/ice-9/emacs.scm +++ b/ice-9/emacs.scm @@ -125,7 +125,7 @@ (define (emacs-load filename linum) (set-port-filename! %%load-port filename) - (set-port-line! %%load-port (- linum 1)) + (set-port-line! %%load-port linum) (set-port-column! %%load-port 0) (lazy-catch #t (lambda ()