lisp/international/mule-cmds.el

91 	:enable 'default-enable-multibyte-characters))
94 	      :enable (file-readable-p
134 	      :enable buffer-file-name
151 	      :enable (null (memq window-system '(x w32 mac)))
170 	      :enable (get-buffer-process (current-buffer))
247 (defun toggle-enable-multibyte-characters (&optional arg)
248   "Change whether this buffer uses multibyte characters.
249 With arg, use multibyte characters if the arg is positive.
254 characters that the current buffer contains.
261 	 (if (null arg) (null enable-multibyte-characters)
263     (set-buffer-multibyte new-flag))
267   "Display the HELLO file which list up many languages and characters."
270   (let ((default-enable-multibyte-characters t)
344     (if (and default-enable-multibyte-characters
496 All coding systems in the list can safely encode any multibyte characters
499 If the text contains no multibyte characters, return a list of a single
503 	;; The text contains only ASCII characters.  Any coding
511 All coding systems in the list can safely encode any multibyte characters
514 If STRING contains no multibyte characters, return a list of a single
519   "Return a list of proper coding systems to encode characters of CHARSETS.
521 It actually checks at most the first 96 characters of each charset.
523 contain a coding system that can't encode all characters of the charset."
559 (defun find-multibyte-characters (from to &optional maxcount excludes)
560   "Find multibyte characters in the region specified by FROM and TO.
561 If FROM is a string, find multibyte characters in the string.
566   COUNT is a number of characters,
567   CHARs are the characters found from the character set.
571 For invalid characters, CHARs are actually strings."
620 or nil if all characters are encodable."
629       (message "All following characters are encodable by %s" coding-system))
657   ;; problematic characters and their positions for them by turning
749 		      " encountered characters it couldn't encode:\n")
794 and select the characters by RET) to jump to the place it appears,\n\
799    to remove or modify the problematic characters,\n\
801    the problematic characters).\n\n"))
1088                         a line of text written using characters appropriate
1118 The following keys take effect only when multibyte characters are
1119 globally disabled, i.e. the value of `default-enable-multibyte-characters'
1126   unibyte-display    value is a coding system to encode characters
1129 			but as non-ASCII characters in this language
1166 	    ((and (not default-enable-multibyte-characters)
1412 	 ;; minibuffer, we must enable it even if
1413 	 ;; enable-recursive-minibuffers is currently nil.
1414 	 (enable-recursive-minibuffers t)
1501 The normal action is to enable an input method if none was
1503 to enable can be determined in various ways--either the one most
1509 and enable that one.  The default is the most recent input method specified
1756   ;; This function formerly set default-enable-multibyte-characters to t,
1757   ;; but that is incorrect.  It should not alter the unibyte/multibyte choice.
1892   (unless default-enable-multibyte-characters
1903   ;; Actually set up direct output of non-ASCII characters.
1905   ;; Unibyte Emacs on MS-DOS wants to display all 8-bit characters with
1908   (or (and (eq window-system 'pc) (not default-enable-multibyte-characters))
1957   "Do unibyte/multibyte translation setup for language environment LANGUAGE-NAME."
1997 	(let ((set-case-syntax-set-multibyte nil))
2445 the characters `-' and `_' as insignificant.  The coding system base
2584 	  ;; to do it for both unibyte and multibyte modes.
2587 	  ;; If default-enable-multibyte-characters is nil,
2588 	  ;; we are using single-byte characters,
2590 	  (when default-enable-multibyte-characters
2737   (let ((str1 (string-as-multibyte (char-to-string char)))
2738 	(str2 (string-as-multibyte (make-string 2 char)))