Mercurial > emacs
comparison lisp/erc/erc-spelling.el @ 68814:fe9073ac802e
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 |