[slime-cvs] CVS slime

[heller]

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

Modified Files:
	slime.el ChangeLog 
Log Message:
* slime.el (slime-filename-translations): Fix custom type.

* slime.el (slime-toggle-trace-fdefinition):  Fix typo.  The
 argument for interactive should be "P" not "p".



--- /project/slime/cvsroot/slime/slime.el	2007/09/04 10:32:04	1.849
+++ /project/slime/cvsroot/slime/slime.el	2007/09/05 12:02:24	1.850
@@ -171,9 +171,8 @@
   :group 'slime-lisp)
 
 (defcustom slime-filename-translations nil
-  "Alist of mappings between machine names and filename
-translation functions. Each element is of the
-form (HOSTNAME-REGEXP TO-LISP FROM-LISP).
+  "Assoc list of hostnames and filename translation functions.  
+Each element is of the form (HOSTNAME-REGEXP TO-LISP FROM-LISP).
 
 HOSTNAME-REGEXP is a regexp which is applied to the connection's
 slime-machine-instance. If HOSTNAME-REGEXP maches then the
@@ -204,7 +203,10 @@
         slime-filename-translations)
 
 See also `slime-create-filename-translator'."
-  :type 'list
+  :type '(repeat (list :tag "Host description"
+                       (regexp :tag "Hostname regexp")
+                       (function :tag "To   lisp function")
+                       (function :tag "From lisp function")))
   :group 'slime-lisp)
 
 (defcustom slime-enable-evaluate-in-emacs nil
@@ -5585,20 +5587,20 @@
 
 (defun slime-toggle-trace-fdefinition (&optional using-context-p)
   "Toggle trace."
-  (interactive "p")
-  (let ((spec (if using-context-p
+  (interactive "P")
+  (let* ((spec (if using-context-p
                   (slime-extract-context)
-                (slime-symbol-at-point))))
-    (let ((spec (slime-trace-query spec)))
-      (message "%s" (slime-eval `(swank:swank-toggle-trace ,spec))))))
+                 (slime-symbol-name-at-point)))
+         (spec (slime-trace-query spec)))
+    (message "%s" (slime-eval `(swank:swank-toggle-trace ,spec)))))
 
 (defun slime-trace-query (spec)
   "Ask the user which function to trace; SPEC is the default.
 The result is a string."
   (cond ((null spec)
          (slime-read-from-minibuffer "(Un)trace: "))
-        ((symbolp spec)
-         (slime-read-from-minibuffer "(Un)trace: " (symbol-name spec)))
+        ((stringp spec)
+         (slime-read-from-minibuffer "(Un)trace: " spec))
         (t
          (destructure-case spec
            ((setf n)
--- /project/slime/cvsroot/slime/ChangeLog	2007/09/04 15:45:19	1.1201
+++ /project/slime/cvsroot/slime/ChangeLog	2007/09/05 12:02:24	1.1202
@@ -1,3 +1,12 @@
+2007-09-05  Didier Verna  <didier at xemacs.org>
+
+	* slime.el (slime-filename-translations): Fix custom type.
+
+2007-09-05  Helmut Eller  <heller at common-lisp.net>
+
+	* slime.el (slime-toggle-trace-fdefinition):  Fix typo.  The
+	 argument for interactive should be "P" not "p".
+
 2007-09-04  Mark Evenson <mark.evenson at gmx.at>
 
 	* swank-abcl.lisp: Call accessors of compiler-condition at load