Lines Matching +defs:insert +defs:char
446 (define-key map [remap self-insert-command] 'undefined)
453 (define-key map (char-to-string loop) 'digit-argument)
485 ;; When we reach AFTER's binding, insert the new binding after.
486 ;; If we reach an inherited keymap, insert just before that.
487 ;; If we reach the end of this keymap, insert at the end.
498 ;; Don't insert more than once.
523 (put 'keyboard-translate-table 'char-table-extra-slots 0)
529 (or (char-table-p keyboard-translate-table)
531 (make-char-table 'keyboard-translate-table nil)))
613 ;; Scan OLDMAP, finding each char or event-symbol that
616 (lambda (char defn)
617 (aset prefix1 (length prefix) char)
714 (char-valid-p (event-basic-type obj)))
736 (char (logand type (lognot (logior ?\M-\^@ ?\C-\^@ ?\S-\^@
741 (< char 32))
744 (/= char (downcase char)))
838 (goto-char (posn-point position))))
867 (x (/ (car pair) (frame-char-width frame)))
868 (y (/ (cdr pair) (+ (frame-char-height frame)
934 (make-obsolete 'char-bytes "now always returns 1." "20.4")
936 (defun insert-string (&rest args)
937 "Mocklisp-compatibility insert function.
938 Like the function `insert' except that any argument that is a number
941 (insert (if (integerp el) (number-to-string el) el))))
942 (make-obsolete 'insert-string 'insert "22.1")
963 (make-obsolete-variable 'directory-sep-char "do not use it." "21.1")
969 'unread-command-char
999 (defalias 'backward-delete-char 'delete-backward-char)
1610 (defvar read-quoted-char-radix 8
1611 "*Radix for \\[quoted-insert] and other uses of `read-quoted-char'.
1615 'read-quoted-char-radix 8
1616 "*Radix for \\[quoted-insert] and other uses of `read-quoted-char'.
1621 (defun read-quoted-char (&optional prompt)
1622 "Like `read-char', but do not allow quitting.
1630 The variable `read-quoted-char-radix' controls which radix to use
1632 (let ((message-log-max nil) done (first t) (code 0) char translated)
1636 (help-char nil)
1642 (setq char (read-event (and prompt (format "%s-" prompt)) t))
1645 ;; Note: `read-char' does it using the `ascii-character' property.
1649 (setq translated char)
1650 (let ((translation (lookup-key function-key-map (vector char))))
1655 (setq unread-command-events (list char)
1661 ((and (<= ?0 translated) (< translated (+ ?0 (min 10 read-quoted-char-radix))))
1662 (setq code (+ (* code read-quoted-char-radix) (- translated ?0)))
1665 (< (downcase translated) (+ ?a -10 (min 36 read-quoted-char-radix))))
1666 (setq code (+ (* code read-quoted-char-radix)
1672 (setq unread-command-events (list char)
1719 (setq c (read-char-exclusive nil t))
1727 (let* ((new-char (char-to-string c))
1728 (new-pass (concat pass new-char)))
1730 (clear-string new-char)
1929 (defun momentary-string-display (string pos &optional exit-char message)
1939 (or exit-char (setq exit-char ?\s))
1945 insert-end)
1949 (goto-char pos)
1954 (insert-before-markers string)
1955 (setq insert-end (point))
1957 (if (< (window-end nil t) insert-end)
1964 (goto-char pos)
1967 (single-key-description exit-char))
1968 (let (char)
1969 (if (integerp exit-char)
1972 (setq char (read-char))
1973 (or (eq char exit-char)
1974 (setq unread-command-events (list char))))
1976 ;; `exit-char' is a character, hence it differs
1977 ;; from char, which is an event.
1978 (setq unread-command-events (list char))))
1979 ;; `exit-char' can be an event, or an event description
1981 (setq char (read-event))
1982 (or (eq char exit-char)
1983 (eq char (event-convert-list exit-char))
1984 (setq unread-command-events (list char))))))
1985 (if insert-end
1987 (delete-region pos insert-end)))
2077 (forward-char 1))
2085 (goto-char (match-end 0))
2091 (forward-char 1))
2157 (let ((raw-field (get-char-property (field-beginning pos) 'field)))
2159 (get-char-property (1- (field-end pos)) 'field)
2175 (goto-char start)
2189 (goto-char run-end2))))
2190 (goto-char run-end)))))
2197 (defun insert-for-yank (string)
2198 "Calls `insert-for-yank-1' repetitively for each `yank-handler' segment.
2200 See `insert-for-yank-1' for more details."
2203 (insert-for-yank-1 (substring string 0 to))
2205 (insert-for-yank-1 string))
2207 (defun insert-for-yank-1 (string)
2211 `yank-excluded-properties'. Otherwise just like (insert STRING).
2214 the normal insert behavior is modified in various ways. The value of
2217 When FUNCTION is present and non-nil, it is called instead of `insert'
2218 to insert the string. FUNCTION takes one argument--the object to insert.
2220 passed to FUNCTION (or `insert'); for example, if FUNCTION is
2221 `yank-rectangle', PARAM may be a list of strings to insert as a
2241 (insert param))
2254 (goto-char opoint)
2263 (goto-char run-end)))))
2268 ;; If last inserted char has properties, mark them as rear-nonsticky.
2278 (defun insert-buffer-substring-no-properties (buffer &optional start end)
2284 (insert-buffer-substring buffer start end)
2288 (defun insert-buffer-substring-as-yank (buffer &optional start end)
2298 (insert-buffer-substring buffer start end)
2682 (goto-char pos)
2683 (backward-char 1)
2687 (goto-char pos)
2797 (defun subst-char-in-string (fromchar tochar string &optional inplace)
2846 ;; If we matched the empty string, make sure we advance by one char
2909 (let ((table (make-char-table 'syntax-table nil)))
2910 (set-char-table-parent table (or oldtable (standard-syntax-table)))
2914 "Return the raw syntax of the char after POS.
2918 (get-char-property pos 'syntax-table))))
2920 (aref (or st (syntax-table)) (char-after pos))))))
2943 (goto-char cbeg)
2971 (goto-char (- (overlay-end ol2) tail))
2973 (save-excursion (insert str))
2992 ;; with insert-(behind|in-front-of)-hooks or use a slightly larger overlay
2993 ;; (with a one-char margin at each end) with `t nil'.