Function: jka-compr-installed-p

jka-compr-installed-p is a byte-compiled function defined in jka-cmpr-hook.el.gz.

Signature

(jka-compr-installed-p)

Documentation

Return non-nil if jka-compr is installed.

The return value is the entry in file-name-handler-alist for jka-compr.

Source Code

;; Defined in /usr/src/emacs/lisp/jka-cmpr-hook.el.gz
(defun jka-compr-installed-p ()
  "Return non-nil if jka-compr is installed.
The return value is the entry in `file-name-handler-alist' for jka-compr."

  (let ((fnha file-name-handler-alist)
	(installed nil))

    (while (and fnha (not installed))
     (and (eq (cdr (car fnha)) 'jka-compr-handler)
	   (setq installed (car fnha)))
      (setq fnha (cdr fnha)))

    installed))