[slime-cvs] CVS slime/contrib

trittweiler trittweiler at common-lisp.net
Tue Sep 11 17:11:01 UTC 2007


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

Modified Files:
	slime-editing-commands.el 
Log Message:

* slime-editing-commands.el: Automatically bind the editing
  commands when this module is required. (Previously, one had to
  enable them explicitly, but this is inconsistent to, for instance,
  the `slime-c-p-c' module which also sets up its bindings
  automatically.)
  (slime-bind-editing-commands): Renamed to `slime-editing-commands-init'.
  (slime-editing-commands-init): Evaluated at toplevel.


--- /project/slime/cvsroot/slime/contrib/slime-editing-commands.el	2007/08/31 14:07:54	1.2
+++ /project/slime/cvsroot/slime/contrib/slime-editing-commands.el	2007/09/11 17:11:01	1.3
@@ -14,7 +14,6 @@
 ;;
 ;;   (add-to-list 'load-path "<directory-of-this-file>")
 ;;   (add-hook 'slime-load-hook (lambda () (require 'slime-editing-commands)))
-;;   (add-hook 'slime-mode-hook 'slime-bind-editing-commands)
 ;;
 
 (defun slime-beginning-of-defun ()
@@ -182,9 +181,11 @@
           (setf end (point)))
         (indent-region start end nil)))))
 
-(defun slime-bind-editing-commands ()
+(defun slime-editing-commands-init ()
   (define-key slime-mode-map "\M-\C-a"  'slime-beginning-of-defun)
   (define-key slime-mode-map "\M-\C-e"  'slime-end-of-defun)
   (define-key slime-mode-map "\C-c\M-q" 'slime-reindent-defun))
 
+(slime-editing-command-init)
+
 (provide 'slime-editing-commands)




More information about the slime-cvs mailing list