On Fri, May 18 2007, Lennart Borgman (gmail) wrote:
> Lennart Borgman (gmail) wrote:
>> (require 'cl)
>>
>> without (eval-when-compile ...). Is not that incorrect?
[...]
> More files doing this:
[...]
For the file from lisp/gnus/, these forms are no-ops in Emacs 21 and
up. (In the development version of Gnus, we have removed these forms
because we o longer support Emacs < 21 there.)
> gnus-registry.el
,----[ gnus-registry.el ]
| (eval-when-compile (require 'cl))
| [...]
| ;; Function(s) missing in Emacs 20
| (when (memq nil (mapcar 'fboundp '(puthash)))
| (require 'cl)
| (unless (fboundp 'puthash)
| ;; alias puthash is missing from Emacs 20 cl-extra.el
| (defalias 'puthash 'cl-puthash)))
`----
> spam-stat.el
,----[ spam-stat.el ]
| ;; Functions missing in Emacs 20
|
| (when (memq nil (mapcar 'fboundp
| '(gethash hash-table-count make-hash-table
| mapc puthash)))
| (require 'cl)
| (unless (fboundp 'puthash)
| ;; alias puthash is missing from Emacs 20 cl-extra.el
| (defalias 'puthash 'cl-puthash)))
`----
Bye, Reiner.
--
,,,
(o o)
---ooO-(_)-Ooo--- | PGP key available | http://rsteib.home.pages.de/
_______________________________________________
emacs-pretest-bug mailing list
emacs-pretest-bug@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-pretest-bug
