Lines Matching +defs:safe +defs:charsets
504 ;; systems are safe.
518 (defun find-coding-systems-for-charsets (charsets)
524 (cond ((or (null charsets)
525 (and (= (length charsets) 1)
526 (eq 'ascii (car charsets))))
528 ((or (memq 'eight-bit-control charsets)
529 (memq 'eight-bit-graphic charsets))
534 (while (and codings charsets)
535 (setq charset (car charsets) charsets (cdr charsets))
640 (defvar select-safe-coding-system-accept-default-p nil
643 function `select-safe-coding-system' (which see). This variable
646 (defun select-safe-coding-system-interactively (from to codings unsafe
650 CODINGS is the list of base coding systems known to be safe for this region,
653 REJECTED is a list of coding systems which were safe but for some reason
677 ;; Change each safe coding system to the corresponding
797 one of the safe coding systems listed below,\n\
820 (defun select-safe-coding-system (from to &optional default-coding-system
822 "Ask a user to select a safe coding system from candidates.
857 The variable `select-safe-coding-system-accept-default-p', if
947 (if select-safe-coding-system-accept-default-p
948 (setq accept-default-p select-safe-coding-system-accept-default-p))
969 safe rejected unsafe)
973 ;; Reverse the list so that elements are accumulated in safe,
977 ;; Classify the defaults into safe, rejected, and unsafe.
983 (push (car elt) safe))
985 (if safe
986 (setq coding-system (car safe))))
990 (setq coding-system (select-safe-coding-system-interactively
1035 (setq select-safe-coding-system-function 'select-safe-coding-system)
1056 (if (fboundp select-safe-coding-system-function)
1058 (funcall select-safe-coding-system-function
1710 (or (car-safe (assoc-string
1979 (if (memq charset utf-translate-cjk-charsets)
2028 ;; charsets, and coding systems. This function is intended to be
2739 (safe-chars (and coding-system
2740 (coding-system-get coding-system 'safe-chars)))
2743 (when (or (eq safe-chars t)
2745 (and safe-chars (aref safe-chars char)))