Show
Ignore:
Timestamp:
2006年08月10日 11時19分54秒 (2 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/erc/erc-spelling.el

    r4035 r4140  
    4141  ;; called AFTER the server buffer is initialized. 
    4242  ((add-hook 'erc-connect-pre-hook 'erc-spelling-init) 
    43    (mapc (lambda (buffer) 
    44            (when buffer 
    45              (with-current-buffer buffer (erc-spelling-init)))) 
    46          (erc-buffer-list))) 
     43   (dolist (buffer (erc-buffer-list)) 
     44     (when (buffer-live-p buffer) 
     45       (with-current-buffer buffer (erc-spelling-init))))) 
    4746  ((remove-hook 'erc-connect-pre-hook 'erc-spelling-init) 
    48    (mapc (lambda (buffer) 
    49            (when buffer 
    50              (with-current-buffer buffer (flyspell-mode 0)))) 
    51          (erc-buffer-list)))) 
     47   (dolist (buffer (erc-buffer-list)) 
     48     (when (buffer-live-p buffer) 
     49       (with-current-buffer buffer (flyspell-mode 0)))))) 
    5250 
    5351(defcustom erc-spelling-dictionaries nil