Re: [PATCH] xemacs-21.5: files.el to test for file-coding feature

I am not commiting this before I getting an expert opinion on the correctness of this fix for: > From: "Christian Nybø" <ch.qr(a)nybo.no&gt; > Subject: set-coding-system undefined > To: xemacs-beta(a)xemacs.org > Date: Wed, 27 Feb 2002 19:14:23 +0100 > Message-Id: <E16g8at-0002GR-00＠lapchr> Best regards, Adrian xemacs-21.5 Patch (cvs -f -z3 -q diff -u lisp/files.el): Index: lisp/files.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/files.el,v retrieving revision 1.46 diff -u -r1.46 files.el --- lisp/files.el 2002/01/10 00:24:29 1.46 +++ lisp/files.el 2002/02/27 20:24:52 ＠＠ -605,7 +605,7 ＠＠ coding system to use when decoding the file. Interactively, with a prefix argument, you will be prompted for the coding system." (interactive "FFind file: \nZCoding system: ") - (if codesys + (if (and codesys (featurep 'file-coding)) (let ((coding-system-for-read (get-coding-system codesys))) (switch-to-buffer (find-file-noselect filename))) ＠＠ -619,7 +619,7 ＠＠ coding system to use when decoding the file. Interactively, with a prefix argument, you will be prompted for the coding system." (interactive "FFind file in other window: \nZCoding system: ") - (if codesys + (if (and codesys (featurep 'file-coding)) (let ((coding-system-for-read (get-coding-system codesys))) (switch-to-buffer-other-window (find-file-noselect filename))) ＠＠ -631,7 +631,7 ＠＠ coding system to use when decoding the file. Interactively, with a prefix argument, you will be prompted for the coding system." (interactive "FFind file in other frame: \nZCoding system: ") - (if codesys + (if (and codesys (featurep 'file-coding)) (let ((coding-system-for-read (get-coding-system codesys))) (switch-to-buffer-other-frame (find-file-noselect filename))) ＠＠ -645,7 +645,7 ＠＠ coding system to use when decoding the file. Interactively, with a prefix argument, you will be prompted for the coding system." (interactive "fFind file read-only: \nZCoding system: ") - (if codesys + (if (and codesys (featurep 'file-coding)) (let ((coding-system-for-read (get-coding-system codesys))) (find-file filename)) ＠＠ -661,7 +661,7 ＠＠ coding system to use when decoding the file. Interactively, with a prefix argument, you will be prompted for the coding system." (interactive "fFind file read-only other window: \nZCoding system: ") - (if codesys + (if (and codesys (featurep 'file-coding)) (let ((coding-system-for-read (get-coding-system codesys))) (find-file-other-window filename)) ＠＠ -677,7 +677,7 ＠＠ coding system to use when decoding the file. Interactively, with a prefix argument, you will be prompted for the coding system." (interactive "fFind file read-only other frame: \nZCoding system: ") - (if codesys + (if (and codesys (featurep 'file-coding)) (let ((coding-system-for-read (get-coding-system codesys))) (find-file-other-frame filename)) ＠＠ -748,7 +748,7 ＠＠ (unwind-protect (progn (unlock-buffer) - (if codesys + (if (and codesys (featurep 'file-coding)) (let ((coding-system-for-read (get-coding-system codesys))) (find-file filename)) ＠＠ -1919,7 +1919,7 ＠＠ (set-visited-file-name filename))) (set-buffer-modified-p t) (setq buffer-read-only nil) - (if codesys + (if (and codesys (featurep 'file-coding)) (let ((buffer-file-coding-system (get-coding-system codesys))) (save-buffer)) (save-buffer))) ＠＠ -2592,7 +2592,7 ＠＠ (signal 'file-error (list "Opening input file" "file is a directory" filename))) (let ((tem - (if codesys + (if (and codesys (featurep 'file-coding)) (let ((coding-system-for-read (get-coding-system codesys))) (insert-file-contents filename)) ＠＠ -2608,7 +2608,7 ＠＠ coding system to use when encoding the file. Interactively, with a prefix argument, you will be prompted for the coding system." (interactive "r\nFAppend to file: \nZCoding system: ") - (if codesys + (if (and codesys (featurep 'file-coding)) (let ((buffer-file-coding-system (get-coding-system codesys))) (write-region start end filename t)) (write-region start end filename t))) -- Adrian Aichner mailto:adrian＠xemacs.org http://www.xemacs.org/