From 7376fb486647c10684d0c89a57701829e1701473 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 9 Feb 1990 00:57:43 +0000 Subject: [PATCH] Run scheme-mode-hook before scheme-interaction-mode-hook. --- etc/xscheme.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/etc/xscheme.el b/etc/xscheme.el index 3ea2b6437..0f0a95e77 100644 --- a/etc/xscheme.el +++ b/etc/xscheme.el @@ -21,7 +21,7 @@ ;;; Requires C-Scheme release 5 or later ;;; Changes to Control-G handler require runtime version 13.85 or later -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/etc/xscheme.el,v 1.23 1989/04/28 22:59:40 cph Rel $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/etc/xscheme.el,v 1.24 1990/02/09 00:57:43 cph Exp $ (require 'scheme) @@ -177,13 +177,15 @@ Blank lines separate paragraphs. Semicolons start comments. \\{scheme-interaction-mode-map} Entry to this mode calls the value of scheme-interaction-mode-hook -with no args, if that value is non-nil." +with no args, if that value is non-nil. + Likewise with the value of scheme-mode-hook. + scheme-interaction-mode-hook is called after scheme-mode-hook." (interactive) (kill-all-local-variables) (scheme-interaction-mode-initialize) (scheme-mode-variables) (make-local-variable 'xscheme-previous-send) - (run-hooks 'scheme-interaction-mode-hook)) + (run-hooks 'scheme-mode-hook 'scheme-interaction-mode-hook)) (defun scheme-interaction-mode-initialize () (use-local-map scheme-interaction-mode-map) -- 2.25.1