Function: jka-compr-uninstall

jka-compr-uninstall is an autoloaded and byte-compiled function defined in jka-compr.el.gz.

Signature

(jka-compr-uninstall)

Documentation

Uninstall jka-compr.

This removes the entries in file-name-handler-alist and auto-mode-alist and inhibit-local-variables-suffixes that were added by jka-compr-install.

Source Code

;; Defined in /usr/src/emacs/lisp/jka-compr.el.gz
;;;###autoload
(defun jka-compr-uninstall ()
  "Uninstall jka-compr.
This removes the entries in `file-name-handler-alist' and `auto-mode-alist'
and `inhibit-local-variables-suffixes' that were added
by `jka-compr-install'."
  ;; Delete from inhibit-local-variables-suffixes what jka-compr-install added.
  (mapc
     (lambda (x)
       (and (jka-compr-info-strip-extension x)
            (setq inhibit-local-variables-suffixes
                  (delete (jka-compr-info-regexp x)
                          inhibit-local-variables-suffixes))))
     jka-compr-compression-info-list--internal)

  (let* ((fnha (cons nil file-name-handler-alist))
	 (last fnha))

    (while (cdr last)
      (if (eq (cdr (car (cdr last))) #'jka-compr-handler)
	  (setcdr last (cdr (cdr last)))
	(setq last (cdr last))))

    (setq file-name-handler-alist (cdr fnha)))

  (let* ((ama (cons nil auto-mode-alist))
	 (last ama)
	 entry)

    (while (cdr last)
      (setq entry (car (cdr last)))
      (if (or (member entry jka-compr-mode-alist-additions--internal)
	      (and (consp (cdr entry))
		   (eq (nth 2 entry) 'jka-compr)))
	  (setcdr last (cdr (cdr last)))
	(setq last (cdr last))))

    (setq auto-mode-alist (cdr ama)))

  (while jka-compr-added-to-file-coding-system-alist
    (setq file-coding-system-alist
          (delq (car (member (pop jka-compr-added-to-file-coding-system-alist)
                             file-coding-system-alist))
                file-coding-system-alist)))

  ;; Remove the suffixes that were added by jka-compr.
  (dolist (suff jka-compr-load-suffixes--internal)
    (setq load-file-rep-suffixes (delete suff load-file-rep-suffixes)))

  (setq jka-compr-compression-info-list--internal nil
	jka-compr-mode-alist-additions--internal nil
	jka-compr-load-suffixes--internal nil))