[slime-cvs] CVS slime/contrib

[heller]

Update of /project/slime/cvsroot/slime/contrib
In directory clnet:/tmp/cvs-serv14706

Modified Files:
	ChangeLog slime-c-p-c.el 
Log Message:
* slime-c-p-c.el (slime-c-p-c-init): Use slime-require instead of
a connected-hook.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2008/02/13 11:27:08	1.90
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2008/02/13 11:27:55	1.91
@@ -1,5 +1,10 @@
 2008-02-13  Helmut Eller  <heller at common-lisp.net>
 
+	* slime-c-p-c.el (slime-c-p-c-init): Use slime-require instead of
+	a connected-hook.
+
+2008-02-13  Helmut Eller  <heller at common-lisp.net>
+
 	Track tree-widget change: :dynarg is now called :expander.
 
 	* slime-xref-browser.el (slime-expand-class-node)
--- /project/slime/cvsroot/slime/contrib/slime-c-p-c.el	2007/09/20 14:55:53	1.8
+++ /project/slime/cvsroot/slime/contrib/slime-c-p-c.el	2008/02/13 11:27:55	1.9
@@ -13,7 +13,7 @@
 ;; Add this to your .emacs: 
 ;;
 ;;   (add-to-list 'load-path "<directory-of-this-file>")
-;;   (add-hook 'slime-load-hook (lambda () (require 'slime-c-p-c)))
+;;   (slime-setup '(slime-c-p-c ... possibly other packages ...))
 ;;
 
 
@@ -177,6 +177,7 @@
 (defvar slime-c-p-c-init-undo-stack nil)
 
 (defun slime-c-p-c-init ()
+  (slime-require :swank-arglists)
   ;; save current state for unload
   (push 
    `(progn
@@ -188,13 +189,9 @@
 	',(lookup-key slime-repl-mode-map "\C-c\C-s")))
    slime-c-p-c-init-undo-stack)
   (setq slime-complete-symbol-function 'slime-complete-symbol*)
-  (add-hook 'slime-connected-hook 'slime-c-p-c-on-connect)
   (define-key slime-mode-map "\C-c\C-s" 'slime-complete-form)
   (define-key slime-repl-mode-map "\C-c\C-s" 'slime-complete-form))
 
-(defun slime-c-p-c-on-connect ()
-  (slime-eval-async '(swank:swank-require :swank-arglists)))
-
 (defun slime-c-p-c-unload ()
   (while slime-c-p-c-init-undo-stack
     (eval (pop slime-c-p-c-init-undo-stack))))