[slime-cvs] CVS slime

[CVS User crhodes]

Update of /project/slime/cvsroot/slime
In directory tiger.common-lisp.net:/tmp/cvs-serv15750

Modified Files:
	ChangeLog slime.el 
Log Message:
Indirect through a variable in slime-operator-before-point.

I could write about how this is necessary given the reprogrammability
of the CL reader, but honestly this is motivated by trying to get arglist
display in the minibuffer for R.  I'll be glad if this is useful for (real)
Lisp programmers too.


--- /project/slime/cvsroot/slime/ChangeLog	2012/04/20 12:45:28	1.2318
+++ /project/slime/cvsroot/slime/ChangeLog	2012/04/23 16:32:52	1.2319
@@ -1,3 +1,10 @@
+2012-04-23  Christophe Rhodes  <csr21 at cantab.net>
+
+	* slime.el (slime-operator-before-point-function): new variable.
+	(slime-operator-before-point): use it.
+	(slime-lisp-operator-before-point): default implementation for
+	slime-operator-before-point-function (unchanged from before).
+
 2012-04-20  Nikodemus Siivola  <nikodemus at random-state.net>
 
 	* swank-sbcl.lisp (stream-force-output :around): Workaroud for
--- /project/slime/cvsroot/slime/slime.el	2012/04/11 11:39:03	1.1400
+++ /project/slime/cvsroot/slime/slime.el	2012/04/23 16:32:52	1.1401
@@ -3627,13 +3627,17 @@
 			  (when arglist
 			    (slime-message "%s" arglist)))))))
 
+(defvar slime-operator-before-point-function 'slime-lisp-operator-before-point)
+
 (defun slime-operator-before-point ()
+  (funcall slime-operator-before-point-function))
+
+(defun slime-lisp-operator-before-point ()
   (ignore-errors 
     (save-excursion
       (backward-up-list 1)
       (down-list 1)
       (slime-symbol-at-point))))
-
 
 ;;;; Completion