Mercurial > hg > xemacs-beta

comparison lisp/code-files.el @ 414:da8ed4261e83 r21-2-15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-15
author cvs
date Mon, 13 Aug 2007 11:21:38 +0200
parents 697ef44129c6
children ebe98a74bd68
comparison
equal deleted inserted replaced
413:901169e5ca31 414:da8ed4261e83
3 ;; Copyright (C) 1992,93,94,95 Free Software Foundation, Inc. 3 ;; Copyright (C) 1992,93,94,95 Free Software Foundation, Inc.
4 ;; Copyright (C) 1995 Amdahl Corporation. 4 ;; Copyright (C) 1995 Amdahl Corporation.
5 ;; Copyright (C) 1995 Sun Microsystems. 5 ;; Copyright (C) 1995 Sun Microsystems.
6 6
7 ;; This file is part of XEmacs. 7 ;; This file is part of XEmacs.
8
9 ;; This file is very similar to mule-files.el
10 8
11 ;; XEmacs is free software; you can redistribute it and/or modify it 9 ;; XEmacs is free software; you can redistribute it and/or modify it
12 ;; under the terms of the GNU General Public License as published by 10 ;; under the terms of the GNU General Public License as published by
13 ;; the Free Software Foundation; either version 2, or (at your option) 11 ;; the Free Software Foundation; either version 2, or (at your option)
14 ;; any later version. 12 ;; any later version.
21 ;; You should have received a copy of the GNU General Public License 19 ;; You should have received a copy of the GNU General Public License
22 ;; along with XEmacs; see the file COPYING. If not, write to the 20 ;; along with XEmacs; see the file COPYING. If not, write to the
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 21 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
24 ;; Boston, MA 02111-1307, USA. 22 ;; Boston, MA 02111-1307, USA.
25 23
24 ;;; Synched up with: Not synched.
25
26 ;;; Commentary: 26 ;;; Commentary:
27 27
28 ;;; Derived from mule.el in the original Mule but heavily modified 28 ;; Derived from mule.el in the original Mule but heavily modified
29 ;;; by Ben Wing. 29 ;; by Ben Wing.
30 30
31 ;; 1997/3/11 modified by MORIOKA Tomohiko to sync with Emacs 20 API. 31 ;; 1997/3/11 modified by MORIOKA Tomohiko to sync with Emacs 20 API.
32
33 ;; This file was derived from the former mule-files.el which has been removed
34 ;; as of XEmacs 21.2.15.
32 35
33 ;;; Code: 36 ;;; Code:
34 37
35 (setq-default buffer-file-coding-system 'no-conversion) 38 (setq-default buffer-file-coding-system 'no-conversion)
36 (put 'buffer-file-coding-system 'permanent-local t) 39 (put 'buffer-file-coding-system 'permanent-local t)
553 coding-system))) 556 coding-system)))
554 (run-hook-with-args 'write-region-post-hook 557 (run-hook-with-args 'write-region-post-hook
555 start end filename append visit lockname 558 start end filename append visit lockname
556 coding-system))) 559 coding-system)))
557 560
558 ;;; mule-files.el ends here 561 ;;; The following was all that remained in mule-files.el, so I moved it
562 ;;; here for neatness. -sb
563 (when (featurep 'mule)
564 (setq-default buffer-file-coding-system 'iso-2022-8))
565
566 ;;; code-files.el ends here