Source

ilisp / ilisp-dia.el

Diff from to

ilisp-dia.el

 ;;; -*- Mode: Emacs-Lisp -*-
 
 ;;; ilisp-dia.el --
-
+;;; ILISP Dialect definition code.
+;;;
 ;;; This file is part of ILISP.
-;;; Version: 5.10.1
+;;; Please refer to the file COPYING for copyrights and licensing
+;;; information.
+;;; Please refer to the file ACKNOWLEGDEMENTS for an (incomplete) list
+;;; of present and past contributors.
 ;;;
-;;; Copyright (C) 1990, 1991, 1992, 1993 Chris McConnell
-;;;               1993, 1994 Ivan Vasquez
-;;;               1994, 1995, 1996 Marco Antoniotti and Rick Busdiecker
-;;;               1996-2000 Marco Antoniotti and Rick Campbell
-;;;
-;;; Other authors' names for which this Copyright notice also holds
-;;; may appear later in this file.
-;;;
-;;; Send mail to 'majordomo@cons.org' to be included in the
-;;; ILISP mailing list. 'ilisp@cons.org' is the general ILISP
-;;; mailing list were bugs and improvements are discussed.
-;;;
-;;; ILISP is freely redistributable under the terms found in the file
-;;; COPYING.
+;;; $Id$
 
 
 ;;;%%CUSTOMIZING DIALECTS
 ;;; inferior LISP is started.
 ;;;
 ;;; These are the currently supported dialects.  The dialects
-;;; are listed so that the indentation corresponds to the hierarchical
+;;; are listed so that the indentation correponds to the hierarchical
 ;;; relationship between dialects.
 ;;; common-lisp
 ;;;   allegro
 ;;;   lispworks (Harlequin)
 ;;;   lucid
 ;;;   cmulisp
-;;;   sblisp    (really a derivative of CMUCL)
+;;;   sbcl    (really a derivative of CMUCL)
 ;;;   kcl
 ;;;     akcl
 ;;;     ibcl
   (kill-all-local-variables)
   (lisp-mode)
   (setq ilisp-buffer (format "*%s*" buffer))
+  (when ilisp-*enable-ilisp-special-frame-p*
+    (push ilisp-buffer special-display-buffer-names))
   (set-buffer (get-buffer-create ilisp-buffer))
   (setq major-mode 'ilisp-mode
 	mode-name "ILISP")
 	comint-abort-hook 'ilisp-abort-handler)
 
   (setq ilisp-use-map ilisp-mode-map
-	ilisp-init-hook '((lambda () (ilisp-init nil nil t)))
+	ilisp-init-hook-local '((lambda ()
+                                  (ilisp-init nil nil t)
+                                  (run-hooks 'ilisp-init-hook)))
 	ilisp-filter-regexp "\\`\\s *\\(:\\(\\w\\|\\s_\\)*\\)?\\s *\\'"
 	ilisp-filter-length 3
 	ilisp-error-filter 'ilisp-error-filter