[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

bug#18204: 24.4.50; `ediff-file-compressed-p'

From: Lars Ingebrigtsen
Subject: bug#18204: 24.4.50; `ediff-file-compressed-p'
Date: Sat, 30 Apr 2016 02:38:01 +0200
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/25.1.50 (gnu/linux)

Drew Adams <address@hidden> writes:

> Could be improved from this:
> (defun ediff-file-compressed-p (file)
>   (condition-case nil
>       (require 'jka-compr)
>     (error))
>   (if (featurep 'jka-compr)
>       (string-match (jka-compr-build-file-regexp) file)))
> to this:
> (defun ediff-file-compressed-p (file)
>   (and (require 'jka-compr nil t)
>        (string-match-p (jka-compr-build-file-regexp) file)))

Probably written that way for backwards compatibility.

I've now simplified it.

(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no

reply via email to

[Prev in Thread] Current Thread [Next in Thread]