mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

(modify-coding-system-alist): Move to mule.el

Browse Source
This commit is contained in:
Geoff Voelker 1997-07-20 01:32:15 +00:00
parent fe831d33c5
commit cc28371844
1 changed files with 0 additions and 53 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
lisp/international/mule-util.el
View File

@ -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."