[slime-cvs] CVS slime

[heller]

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

Modified Files:
	slime.el 
Log Message:
(slime-repl-output-mouseover-face): Fix a pair of extra
parens.  Patch by Madhu <enometh at meer.net>.


(slime-search-buffer-package): Remove Xemacs special casing.  There's
already a compatibility defun for match-string-no-properties.


--- /project/slime/cvsroot/slime/slime.el	2006/12/12 15:40:19	1.705
+++ /project/slime/cvsroot/slime/slime.el	2006/12/14 16:05:12	1.706
@@ -505,7 +505,7 @@
            (:box
             (:line-width 1 :color "black" :style released-button)
             :inherit
-            (slime-repl-inputed-output-face))))
+            slime-repl-inputed-output-face)))
       '((t (:box (:line-width 1 :color "black"))))))
   "Face for Lisp output in the SLIME REPL, when the mouse hovers over it"
   :group 'slime-repl)
@@ -2522,11 +2522,7 @@
     (save-excursion
       (when (or (re-search-backward regexp nil t)
                 (re-search-forward regexp nil t))
-        (let ((string (if (fboundp 'match-string-no-properties)
-                          (match-string-no-properties 2)
-                          (buffer-substring-no-properties
-                           (match-beginning 2)
-                           (match-end 2)))))
+        (let ((string (match-string-no-properties 2)))
           (cond ((string-match "^\"" string) (ignore-errors (read string)))
                 ((string-match "^#?:" string) (substring string (match-end 0)))
                 (t string)))))))