365 |
; This function is used by the example above. |
; This function is used by the example above. |
366 |
(defun erbot-doctor (args) |
(defun erbot-doctor (args) |
367 |
"Glue the doctor into the ERC robot." |
"Glue the doctor into the ERC robot." |
368 |
(let* ((dbuf "*doctor*") |
(let* ((thisbuf (current-buffer)) |
369 |
|
(dbuf (concat "*doctor: " (buffer-name thisbuf) "*")) |
370 |
(docbuf (get-buffer dbuf)) |
(docbuf (get-buffer dbuf)) |
371 |
outpoint |
outpoint |
372 |
res) |
res) |
373 |
(if (not docbuf) |
(if (not docbuf) |
374 |
(progn |
(progn |
375 |
(doctor) |
(set-buffer (get-buffer-create dbuf)) |
376 |
|
(make-doctor-variables) |
377 |
|
(set-buffer thisbuf) |
378 |
(setq docbuf (get-buffer dbuf)) |
(setq docbuf (get-buffer dbuf)) |
379 |
(bury-buffer docbuf))) |
(bury-buffer docbuf))) |
380 |
(save-excursion |
(save-excursion |