Re: Gnus always loads cl

[Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann)]

Katsumi@Yamaoka.cc writes:

>>>>>> In <87hefnu7sn.fsf@crybaby.cs.uni-dortmund.de> 
>>>>>>	Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann) wrote:
>
>>> (unless (and (fboundp 'gethash) (fboundp 'hash-table-count)
>>> 	     (fboundp 'make-hash-table) (fboundp 'mapc)
>>> 	     (fboundp 'puthash))
>>>   (require 'cl)
>>>   (unless (fboundp 'puthash)
>>>     (defalias 'puthash 'cl-puthash)))
>>>
>>> However, if such a thing is required, my will inclines to
>>> forsake Emacs 20 users.  Do you have any other ideas?
>
> Kai> Why forsake Emacs 20 users?  The code is not that terrible :-)
>
> Since I'm not using Emacs 20 usually, I come to feel it
> troublesome.  But we cannot forsake Meadow users. ;-)

Well.  Hm.  How to make it prettier?  Maybe this one:

(when (memq nil (mapcar 'fboundp
                        '(gethash hash-table make-hash-table
                          mapc puthash)))
  (require 'cl)
  (unless (fboundp 'puthash)
    (defalias 'puthash 'cl-puthash)))

> Kai> And then, maybe it's sufficient to test some of those functions
> Kai> instead of all of them -- we expect them to be defined in the same
> Kai> file anyway, right?
>
> I make an issue of only cl run-time functions and I graspe all
> of them.  Which function do you think we can remove from a
> subject of examination?  I don't know.

As a zero-th approximation, any function that is not fboundp in Emacs
20 will do.  Maybe make-hash-table is the most basic function.
(Without a hash table, you cannot do anything with it, so any Emacs
which provides hash tables will also provide make-hash-table, I
guess.)

> By the way, I've made gnus-clfns.el in T-gnus (which is base on
> Oort Gnus, using FLIM and SEMI for MIME functions, using APEL
> to support Mule 19.34 as well as Emacs 20/21).  That file
> provides compiler macros for cl run-time functions as it is done
> by dgnushack.el in Oort Gnus.  If such demand increases, we
> should probably do the same thing also in Oort Gnus.

Whee.  dgnushack is really weird.  But if it's necessary...

kai
-- 
~/.signature is: umop ap!sdn    (Frank Nobis)