Mercurial > hg > xemacs-beta

comparison lisp/packages/jka-compr.el @ 110:fe104dbd9147 r20-1b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents 364816949b59
children cca96a509cfe
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
828 828
829 829
830 (defun jka-compr-installed-p () 830 (defun jka-compr-installed-p ()
831 "Return non-nil if jka-compr is installed. 831 "Return non-nil if jka-compr is installed.
832 The return value is the entry in `file-name-handler-alist' for jka-compr." 832 The return value is the entry in `file-name-handler-alist' for jka-compr."
833 833 (rassq 'jka-compr-handler file-name-handler-alist))
834 (let ((fnha file-name-handler-alist)
835 (installed nil))
836
837 (while (and fnha (not installed))
838 (and (eq (cdr (car fnha)) 'jka-compr-handler)
839 (setq installed (car fnha)))
840 (setq fnha (cdr fnha)))
841
842 installed))
843 834
844 835
845 ;;; Add the file I/O hook if it does not already exist. 836 ;;; Add the file I/O hook if it does not already exist.
846 ;;; Make sure that jka-compr-file-name-handler-entry is eq to the 837 ;;; Make sure that jka-compr-file-name-handler-entry is eq to the
847 ;;; entry for jka-compr in file-name-handler-alist. 838 ;;; entry for jka-compr in file-name-handler-alist.