mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Silence some byte-compiler warnings in ERC

Browse source
This commit is contained in:
Michael Olson 2007-11-01 01:12:59 +00:00
parent bce6be12b9
commit 88406d6ee8
5 changed files with 32 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/erc/erc.el
View file

@ -1680,13 +1680,16 @@ nil."
;; Make the evaluation have the correct order
(let ((pre (make-symbol "pre"))
(pro (make-symbol "pro")))
`(let ((,pro ,process)
(,pre ,pred))
(mapcar (lambda (buffer)
(with-current-buffer buffer
,@forms))
(erc-buffer-list ,pre
,pro)))))
`(let* ((,pro ,process)
(,pre ,pred)
(res (mapcar (lambda (buffer)
(with-current-buffer buffer
,@forms))
(erc-buffer-list ,pre
,pro))))
;; Silence the byte-compiler by binding the result of mapcar to
;; a variable.
res)))
(put 'erc-with-all-buffers-of-server 'lisp-indent-function 1)
(put 'erc-with-all-buffers-of-server 'edebug-form-spec '(form form body))