--- a/lisp/prim/subr.el	Mon Aug 13 09:43:39 2007 +0200
+++ b/lisp/prim/subr.el	Mon Aug 13 09:44:42 2007 +0200
@@ -532,13 +532,8 @@
   (interactive)
   nil)
 
-(defmacro eval-in-buffer (buffer &rest forms)
-  "Evaluate FORMS in BUFFER.
-See also: `save-current-buffer' and `save-excursion'."
-  ;; by Stig@hackvan.com
-  (` (save-current-buffer
-      (set-buffer (, buffer))
-      (,@ forms))))
+(define-function 'eval-in-buffer 'with-current-buffer)
+(make-obsolete 'eval-in-buffer 'with-current-buffer)
 
 ;;; The real defn is in abbrev.el but some early callers
 ;;;  (eg lisp-mode-abbrev-table) want this before abbrev.el is loaded...