diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1997-08-14 19:23:13 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1997-08-14 19:23:13 +0000 |
commit | db75135d74e48a19aa91083dc50b15a06a1bcda0 (patch) | |
tree | d4667a73c2bf62943c73f29b0ff737c9e526495d | |
parent | 096d5f90c3f227966e68d8b6a2d87d36b6a01028 (diff) | |
download | guile-db75135d74e48a19aa91083dc50b15a06a1bcda0.tar.gz |
* 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).
-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 () |