Mercurial > emacs

comparison lisp/erc/erc-spelling.el @ 68814:fe9073ac802e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-73 Creator: Michael Olson <mwolson@gnu.org> Merge from erc--emacs--0
author Miles Bader <miles@gnu.org>
date Sun, 12 Feb 2006 12:02:53 +0000
parents 86c478cccc57
children 7010bb070445
comparison
equal deleted inserted replaced
68813:d065089f984a 68814:fe9073ac802e
39 "Enable flyspell mode in ERC buffers." 39 "Enable flyspell mode in ERC buffers."
40 ;; Use erc-connect-pre-hook instead of erc-mode-hook as pre-hook is 40 ;; Use erc-connect-pre-hook instead of erc-mode-hook as pre-hook is
41 ;; called AFTER the server buffer is initialized. 41 ;; called AFTER the server buffer is initialized.
42 ((add-hook 'erc-connect-pre-hook 'erc-spelling-init) 42 ((add-hook 'erc-connect-pre-hook 'erc-spelling-init)
43 (mapc (lambda (buffer) 43 (mapc (lambda (buffer)
44 (with-current-buffer buffer (erc-spelling-init))) 44 (when buffer
45 (with-current-buffer buffer (erc-spelling-init))))
45 (erc-buffer-list))) 46 (erc-buffer-list)))
46 ((remove-hook 'erc-connect-pre-hook 'erc-spelling-init) 47 ((remove-hook 'erc-connect-pre-hook 'erc-spelling-init)
47 (mapc (lambda (buffer) 48 (mapc (lambda (buffer)
48 (with-current-buffer buffer (flyspell-mode 0))) 49 (when buffer
50 (with-current-buffer buffer (flyspell-mode 0))))
49 (erc-buffer-list)))) 51 (erc-buffer-list))))
50 52
51 (defcustom erc-spelling-dictionaries nil 53 (defcustom erc-spelling-dictionaries nil
52 "An alist mapping buffer names to dictionaries. 54 "An alist mapping buffer names to dictionaries.
53 The `car' of every cell is a buffer name, the `cadr' is the 55 The `car' of every cell is a buffer name, the `cadr' is the