[slime-cvs] CVS slime

[trittweiler]

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

Modified Files:
	slime.el 
Log Message:
* slime.el (save-restriction-if-possible): Fixed typo in
  macroexpansion. Thanks to Matthias Koeppe for reporting.


--- /project/slime/cvsroot/slime/slime.el	2007/08/25 04:57:04	1.813
+++ /project/slime/cvsroot/slime/slime.el	2007/08/25 07:31:44	1.814
@@ -10277,7 +10277,7 @@
     `(let ((,gcfg (current-slime-narrowing-configuration)))
        (unwind-protect (progn , at body)
          (let ((,gbeg (slime-narrowing-configuration.beg ,gcfg))
-               (,gbeg (slime-narrowing-configuration.end ,gcfg)))
+               (,gend (slime-narrowing-configuration.end ,gcfg)))
            (when (and (>= (point) ,gbeg) (<= (point) ,gend))
              (set-slime-current-narrowing-configuration ,gcfg)))))))