[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Erbot-cvs] Changes to erbot/erbot.el
From: |
Michael W . Olson |
Subject: |
[Erbot-cvs] Changes to erbot/erbot.el |
Date: |
Fri, 01 Apr 2005 02:13:07 -0500 |
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
- [Erbot-cvs] Changes to erbot/erbot.el,
Michael W . Olson <=