Commit e2cfa9af authored by Glenn Morris's avatar Glenn Morris
Browse files

(erc-modified-channels-update): Use mapc rather than mapcar.

parent 3d3cfc90
2007-10-13 Glenn Morris <rgm@gnu.org>
* woman.el (woman0-rename): Fix paren typo.
* mail/feedmail.el (feedmail-run-the-queue)
(feedmail-look-at-queue-directory):
* mail/reporter.el (reporter-dump-state):
* net/eudc-hotlist.el (eudc-edit-hotlist):
* net/eudc.el (eudc-display-records)
(eudc-filter-duplicate-attributes)
(eudc-distribute-field-on-records, eudc-query-form)
(eudc-process-form):
* net/eudcb-bbdb.el (eudc-bbdb-filter-non-matching-record)
(eudc-bbdb-query-internal):
* net/eudcb-ldap.el (eudc-ldap-simple-query-internal):
* net/socks.el (socks-build-auth-list):
* progmodes/cc-cmds.el (top level):
* progmodes/cc-styles.el (c-make-styles-buffer-local)
(c-set-style):
* progmodes/cperl-mode.el (top level, cperl-imenu-addback)
(cperl-write-tags, cperl-tags-treeify):
* progmodes/ebnf-yac.el (ebnf-yac-token-table):
* progmodes/ebnf2ps.el (ebnf-map-name, ebnf-dimensions):
* progmodes/idlw-shell.el (idlwave-shell-filter-bp, top level):
* progmodes/idlw-toolbar.el (idlwave-toolbar-add-everywhere)
(idlwave-toolbar-remove-everywhere):
* progmodes/idlwave.el (idlwave-indent-line)
(idlwave-sintern-keyword-list, idlwave-scan-user-lib-files)
(idlwave-write-paths, idlwave-all-method-classes)
(idlwave-all-method-keyword-classes, idlwave-entry-keywords)
(idlwave-fix-keywords, idlwave-display-calling-sequence):
* textmodes/org.el (org-export-as-html, org-export-as-ascii)
(org-fast-tag-selection): Use mapc rather than mapcar.
2007-10-13 Dan Nicolaescu <dann@ics.uci.edu>
* diff-mode.el (diff-fine-change): Add :group.
......
2007-10-13 Glenn Morris <rgm@gnu.org>
* erc-track.el (erc-modified-channels-update): Use mapc rather
than mapcar.
2007-09-18 Exal de Jesus Garcia Carrillo <exal@gmx.de> (tiny change)
* erc.texi (Special-Features): Fix small typo.
......
......@@ -701,17 +701,17 @@ ARGS are ignored."
(unless erc-modified-channels-update-inside
(let ((erc-modified-channels-update-inside t)
(removed-channel nil))
(mapcar (lambda (elt)
(let ((buffer (car elt)))
(when (or (not (bufferp buffer))
(not (buffer-live-p buffer))
(erc-buffer-visible buffer)
(and erc-track-remove-disconnected-buffers
(not (with-current-buffer buffer
erc-server-connected))))
(setq removed-channel t)
(erc-modified-channels-remove-buffer buffer))))
erc-modified-channels-alist)
(mapc (lambda (elt)
(let ((buffer (car elt)))
(when (or (not (bufferp buffer))
(not (buffer-live-p buffer))
(erc-buffer-visible buffer)
(and erc-track-remove-disconnected-buffers
(not (with-current-buffer buffer
erc-server-connected))))
(setq removed-channel t)
(erc-modified-channels-remove-buffer buffer))))
erc-modified-channels-alist)
(when removed-channel
(erc-modified-channels-display)
(force-mode-line-update t)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment