Lines Matching +defs:put +defs:text +defs:property
182 ;; very frequently while editing multilingual text. Now we can use
208 but text as the same way as CODING-SYSTEM.
236 (defun coding-system-change-text-conversion (coding-system coding)
237 "Return a coding system which differs from CODING-SYSTEM in text conversion.
238 The returned coding system converts text by CODING
241 how text is formatted automatically while decoding."
361 (coding-system-change-text-conversion
364 (coding-system-change-text-conversion
387 A coding system that requires automatic detection of text
462 ;; normally prefer utf-8 to it, and put
494 "Return a list of proper coding systems to encode a text between FROM and TO.
497 in the text.
499 If the text contains no multibyte characters, return a list of a single
503 ;; The text contains only ASCII characters. Any coding
530 '(raw-text emacs-mule))
568 Optional 3rd arg MAXCOUNT limits how many CHARs are put in the above list.
698 ;; Remove raw-text, emacs-mule and no-conversion unless nothing
701 (or (delq 'raw-text
704 '(raw-text emacs-mule no-conversion)))
731 (format " text\nin the buffer `%s'" bufname))
740 (insert "These safely encode the text in the buffer,
741 but are not recommended for encoding text in this context,
772 (insert-text-button
780 (insert-text-button
823 The candidates of coding systems which can safely encode a text
831 that safely encodes the text is normally selected silently and
860 Kludgy feature: if FROM is a string, the string is the target text,
933 ;; If the most preferred coding system has the property mime-charset,
1009 (setq coding-system (coding-system-change-text-conversion
1012 (setq auto-cs (coding-system-change-text-conversion
1087 sample-text value is an expression which is evalled to generate
1088 a line of text written using characters appropriate
1095 for saving text written in this language environment.
1185 (put 'current-language-environment 'custom-type
1197 where to put this language environment in the
1199 For example, (\"European\") means to put this language environment
1315 "The current input method for multilingual text.
1318 (put 'current-input-method 'permanent-local t)
1323 (put 'current-input-method-title 'permanent-local t)
1326 "*Default input method for multilingual text (a string).
1338 (put 'input-method-function 'permanent-local t)
1343 (put 'input-method-history 'permanent-local t)
1353 (put 'inactivate-current-input-method-function 'permanent-local t)
1359 (put 'describe-current-input-method-function 'permanent-local t)
1498 "Enable or disable multilingual text input method for the current buffer.
1626 "*If this flag is non-nil, input methods highlight partially-entered text.
1628 the text inserted so far is temporarily underlined.
1647 "Normal hook run just after an input method insert some chunk of text.")
1688 (put 'setup-specified-language-environment 'apropos-inhibit t)
1750 coding-category-raw-text raw-text
1766 coding-category-raw-text 'raw-text
1786 coding-category-raw-text
1809 (coding-system-change-text-conversion
1814 (coding-system-change-text-conversion
2025 (put 'describe-specified-language-support 'apropos-inhibit t)
2068 (let ((str (eval (get-language-info language-name 'sample-text))))
2070 (insert "Sample text:\n " str "\n\n")))
2372 ;; utf-8@euro exists, so put this last. (@euro really specifies
2391 ;; utf-8@euro exists, so put this after utf-8. (@euro really
2667 ;;; Charset property
2669 (defun get-charset-property (charset propname)
2670 "Return the value of CHARSET's PROPNAME property.
2672 (put-charset-property CHARSET PROPNAME VALUE)."
2676 (defun put-charset-property (charset propname value)
2677 "Store CHARSETS's PROPNAME property with value VALUE.
2678 It can be retrieved with `(get-charset-property CHARSET PROPNAME)'."
2681 (plist-put (charset-plist charset) propname value))))
2683 ;;; Character code property
2684 (put 'char-code-property-table 'char-table-extra-slots 0)
2686 (defvar char-code-property-table
2687 (make-char-table 'char-code-property-table)
2688 "Char-table containing a property list of each character code.
2690 See also the documentation of `get-char-code-property' and
2691 `put-char-code-property'.")
2693 (defun get-char-code-property (char propname)
2694 "Return the value of CHAR's PROPNAME property in `char-code-property-table'."
2695 (let ((plist (aref char-code-property-table char)))
2699 (defun put-char-code-property (char propname value)
2700 "Store CHAR's PROPNAME property with VALUE in `char-code-property-table'.
2701 It can be retrieved with `(get-char-code-property CHAR PROPNAME)'."
2702 (let ((plist (aref char-code-property-table char)))
2708 (aset char-code-property-table char (list propname value)))))
2747 ;; CHAR will put extra control sequences (usually to designate