diff options
-rw-r--r-- | ice-9/ChangeLog | 4 | ||||
-rw-r--r-- | ice-9/emacs.scm | 2 |
2 files changed, 5 insertions, 1 deletions
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 <mdj@mdj.nada.kth.se> + * 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 () |