/[erbot]/erbot/erbot.el
ViewVC logotype

Diff of /erbot/erbot.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.30 by deego, Tue Mar 29 19:41:44 2005 UTC revision 1.31 by mwolson, Fri Apr 1 07:13:06 2005 UTC
# Line 365  from-term to-term from-entries to-entrie Line 365  from-term to-term from-entries to-entrie
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

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26