[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 <drew.adams@oracle.com> 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- bug#18204: 24.4.50; `ediff-file-compressed-p',
Lars Ingebrigtsen <=