Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

* slime.el (slime-setup-contribs): Moved over from

slime-autoloads.el
  • Loading branch information...
commit e4cc418be3839308e97aed1f7319a1618698702c 1 parent 715e7d1
Helmut Eller authored
Showing with 15 additions and 13 deletions.
  1. +4 −0 ChangeLog
  2. +3 −11 slime-autoloads.el
  3. +8 −2 slime.el
View
4 ChangeLog
@@ -1,5 +1,9 @@
2009-03-27 Helmut Eller <heller@common-lisp.net>
+ * slime.el (slime-setup-contribs): Moved over from
+ slime-autoloads.el
+
+2009-03-27 Helmut Eller <heller@common-lisp.net>
* swank-openmcl.lisp (toggle-trace): Replace ccl::%trace with
ccl:trace-function.
(kill-thread): Use an implementation that doesn't raise a
View
14 slime-autoloads.el
@@ -27,6 +27,9 @@
(autoload 'slime-scheme-mode-hook "slime")
(defvar slime-lisp-modes '(lisp-mode))
+(defvar slime-setup-contribs nil
+ "List of contribst to load.
+Modified my slime-setup.")
(defun slime-setup (&optional contribs)
"Setup Emacs so that lisp-mode buffers always use SLIME.
@@ -36,17 +39,6 @@ CONTRIBS is a list of contrib packages to load."
(setq slime-setup-contribs contribs)
(add-hook 'slime-load-hook 'slime-setup-contribs))
-(defvar slime-setup-contribs nil)
-
-(defun slime-setup-contribs ()
- (when slime-setup-contribs
- (add-to-list 'load-path (expand-file-name "contrib" slime-path))
- (dolist (c slime-setup-contribs)
- (require c)
- (let ((init (intern (format "%s-init" c))))
- (when (fboundp init)
- (funcall init))))))
-
(provide 'slime-autoloads)
;;; slime-autoloads.el ends here
View
10 slime.el
@@ -82,15 +82,21 @@ The default value is automatically computed from the location of the
Emacs Lisp package."))
(defvar slime-lisp-modes '(lisp-mode))
+(defvar slime-setup-contribs nil)
(defun slime-setup (&optional contribs)
"Setup Emacs so that lisp-mode buffers always use SLIME.
CONTRIBS is a list of contrib packages to load."
(when (member 'lisp-mode slime-lisp-modes)
(add-hook 'lisp-mode-hook 'slime-lisp-mode-hook))
- (when contribs
+ (setq slime-setup-contribs contribs)
+ (slime-setup-contribs))
+
+(defun slime-setup-contribs ()
+ "Load and initialize contribs."
+ (when slime-setup-contribs
(add-to-list 'load-path (expand-file-name "contrib" slime-path))
- (dolist (c contribs)
+ (dolist (c slime-setup-contribs)
(require c)
(let ((init (intern (format "%s-init" c))))
(when (fboundp init)
Please sign in to comment.
Something went wrong with that request. Please try again.