Mercurial > emacs
comparison lisp/erc/erc-ezbounce.el @ 74577:eb977be26d8c
(erc-ezb-init-session-list): Doc fix.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Sun, 10 Dec 2006 23:45:53 +0000 |
| parents | 45937d0cd26d |
| children | 7a3f13e2dd57 |
comparison
equal
deleted
inserted
replaced
| 74576:12e2c6045621 | 74577:eb977be26d8c |
|---|---|
| 124 (pass (cdr login))) | 124 (pass (cdr login))) |
| 125 (erc-server-send (concat "LOGIN " username " " pass)))))) | 125 (erc-server-send (concat "LOGIN " username " " pass)))))) |
| 126 | 126 |
| 127 ;;;###autoload | 127 ;;;###autoload |
| 128 (defun erc-ezb-init-session-list (message) | 128 (defun erc-ezb-init-session-list (message) |
| 129 "Reset the EZBounce session list to NIL." | 129 "Reset the EZBounce session list to nil." |
| 130 (setq erc-ezb-session-list nil) | 130 (setq erc-ezb-session-list nil) |
| 131 (setq erc-ezb-inside-session-listing t)) | 131 (setq erc-ezb-inside-session-listing t)) |
| 132 | 132 |
| 133 ;;;###autoload | 133 ;;;###autoload |
| 134 (defun erc-ezb-end-of-session-list (message) | 134 (defun erc-ezb-end-of-session-list (message) |
| 135 "Indicate the end of the EZBounce session listing." | 135 "Indicate the end of the EZBounce session listing." |
| 136 (setq erc-ezb-inside-session-listing nil)) | 136 (setq erc-ezb-inside-session-listing nil)) |
| 137 | 137 |
| 138 ;;;###autoload | 138 ;;;###autoload |
| 139 (defun erc-ezb-add-session (message) | 139 (defun erc-ezb-add-session (message) |
| 140 "Add an EZBounce session to the session list." | 140 "Add an EZBounce session to the session list." |
| 141 (when (and erc-ezb-inside-session-listing | 141 (when (and erc-ezb-inside-session-listing |
| 142 (string-match "^\\([^ \n]+\\) +\\([^ \n]+\\) +\\([^ \n]+\\) +\\([^ \n]+\\)$" message)) | 142 (string-match "^\\([^ \n]+\\) +\\([^ \n]+\\) +\\([^ \n]+\\) +\\([^ \n]+\\)$" message)) |
| 155 (port | 155 (port |
| 156 (erc-string-to-port | 156 (erc-string-to-port |
| 157 (read-from-minibuffer "IRC port: " | 157 (read-from-minibuffer "IRC port: " |
| 158 (erc-port-to-string "6667"))))) | 158 (erc-port-to-string "6667"))))) |
| 159 (erc-server-send (format "CONN %s %s" server port))))) | 159 (erc-server-send (format "CONN %s %s" server port))))) |
| 160 | 160 |
| 161 | 161 |
| 162 ;;;###autoload | 162 ;;;###autoload |
| 163 (defun erc-ezb-select-session () | 163 (defun erc-ezb-select-session () |
| 164 "Select a detached EZBounce session." | 164 "Select a detached EZBounce session." |
| 165 (let ((session (completing-read "Existing Session (RET to enter a new one): " | 165 (let ((session (completing-read "Existing Session (RET to enter a new one): " |
| 171 | 171 |
| 172 ;;;###autoload | 172 ;;;###autoload |
| 173 (defun erc-ezb-initialize () | 173 (defun erc-ezb-initialize () |
| 174 "Add EZBouncer convenience functions to ERC." | 174 "Add EZBouncer convenience functions to ERC." |
| 175 (add-hook 'erc-server-NOTICE-functions 'erc-ezb-notice-autodetect)) | 175 (add-hook 'erc-server-NOTICE-functions 'erc-ezb-notice-autodetect)) |
| 176 | 176 |
| 177 (provide 'erc-ezbounce) | 177 (provide 'erc-ezbounce) |
| 178 | 178 |
| 179 ;; arch-tag: e972aa7b-a9f4-4d16-a489-074ec7a1002e | 179 ;; arch-tag: e972aa7b-a9f4-4d16-a489-074ec7a1002e |
| 180 ;;; erc-ezbounce.el ends here | 180 ;;; erc-ezbounce.el ends here |