/usr/share/emacs/site-lisp/lookup-el/evi-mule.el is in lookup-el 1.4.1-12.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 | ;;; evi-mule.el --- integrate some Mule futures
;; Copyright (C) 1999 Lookup Development Team <lookup@ring.gr.jp>
;; Author: Keisuke Nishida <kei@psn.net>
;; Version: $Id: evi-mule.el,v 1.1.1.1 2001/11/28 18:32:37 kazuhiko Exp $
;; This file is part of `evi'.
;; This program 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
;; of the License, or (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program; if not, write to the Free Software Foundation,
;; Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
;;; Code:
(defconst evi-mule-version
(if (boundp 'mule-version)
mule-version
(if (and (featurep 'xemacs) (featurep 'mule))
"3.0")))
(defconst evi-coding-system-table
(if (string< evi-mule-version "3.0")
'((no-conversion . *noconv*)
(binary . *noconv*)
(emacs-mule . *intern*)
(junet . *junet*)
(sjis . *sjis*)
(euc-jp . *euc-japan*)
(euc-jp-dos . *euc-japan*dos))))
(defun evi-coding-system (key)
(or (cdr (assq key evi-coding-system-table)) key))
(if (string< evi-mule-version "3.0")
(defsubst evi-define-program-coding-system (pattern val)
(define-program-coding-system nil pattern val))
(defsubst evi-define-program-coding-system (pattern val)
(add-to-list 'process-coding-system-alist (cons pattern val))))
(provide 'evi-mule)
;;; evi-mule.el ends here
|