mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 23:00:22 +02:00
Code Activity

* emacs.scm (emacs-eval-request):

Browse source 
(emacs-symdoc): (This procedure needs updating!)
This commit is contained in:
Mikael Djurfeldt 2000-08-11 08:45:45 +00:00
parent d7faeb2ee9
commit a71aca7af9
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
ice-9/emacs.scm
View file

@ -1,4 +1,4 @@
;;;; Copyright (C) 1996, 1997, 1998, 1999 Free Software Foundation, Inc. ;;;; Copyright (C) 1996, 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This program is free software; you can redistribute it and/or modify ;;;; This program is free software; you can redistribute it and/or modify
;;;; it under the terms of the GNU General Public License as published by ;;;; it under the terms of the GNU General Public License as published by
@ -170,7 +170,7 @@
(apply throw key args)))))) (apply throw key args))))))
(define (emacs-eval-request form) (define (emacs-eval-request form)
(result-to-emacs (eval form))) (result-to-emacs (eval form (interaction-environment))))
;;*fixme* Not necessary to use flags no-stack and no-source ;;*fixme* Not necessary to use flags no-stack and no-source
(define (get-frame-source frame) (define (get-frame-source frame)
@ -248,9 +248,9 @@
(define (emacs-symdoc symbol) (define (emacs-symdoc symbol)
(if (or (not (module-bound? (current-module) symbol)) (if (or (not (module-bound? (current-module) symbol))
(not (procedure? (eval symbol)))) (not (procedure? (eval symbol) (interaction-environment))))
'nil 'nil
(procedure-documentation (eval symbol)))) (procedure-documentation (eval symbol (interaction-environment)))))
;;; A fix to get the emacs interface to work together with the module system. ;;; A fix to get the emacs interface to work together with the module system.
;;; ;;;