Re: [PATCH] xemacs-21.5: files.el to test for file-coding feature
>>>> "Ben" == Ben Wing <ben(a)666.com>
writes:
Ben> don't commit. file-coding is always enabled in ben-mule-21-5.
I won't.
Ben> Adrian Aichner wrote:
>
> 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>
> > 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/
--
Adrian Aichner
mailto:adrian＠xemacs.org
http://www.xemacs.org/