Function: pcmpl-gnu-zipped-files

pcmpl-gnu-zipped-files is a byte-compiled function defined in pcmpl-gnu.el.gz.

Signature

(pcmpl-gnu-zipped-files UNZIP-P)

Documentation

Find all zipped or unzipped files: the inverse of UNZIP-P.

Source Code

;; Defined in /usr/src/emacs/lisp/pcmpl-gnu.el.gz
(defun pcmpl-gnu-zipped-files (unzip-p)
  "Find all zipped or unzipped files: the inverse of UNZIP-P."
  (pcomplete-entries
   nil
   (lambda (entry)
     (or (file-directory-p entry)
         (when (and (file-readable-p entry)
                    (file-regular-p entry))
           (let ((zipped (string-match "\\.\\(t?gz\\|\\(ta\\)?Z\\)\\'"
                                       entry)))
             (or (and unzip-p zipped)
                 (and (not unzip-p) (not zipped)))))))))