mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

* emacs.scm (emacs-load): Something has changed in the reader so

Browse source 
that we now should set the port line count to the specified value
(linum) instead of (- linum 1).
This commit is contained in:
Mikael Djurfeldt 1997-08-14 19:23:13 +00:00
parent 096d5f90c3
commit db75135d74
2 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ice-9/ChangeLog
View file

@ -1,5 +1,9 @@
Thu Aug 14 19:55:37 1997 Mikael Djurfeldt <mdj@mdj.nada.kth.se> 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 * slib.scm (slib:load): Use load-from-path instead of
primitive-load-path so that backtraces get narrowed properly at primitive-load-path so that backtraces get narrowed properly at
the top. the top.

2
ice-9/emacs.scm
View file

@ -125,7 +125,7 @@
(define (emacs-load filename linum) (define (emacs-load filename linum)
(set-port-filename! %%load-port filename) (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) (set-port-column! %%load-port 0)
(lazy-catch #t (lazy-catch #t
(lambda () (lambda ()