[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