[slime-cvs] CVS slime

[CVS User trittweiler]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
	* slime.el (slime-current-parser-state): Wrap `syntax-ppss' in a
	`save-match-data'. This issue has been reported to the Emacs
	maintainers.


--- /project/slime/cvsroot/slime/ChangeLog	2009/02/27 14:59:06	1.1698
+++ /project/slime/cvsroot/slime/ChangeLog	2009/02/27 16:16:23	1.1699
@@ -1,5 +1,11 @@
 2009-02-27  Tobias C. Rittweiler  <tcr at freebits.de>
 
+	* slime.el (slime-current-parser-state): Wrap `syntax-ppss' in a
+	`save-match-data'. This issue has been reported to the Emacs
+	maintainers.
+
+2009-02-27  Tobias C. Rittweiler  <tcr at freebits.de>
+
 	* slime.el (slime-defun-if-undefined),
 	(slime-defmacro-if-undefined): Renamed to
 	`slime-DEFUN-if-undefined' and `slime-DEFMACRO-if-undefined' to
--- /project/slime/cvsroot/slime/slime.el	2009/02/27 14:59:06	1.1133
+++ /project/slime/cvsroot/slime/slime.el	2009/02/27 16:16:23	1.1134
@@ -8223,7 +8223,12 @@
 
 (if (and (featurep 'emacs) (>= emacs-major-version 22))
     ;;;  N.B. The 2nd, and 6th return value cannot be relied upon.
-    (defun slime-current-parser-state () (syntax-ppss))
+    (defun slime-current-parser-state ()
+      ;; `syntax-ppss' does not save match data as it invokes
+      ;; `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)))
     (defun slime-current-parser-state ()
       (let ((original-pos (point)))
         (save-excursion