Skip to content
Snippets Groups Projects
Commit 49159d4e3211 authored by steveb's avatar steveb
Browse files

fix unguarded mule stuffs

parent 172f1ae2cf0d
No related branches found
No related tags found
No related merge requests found
1999-07-15 SL Baur <steve@beopen.com>
* jka-compr.el (jka-compr-install): Only diddle with
file-coding-system-alist in XEmacs with file-coding.
(jka-compr-uninstall): Ditto.
1999-06-29 SL Baur <steve@miho.m17n.org>
* Makefile (ELCS): ps-print.el removed.
......
......@@ -19,7 +19,7 @@
# This XEmacs package contains independent single file lisp packages
VERSION = 1.16
VERSION = 1.17
AUTHOR_VERSION =
MAINTAINER = XEmacs Development Team <xemacs-beta@xemacs.org>
PACKAGE = os-utils
......
......@@ -840,8 +840,9 @@
(setq file-name-handler-alist (cons jka-compr-file-name-handler-entry
file-name-handler-alist))
(setq jka-compr-added-to-file-coding-system-alist nil)
(when (boundp 'file-coding-system-alist)
(setq jka-compr-added-to-file-coding-system-alist nil))
(mapcar
(function (lambda (x)
;; Don't do multibyte encoding on the compressed files.
......@@ -844,10 +845,11 @@
(mapcar
(function (lambda (x)
;; Don't do multibyte encoding on the compressed files.
(when (boundp 'file-coding-system-alist)
(let ((elt (cons (jka-compr-info-regexp x)
'(no-conversion . no-conversion))))
(setq file-coding-system-alist
(cons elt file-coding-system-alist))
(setq jka-compr-added-to-file-coding-system-alist
(cons elt jka-compr-added-to-file-coding-system-alist)))
......@@ -848,10 +850,10 @@
(let ((elt (cons (jka-compr-info-regexp x)
'(no-conversion . no-conversion))))
(setq file-coding-system-alist
(cons elt file-coding-system-alist))
(setq jka-compr-added-to-file-coding-system-alist
(cons elt jka-compr-added-to-file-coding-system-alist)))
)
(and (jka-compr-info-strip-extension x)
;; Make entries in auto-mode-alist so that modes
;; are chosen right according to the file names
......@@ -916,6 +918,7 @@
(setq auto-mode-alist (cdr ama)))
(when (boundp 'file-coding-system-alist)
(let* ((ama (cons nil file-coding-system-alist))
(last ama)
entry)
......@@ -927,7 +930,7 @@
(setq last (cdr last))))
(setq file-coding-system-alist (cdr ama))))
)
(defun jka-compr-installed-p ()
"Return non-nil if jka-compr is installed.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment