diff options
| author | Miles Bader <miles@gnu.org> | 2006-08-03 05:10:38 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2006-08-03 05:10:38 +0000 |
| commit | 2e3ef421a9e7888ed48241bbeecedaeefb58ab54 (patch) | |
| tree | d7a59eb24269a42164aff762ed8b4c952293cdac /lisp/erc/erc-spelling.el | |
| parent | 6b2fcbb546b8b69b2eef40c5042439d3f822bec7 (diff) | |
| download | emacs-2e3ef421a9e7888ed48241bbeecedaeefb58ab54.tar.gz emacs-2e3ef421a9e7888ed48241bbeecedaeefb58ab54.tar.bz2 emacs-2e3ef421a9e7888ed48241bbeecedaeefb58ab54.zip | |
Merge from erc--emacs--21
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-379
Creator: Michael Olson <mwolson@gnu.org>
Diffstat (limited to 'lisp/erc/erc-spelling.el')
| -rw-r--r-- | lisp/erc/erc-spelling.el | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/lisp/erc/erc-spelling.el b/lisp/erc/erc-spelling.el index 3cbc786274d..7ed0f510539 100644 --- a/lisp/erc/erc-spelling.el +++ b/lisp/erc/erc-spelling.el @@ -40,15 +40,13 @@ ;; Use erc-connect-pre-hook instead of erc-mode-hook as pre-hook is ;; called AFTER the server buffer is initialized. ((add-hook 'erc-connect-pre-hook 'erc-spelling-init) - (mapc (lambda (buffer) - (when buffer - (with-current-buffer buffer (erc-spelling-init)))) - (erc-buffer-list))) + (dolist (buffer (erc-buffer-list)) + (when (buffer-live-p buffer) + (with-current-buffer buffer (erc-spelling-init))))) ((remove-hook 'erc-connect-pre-hook 'erc-spelling-init) - (mapc (lambda (buffer) - (when buffer - (with-current-buffer buffer (flyspell-mode 0)))) - (erc-buffer-list)))) + (dolist (buffer (erc-buffer-list)) + (when (buffer-live-p buffer) + (with-current-buffer buffer (flyspell-mode 0)))))) (defcustom erc-spelling-dictionaries nil "An alist mapping buffer names to dictionaries. |