/[slime]/slime/slime-autoloads.el
ViewVC logotype

Contents of /slime/slime-autoloads.el

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.5 - (show annotations)
Fri Feb 22 14:24:52 2008 UTC (6 years, 1 month ago) by heller
Branch: MAIN
Changes since 1.4: +1 -4 lines
Fix typos: "contribs" -> "contrib".

* slime-autoloads.el (slime-setup-contribs):
* slime.el (slime-setup):
1 ;;; slime-autoloads.el --- autoload definitions for SLIME
2
3 ;; Copyright (C) 2007 Helmut Eller
4
5 ;; This file is protected by the GNU GPLv2 (or later), as distributed
6 ;; with GNU Emacs.
7
8 ;;; Commentary:
9
10 ;; This code defines the necessary autoloads, so that we don't need to
11 ;; load everything from .emacs.
12
13 ;;; Code:
14
15 (autoload 'slime "slime"
16 "Start a Lisp subprocess and connect to its Swank server." t)
17
18 (autoload 'slime-mode "slime"
19 "SLIME: The Superior Lisp Interaction (Minor) Mode for Emacs." t)
20
21 (autoload 'slime-connect "slime"
22 "Connect to a running Swank server." t)
23
24 (autoload 'hyperspec-lookup "hyperspec" nil t)
25
26 (autoload 'slime-lisp-mode-hook "slime")
27 (autoload 'slime-scheme-mode-hook "slime")
28
29 (defvar slime-lisp-modes '(lisp-mode))
30
31 (defun slime-setup (&optional contribs)
32 "Setup Emacs so that lisp-mode buffers always use SLIME.
33 CONTRIBS is a list of contrib packages to load."
34 (when (member 'lisp-mode slime-lisp-modes)
35 (add-hook 'lisp-mode-hook 'slime-lisp-mode-hook))
36 (setq slime-setup-contribs contribs)
37 (add-hook 'slime-load-hook 'slime-setup-contribs))
38
39 (defvar slime-setup-contribs nil)
40
41 (defun slime-setup-contribs ()
42 (when slime-setup-contribs
43 (add-to-list 'load-path (expand-file-name "contrib" slime-path))
44 (dolist (c slime-setup-contribs)
45 (require c)
46 (let ((init (intern (format "%s-init" c))))
47 (when (fboundp init)
48 (funcall init))))))
49
50 (provide 'slime-autoloads)
51
52 ;;; slime-autoloads.el ends here

  ViewVC Help
Powered by ViewVC 1.1.5