[Erbot-cvs] Changes to erbot/erbot.el

[Michael W . Olson]

Index: erbot/erbot.el
diff -u erbot/erbot.el:1.30 erbot/erbot.el:1.31
--- erbot/erbot.el:1.30 Tue Mar 29 19:41:44 2005
+++ erbot/erbot.el      Fri Apr  1 07:13:06 2005
@@ -365,13 +365,16 @@
 ; This function is used by the example above.
 (defun erbot-doctor (args)
   "Glue the doctor into the ERC robot."
-  (let* ((dbuf "*doctor*")
+  (let* ((thisbuf (current-buffer))
+         (dbuf (concat "*doctor: " (buffer-name thisbuf) "*"))
         (docbuf (get-buffer dbuf))
         outpoint
         res)
     (if (not docbuf)
        (progn
-         (doctor)
+          (set-buffer (get-buffer-create dbuf))
+          (make-doctor-variables)
+          (set-buffer thisbuf)
          (setq docbuf (get-buffer dbuf))
          (bury-buffer docbuf)))
     (save-excursion