xemacs-beta: lisp/code-files.el comparison

comparison lisp/code-files.el @ 412:697ef44129c6 r21-2-14

Import from CVS: tag r21-2-14

author	cvs
date	Mon, 13 Aug 2007 11:20:41 +0200
parents	de805c49cfc1
children	da8ed4261e83

comparison

equal deleted inserted replaced

-:12e008d41344
+:697ef44129c6
 ;; Copyright (C) 1992,93,94,95 Free Software Foundation, Inc.
 ;; Copyright (C) 1995 Amdahl Corporation.
 ;; Copyright (C) 1995 Sun Microsystems.
 ;; This file is part of XEmacs.
+;; This file is very similar to mule-files.el
 ;; XEmacs is free software; you can redistribute it and/or modify it
 ;; under the terms of the GNU General Public License as published by
 ;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 ;; You should have received a copy of the GNU General Public License
 ;; along with XEmacs; see the file COPYING.  If not, write to the
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
-;;; Synched up with: Not synched.
 ;;; Commentary:
-;; Derived from mule.el in the original Mule but heavily modified
+;;; Derived from mule.el in the original Mule but heavily modified
-;; by Ben Wing.
+;;; by Ben Wing.
 ;; 1997/3/11 modified by MORIOKA Tomohiko to sync with Emacs 20 API.
-;; This file was derived from the former mule-files.el which has been removed
-;; as of XEmacs 21.2.15.
 ;;; Code:
-(setq-default buffer-file-coding-system 'raw-text)
+(setq-default buffer-file-coding-system 'no-conversion)
 (put 'buffer-file-coding-system 'permanent-local t)
 (define-obsolete-variable-alias
 'file-coding-system
 'buffer-file-coding-system)
 ,@(mapcar
 #'(lambda (regexp) (cons regexp 'binary)) binary-file-regexps)
 ("TUTORIAL\\.\\(?:hr\\|pl\\|ro\\)\\'" . iso-8859-2)
 ;; ("\\.\\(el\\|emacs\\|info\\(-[0-9]+\\)?\\|texi\\)$" . iso-2022-8)
 ;; ("\\(ChangeLog\\|CHANGES-beta\\)$" . iso-2022-8)
+("/spool/mail/.*$" . convert-mbox-coding-system))
-;; This idea is totally broken, and the code didn't work anyway.
-;; Mailboxes should be decoded by mail clients, who actually know
-;; how to deal with them.  Otherwise, their contents should be
-;; treated as `binary'.
-;("/spool/mail/.*$" . convert-mbox-coding-system)
-)
 "Alist to decide a coding system to use for a file I/O operation.
 The format is ((PATTERN . VAL) ...),
 where PATTERN is a regular expression matching a file name,
 VAL is a coding system, a cons of coding systems, or a function symbol.
 If VAL is a coding system, it is used for both decoding and encoding
 	)
 (cond ((consp codesys) (find-coding-system (cdr codesys)))
 	    ((find-coding-system codesys))
 	    ))))
-;; This is completely broken, not only in implementation (does not
+(defun convert-mbox-coding-system (filename visit start end)
-;; understand MIME), but in concept -- such high-level decoding should
+"Decoding function for Unix mailboxes.
-;; be done by mail readers, not by IO code!
+Does separate detection and decoding on each message, since each
+message might be in a different encoding."
-;(defun convert-mbox-coding-system (filename visit start end)
+(let ((buffer-read-only nil))
-;...
+(save-restriction
+(narrow-to-region start end)
+(goto-char (point-min))
+(while (not (eobp))
+	(let ((start (point))
+	      end)
+	  (forward-char 1)
+	  (if (re-search-forward "^From" nil 'move)
+	      (beginning-of-line))
+	  (setq end (point))
+	  (decode-coding-region start end 'undecided))))))
 (defun find-coding-system-magic-cookie ()
 "Look for the coding-system magic cookie in the current buffer.\n"
 "The coding-system magic cookie is the exact string\n"
 "\";;;###coding system: \" followed by a valid coding system symbol,\n"
 	   (or (and (not elc) coding-system-for-read) ; prefer for source file
 	       ;; find magic-cookie
 	       (save-excursion
 		 (set-buffer (get-buffer-create " *load*"))
 		 (erase-buffer)
-		 (let ((coding-system-for-read 'raw-text))
+		 (let ((coding-system-for-read 'no-conversion))
 		   (insert-file-contents path nil 1 3001))
 		 (find-coding-system-magic-cookie))
 	       (if elc
 		   ;; if reading a byte-compiled file and we didn't find
 		   ;; a coding-system magic cookie, then use `binary'.
 it means replace the current buffer contents (in the accessible portion)
 with the file contents.  This is better than simply deleting and inserting
 the whole thing because (1) it preserves some marker positions
 and (2) it puts less data in the undo list.
+NOTE: When Mule support is enabled, the REPLACE argument is
+currently ignored.
 The coding system used for decoding the file is determined as follows:
 1. `coding-system-for-read', if non-nil.
 2. The result of `insert-file-contents-pre-hook', if non-nil.
 3. The matching value for this filename from
 `file-coding-system-alist', if any.
 4. `buffer-file-coding-system-for-read', if non-nil.
-5. The coding system 'raw-text.
+5. The coding system 'no-conversion.
 If a local value for `buffer-file-coding-system' in the current buffer
 does not exist, it is set to the coding system which was actually used
 for reading.
 		 ;; #3.
 		 (find-file-coding-system-for-read-from-filename filename)
 		 ;; #4.
 		 buffer-file-coding-system-for-read
 		 ;; #5.
-		 'raw-text))
+		 'no-conversion))
 	  (if (consp coding-system)
 	      (setq return-val coding-system)
 	    (if (null (find-coding-system coding-system))
 		(progn
 		  (message
 			       coding-system)))
 (run-hook-with-args 'write-region-post-hook
 			start end filename append visit lockname
 			coding-system)))
-;;; The following was all that remained in mule-files.el, so I moved it
+;;; mule-files.el ends here
-;;; here for neatness.  -sb
-(when (featurep 'mule)
-(setq-default buffer-file-coding-system 'iso-2022-8))
-;;; code-files.el ends here

Mercurial > hg > xemacs-beta

comparison lisp/code-files.el @ 412:697ef44129c6 r21-2-14