Lines Matching +defs:char +defs:after
95 ;; after reading them.
102 (do-after-load-evaluation fullname))
211 (defmacro charset-iso-final-char (charset)
212 "Return final char of CHARSET.
266 (defun make-char (charset &optional code1 code2)
271 A generic character can be used to index a char table (e.g. `syntax-table').
283 (make-char-internal (charset-id charset) code1 code2))
285 (put 'make-char 'byte-compile
289 (cons 'make-char-internal
302 (defsubst generic-char-p (char)
304 See also the documentation of `make-char'."
305 (and (>= char 0400)
306 (let ((l (split-char char)))
310 (defun decode-char (ccs code-point &optional restriction)
330 (make-char 'latin-iso8859-1 code-point))
333 (make-char 'mule-unicode-0100-24ff
337 (make-char 'mule-unicode-2500-33ff
341 (make-char 'mule-unicode-e000-ffff
349 (defun encode-char (char ccs &optional restriction)
366 (let* ((split (split-char char))
371 (utf-lookup-subst-table-for-encode char))
374 (setq trans (aref table char))
376 (setq split (split-char trans)
379 (or trans char))
392 char))))))))
403 (up (char-table-extra-slot (standard-case-table) 0)))
404 (if up (set-char-table-extra-slot tbl 0 (copy-sequence up)))
405 (set-char-table-extra-slot tbl 1 nil)
406 (set-char-table-extra-slot tbl 2 nil)
544 (char-to-string val))))
619 (make-char charset start)
620 (make-char charset (+ start chars -1)))
623 (make-char charset (+ i start) start)
624 (make-char charset (+ i start) (+ start chars -1)))))))
626 (defalias 'register-char-codings 'ignore "")
627 (make-obsolete 'register-char-codings
631 (defconst char-coding-system-table nil
657 (let ((mnemonic (string-to-char (or (plist-get props 'mnemonic) "?")))
800 The value is a function to call after some text is inserted and
802 `after-insert-functions' are called. The argument of this
804 `after-insert-file-functions', i.e. LENGTH of the text inserted,
809 The value is a function to call after all functions in
829 The value is a char table. If a character has non-nil value in it,
1027 ;; If only safe-charsets is specified, make a char-table from
1028 ;; it, and store that char-table as the value of `safe-chars'.
1033 (setq safe-chars (make-char-table 'safe-chars))
1049 (aset safe-chars (make-char charset) t))))
1129 (put 'safe-chars 'char-table-extra-slots 0)
1405 be a char-table, in which case characters that have non-nil value
1406 in the char-table are the target.
1452 (let* ((M (char-after (+ pos 4)))
1453 (L (char-after (+ pos 5)))
1467 (forward-char bytes)
1470 (delete-char -3)
1473 (goto-char (point-min))
1476 ;; Return a char table of extended segment usage for each character.
1477 ;; Each value of the char table is nil, one of the elements of
1481 (let ((table (make-char-table 'translation-table)))
1482 (aset table (make-char 'mule-unicode-0100-24ff) 'utf-8)
1483 (aset table (make-char 'mule-unicode-2500-33ff) 'utf-8)
1484 (aset table (make-char 'mule-unicode-e000-ffff) 'utf-8)
1494 (aset table (make-char charset) slot))
1497 (aset table (make-char elt) slot)))
1498 ((char-table-p charset)
1499 (map-char-table #'(lambda (k v)
1531 (goto-char (setq last-pos (point-min)))
1536 last-encoding-info (aref encoding-table (char-after last-pos)))
1538 (goto-char (1+ last-pos))
1543 (aref encoding-table (following-char))))
1556 (goto-char last-pos)
1568 (goto-char last-pos)
1574 (forward-char 1)
1577 (goto-char (point-min))))
1627 (goto-char from)
1714 coding-system head-found tail-found pos char-trans)
1724 (goto-char tail-start)
1732 (goto-char head-start)
1736 (goto-char head-start)
1750 (setq char-trans (match-string 2)))))
1755 (when (and tail-found (or (not coding-system) (not char-trans)))
1756 (goto-char tail-start)
1762 ;; line. The suffix is what comes after "local variables:"
1778 (re-char-trans
1787 (forward-char -1) ; skip back \r or \n.
1790 (goto-char pos)
1797 (when (and (not char-trans)
1798 (re-search-forward re-char-trans tail-end t))
1799 (setq char-trans (match-string 1))))))
1802 ;; set char-trans to "nil".
1806 char-trans "nil"))))
1807 (when (and char-trans
1808 (not (setq char-trans (intern char-trans))))
1819 (goto-char (point-min))
1840 ;; after-insert-file-set-coding sets this value to
1852 (defun after-insert-file-set-coding (inserted &optional visit)
1853 "Set `buffer-file-coding-system' of current buffer after text is inserted.
1856 inserted, as figured in the situation after. The two numbers can be
2034 (goto-char (point-min))
2082 A translation table is a char table intended for character
2088 FROM can be a generic character (see `make-char'). In this case, TO is
2097 (let ((table (make-char-table 'translation-table))
2104 (from-rev (nreverse (split-char from)))
2107 (to-rev (nreverse (split-char to))))
2121 (or (> to-i 0) (not (generic-char-p to-alt))))
2124 (set-char-table-default table from to)
2151 (let ((table (make-char-table 'translation-table))
2152 (rev-table (make-char-table 'translation-table))
2160 (set-char-table-extra-slot table 0 rev-table)
2168 If the first element of ARGS is a char-table whose purpose is
2179 (let ((table (if (and (char-table-p (car args))
2180 (eq (char-table-subtype (car args))
2204 TABLE is a string or a char-table.
2207 If TABLE is a char-table, the element for character N is the mapping
2225 (or (char-table-p val)
2277 (put 'use-default-ascent 'char-table-extra-slots 0)
2278 (setq use-default-ascent (make-char-table 'use-default-ascent))
2279 (put 'ignore-relative-composition 'char-table-extra-slots 0)
2281 (make-char-table 'ignore-relative-composition))