[slime-cvs] CVS slime

[CVS User trittweiler]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv24079

Modified Files:
	ChangeLog slime.el 
Log Message:
	* slime.el (slime-current-parser-state): Do not save
	match-data. This function is called so often that it makes a
	difference.


--- /project/slime/cvsroot/slime/ChangeLog	2009/05/16 11:28:31	1.1754
+++ /project/slime/cvsroot/slime/ChangeLog	2009/05/16 12:46:04	1.1755
@@ -1,3 +1,9 @@
+2009-05-16  Tobias C. Rittweiler  <tcr at freebits.de>
+
+	* slime.el (slime-current-parser-state): Do not save
+	match-data. This function is called so often that it makes a
+	difference.
+
 2009-05-16  Helmut Eller  <heller at common-lisp.net>
 
 	* swank.lisp (*sldb-pprint-dispatch-table*): Be careful when
--- /project/slime/cvsroot/slime/slime.el	2009/05/15 18:33:51	1.1172
+++ /project/slime/cvsroot/slime/slime.el	2009/05/16 12:46:04	1.1173
@@ -8415,7 +8415,7 @@
       ;; `beginning-of-defun' implicitly which does not save match
       ;; data. This issue has been reported to the Emacs maintainer on
       ;; Feb27.
-      (save-match-data (syntax-ppss)))
+      (syntax-ppss))
     (defsubst slime-current-parser-state ()
       (let ((original-pos (point)))
         (save-excursion
@@ -8850,12 +8850,10 @@
           slime-end-of-symbol
           ;; Used implicitly during fontification:
           slime-current-parser-state
+          slime-eval-feature-expression
           slime-forward-sexp
           slime-forward-cruft
           slime-forward-any-comment
-          slime-extend-region-for-font-lock
-          slime-search-directly-preceding-reader-conditional
-          slime-search-suppressed-forms
           )))
 
 (provide 'slime)