From cc2837184401cfcd8323eff8317827ee01ef8168 Mon Sep 17 00:00:00 2001 From: Geoff Voelker Date: Sun, 20 Jul 1997 01:32:15 +0000 Subject: [PATCH] (modify-coding-system-alist): Move to mule.el --- lisp/international/mule-util.el | 53 --------------------------------- 1 file changed, 53 deletions(-) diff --git a/lisp/international/mule-util.el b/lisp/international/mule-util.el index b855a0b0e36..28a9c916e4b 100644 --- a/lisp/international/mule-util.el +++ b/lisp/international/mule-util.el @@ -278,59 +278,6 @@ If optional arg BASE-ONLY is non-nil, only base coding systems are listed." (setq tail (cdr tail)))) codings))) -;;;###autoload -(defun modify-coding-system-alist (target-type regexp coding-system) - "Modify one of look up tables for finding a coding system on I/O operation. -There are three of such tables, file-coding-system-alist, -process-coding-system-alist, and network-coding-system-alist. - -TARGET-TYPE specifies which of them to modify. -If it is `file', it affects file-coding-system-alist (which see). -If it is `process', it affects process-coding-system-alist (which see). -If it is `network', it affects network-codign-system-alist (which see). - -REGEXP is a regular expression matching a target of I/O operation. -The target is a file name if TARGET-TYPE is `file', a program name if -TARGET-TYPE is `process', or a network service name or a port number -to connect to if TARGET-TYPE is `network'. - -CODING-SYSTEM is a coding system to perform code conversion on the I/O -operation, or a cons of coding systems for decoding and encoding -respectively, or a function symbol which returns the cons." - (or (memq target-type '(file process network)) - (error "Invalid target type: %s" target-type)) - (or (stringp regexp) - (and (eq target-type 'network) (integerp regexp)) - (error "Invalid regular expression: %s" regexp)) - (if (symbolp coding-system) - (if (not (fboundp coding-system)) - (progn - (check-coding-system coding-system) - (setq coding-system (cons coding-system coding-system)))) - (check-coding-system (car coding-system)) - (check-coding-system (cdr coding-system))) - (cond ((eq target-type 'file) - (let ((slot (assoc regexp file-coding-system-alist))) - (if slot - (setcdr slot coding-system) - (setq file-coding-system-alist - (cons (cons regexp coding-system) - file-coding-system-alist))))) - ((eq target-type 'process) - (let ((slot (assoc regexp process-coding-system-alist))) - (if slot - (setcdr slot coding-system) - (setq process-coding-system-alist - (cons (cons regexp coding-system) - process-coding-system-alist))))) - (t - (let ((slot (assoc regexp network-coding-system-alist))) - (if slot - (setcdr slot coding-system) - (setq network-coding-system-alist - (cons (cons regexp coding-system) - network-coding-system-alist))))))) - ;;;###autoload (defun coding-system-plist (coding-system) "Return property list of CODING-SYSTEM." -- 2.39.2