Re: Test for `save-abbrevs' improvement

[Juanma Barranquero]

On 2/17/06, Juanma Barranquero <address@hidden> wrote:

> I don't use Customize), but I think I'll end using
>
>   (rassoc '(silently) (get 'save-abbrevs 'custom-type))

  (and (listp (get 'save-abbrevs 'custom-type)) 'silently)

really, as the custom-type is 'boolean in 21.1. Oh well.

All in all, though the "test for functionality, not Emacs version"
mantra is a good suggestion, it breaks sometimes. In my .emacs I
advise `list-faces-display' to add to it the "C-u means ask for
regexp" feature of 22.X, but only if it is not there already. I didn't
find any way easier than:

(let ((code (symbol-function #'list-faces-display)))
  (when (and (byte-code-function-p code)
             (null (aref code 0)))
    ;; Stuff for pre-22.X versions
    ;; ...
    ))

Ugh.

--
                    /L/e/k/t/u