From 7ec4806e71fd2b51f8925f6e4d60db3fbf946b7e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 13 Jul 1998 01:10:09 +0000 Subject: [PATCH] (jka-compr-insert-file-contents): Replace incorrect inline code with call to find-operation-coding-system. --- lisp/jka-compr.el | 14 ++++---------- 1 file changed, 4 insertions(+), 10 deletions(-) diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el index 23c4eccf674..fc53a0b329a 100644 --- a/lisp/jka-compr.el +++ b/lisp/jka-compr.el @@ -520,16 +520,10 @@ There should be no more than seven characters after the final `/'." ;; don't do that conversion. (and (null enable-multibyte-characters) 'raw-text) - (let ((tail file-coding-system-alist) - (newfile - (jka-compr-byte-compiler-base-file-name file)) - result) - (while tail - (if (string-match (car (car tail)) newfile) - (setq result (car (cdr (car tail))) - tail nil)) - (setq tail (cdr tail))) - result) + (let ((coding (find-operation-coding-system + 'insert-file-contents + (jka-compr-byte-compiler-base-file-name file)))) + (and (consp coding) (car coding))) 'undecided)) ) (setq local-file (or local-copy filename)) -- 2.39.2