[slime-cvs] CVS slime

[mkoeppe]

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

Modified Files:
	slime.el 
Log Message:
(slime-parse-extended-operator-name): Don't move point; fixes infinite
loop.


--- /project/slime/cvsroot/slime/slime.el	2006/06/17 16:10:54	1.629
+++ /project/slime/cvsroot/slime/slime.el	2006/06/18 14:53:27	1.630
@@ -10082,13 +10082,14 @@
 information from the operator call and encode it as an extended
 operator name like (MAKE-INSTANCE CLASS \"make-instance\").  Return
 NAME or the extended operator name."
-  (ignore-errors
-    (forward-char (1+ (length name)))
-    (slime-forward-blanks)
-    (let* ((symbol-name (upcase (slime-cl-symbol-name name)))
-           (assoc (assoc symbol-name slime-extended-operator-name-parser-alist)))
-      (when assoc
-        (setq name (funcall (cdr assoc) name)))))
+  (save-excursion
+    (ignore-errors
+      (forward-char (1+ (length name)))
+      (slime-forward-blanks)
+      (let* ((symbol-name (upcase (slime-cl-symbol-name name)))
+             (assoc (assoc symbol-name slime-extended-operator-name-parser-alist)))
+        (when assoc
+          (setq name (funcall (cdr assoc) name))))))
   name)
 
 (defvar slime-extended-operator-name-parser-alist