Lines Matching +defs:table +defs:insert +defs:sequence
250 (nbutlast (copy-sequence list) n)))
272 (defun number-sequence (from &optional to inc)
273 "Return a sequence of numbers from FROM to TO (both inclusive) as a list.
274 INC is the increment used between numbers in the sequence and defaults to 1.
287 \(number-sequence 0.4 0.6 0.2) returns the one element list \(0.4),
288 whereas \(number-sequence 0.4 0.8 0.2) returns a list with three
314 Contrast to `copy-sequence', which copies only along the cdrs. With second
326 (let ((i (length (setq tree (copy-sequence tree)))))
415 (delete elt (copy-sequence seq))))
422 (delq elt (copy-sequence list))
446 (define-key map [remap self-insert-command] 'undefined)
464 AFTER should be a single event type--a symbol or a character, not a sequence.
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)
527 This function creates a `keyboard-translate-table' if necessary
529 (or (char-table-p keyboard-translate-table)
530 (setq keyboard-translate-table
531 (make-char-table 'keyboard-translate-table nil)))
532 (aset keyboard-translate-table from to))
541 KEY is a key sequence; noninteractively, it is a string or vector
557 KEY is a key sequence; noninteractively, it is a string or vector
573 KEY is a string or vector representing a sequence of keystrokes."
579 KEY is a string or vector representing a sequence of keystrokes."
633 ;; Compare with equal if definition is a key sequence.
639 (let ((copy (copy-sequence menu-item)))
696 (defconst listify-key-sequence-1 (logior 128 (read "?\\M-\\^@")))
698 (defun listify-key-sequence (key)
699 "Convert a key sequence to a list of events."
704 (logxor c listify-key-sequence-1)
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")
944 (defun makehash (&optional test) (make-hash-table :test (or test 'eql)))
945 (make-obsolete 'makehash 'make-hash-table "22.1")
1105 (setq hook-value (delete function (copy-sequence hook-value))))
1173 (setq ordering (make-hash-table :weakness 'key :test 'eq))))
1611 "*Radix for \\[quoted-insert] and other uses of `read-quoted-char'.
1616 "*Radix for \\[quoted-insert] and other uses of `read-quoted-char'.
1625 specified character code. Any nondigit terminates the sequence.
1646 ;; We could try and use read-key-sequence instead, but then C-q ESC
1709 (prompt (copy-sequence prompt))
1805 ;; this-command-keys by read-key-sequence.
1945 insert-end)
1954 (insert-before-markers string)
1955 (setq insert-end (point))
1957 (if (< (window-end nil t) insert-end)
1985 (if insert-end
1987 (delete-region pos insert-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))
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)
2524 (defmacro with-case-table (table &rest body)
2525 "Execute the forms in BODY with TABLE as the current case table.
2528 (let ((old-case-table (make-symbol "table"))
2530 `(let ((,old-case-table (current-case-table))
2533 (progn (set-case-table ,table)
2536 (set-case-table ,old-case-table))))))
2541 (defmacro dynamic-completion-table (fun)
2542 "Use function FUN as a dynamic completion table.
2550 The result of the `dynamic-completion-table' form is a function
2567 (defmacro lazy-completion-table (var fun)
2574 ;; (lazy-completion-table var (lambda () (fun x y)))
2576 ;; (lazy-completion-table var `(lambda () (fun ',x ',y)))
2579 ;; (lazy-completion-table var (lambda () (fun x y))))
2581 "Initialize variable VAR as a lazy completion table.
2582 If the completion table VAR is used for the first time (e.g., by passing VAR
2584 arguments. FUN must return the completion table that will be stored in VAR.
2587 `lazy-completion-table' must be used to initialize the value of VAR.
2592 `(dynamic-completion-table
2599 "Create a completion table that first tries completion in A and then in B.
2801 (newstr (if inplace string (copy-sequence string))))
2887 (defmacro with-syntax-table (table &rest body)
2888 "Evaluate BODY with syntax table of current buffer set to TABLE.
2889 The syntax table of the current buffer is saved, BODY is evaluated, and the
2890 saved table is restored, even in case of an abnormal exit.
2893 (let ((old-table (make-symbol "table"))
2895 `(let ((,old-table (syntax-table))
2899 (set-syntax-table ,table)
2903 (set-syntax-table ,old-table))))))
2905 (defun make-syntax-table (&optional oldtable)
2906 "Return a new syntax table.
2907 Create a syntax table which inherits from OLDTABLE (if non-nil) or
2908 from `standard-syntax-table' otherwise."
2909 (let ((table (make-char-table 'syntax-table nil)))
2910 (set-char-table-parent table (or oldtable (standard-syntax-table)))
2911 table))
2918 (get-char-property pos 'syntax-table))))
2920 (aref (or st (syntax-table)) (char-after pos))))))
2973 (save-excursion (insert str))
2992 ;; with insert-(behind|in-front-of)-hooks or use a slightly larger overlay