diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-07-13 01:10:09 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-07-13 01:10:09 +0000 |
| commit | 7ec4806e71fd2b51f8925f6e4d60db3fbf946b7e (patch) | |
| tree | b4b9839a311c8e92704792582dc282b60194ee6c /lisp/jka-compr.el | |
| parent | 0108f679e4334ee197cb0605cf0ad0fe23bd9c04 (diff) | |
| download | emacs-7ec4806e71fd2b51f8925f6e4d60db3fbf946b7e.tar.gz emacs-7ec4806e71fd2b51f8925f6e4d60db3fbf946b7e.tar.bz2 emacs-7ec4806e71fd2b51f8925f6e4d60db3fbf946b7e.zip | |
(jka-compr-insert-file-contents): Replace incorrect
inline code with call to find-operation-coding-system.
Diffstat (limited to 'lisp/jka-compr.el')
| -rw-r--r-- | lisp/jka-compr.el | 14 |
1 files 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)) |