Lines Matching +defs:ring +defs:insert
405 With ARG, insert that many newlines.
426 (not (get-char-property (1- (point)) 'insert-behind-hooks))
428 (not (get-char-property (point) 'insert-in-front-hooks)))
443 ;; Call self-insert so that auto-fill, abbrev expansion etc. happens.
444 ;; Set last-command-char to tell self-insert what to insert.
451 (self-insert-command (prefix-numeric-value arg))
452 ;; If we get an error in self-insert-command, put point at right place.
488 If there is a fill prefix and/or a `left-margin', insert them
490 With arg N, insert N newlines."
502 (if do-fill-prefix (insert-and-inherit fill-prefix))))
510 If the current line starts with `fill-prefix', insert it on the new
511 line as well. With prefix ARG, don't insert `fill-prefix' on new line.
528 (if have-prfx (insert-and-inherit prefix))
623 "Reindent current line, insert newline, then indent the new line.
631 ;; Be careful to insert the newline before indenting the line.
640 (defun quoted-insert (arg)
641 "Read next input character and insert it.
654 insert characters when necessary.
676 (insert-and-inherit char)
709 (insert ?\s))))
735 (insert ?\s)))
1059 &optional eval-expression-insert-value)
1063 insert the result into the current buffer instead of printing it in
1090 (if eval-expression-insert-value
1263 (insert match-string)
1332 (insert
1771 With prefix argument, insert the COMMAND's output at point.
1795 insert output in current buffer. (This cannot be done asynchronously.)
1799 and you did not specify \"insert it in the current buffer\",
1806 If there is output and an error, and you did not specify \"insert it
1856 (insert "\f\n"))
1860 (format-insert-file error-file nil)
1939 (insert message))
2018 insert output in the current buffer.
2021 If REPLACE, the optional fifth argument, is non-nil, that means insert
2150 (insert "\f\n"))
2154 (format-insert-file error-file nil)
2399 is put in the kill ring, to make the new kill available to other
2418 of the Emacs kill ring should be used. If the function returns a
2420 should put this string in the kill ring as the latest kill.
2432 ;;;; The kill ring data structure.
2434 (defvar kill-ring nil
2436 Since the kill ring is supposed to interact nicely with cut-and-paste
2442 ring directly.")
2444 (defcustom kill-ring-max 60
2445 "*Maximum length of kill ring before oldest elements are thrown away."
2449 (defvar kill-ring-yank-pointer nil
2450 "The tail of the kill ring whose car is the last thing yanked.")
2453 "Make STRING the latest kill in the kill ring.
2454 Set `kill-ring-yank-pointer' to point to it.
2457 the front of the kill ring, rather than being added to the list.
2460 inserted into a buffer; see `insert-for-yank' for details.
2465 argument is not used by `insert-for-yank'. However, since Lisp code
2466 may access and use elements from the kill ring directly, the STRING
2476 (menu-bar-update-yank-menu string (and replace (car kill-ring))))
2477 (if (and replace kill-ring)
2478 (setcar kill-ring string)
2479 (push string kill-ring)
2480 (if (> (length kill-ring) kill-ring-max)
2481 (setcdr (nthcdr (1- kill-ring-max) kill-ring) nil)))
2482 (setq kill-ring-yank-pointer kill-ring)
2487 "Append STRING to the end of the latest kill in the kill ring.
2490 yank-handler text property to be set on the combined kill ring
2493 adds the combined string to the kill ring as a new element,
2496 (let* ((cur (car kill-ring)))
2506 kill ring and returned as the latest kill.
2515 ;; text to the kill ring, so Emacs doesn't try to own the
2520 (or kill-ring (error "Kill ring is empty"))
2522 (nthcdr (mod (- n (length kill-ring-yank-pointer))
2523 (length kill-ring))
2524 kill-ring)))
2526 (setq kill-ring-yank-pointer ARGth-kill-element))
2531 ;;;; Commands for manipulating the kill ring.
2544 This deletes the text from the buffer and saves it in the kill ring.
2546 \(If you want to kill and then yank immediately, use \\[kill-ring-save].)
2552 the text, but put the text in the kill ring anyway. This means that
2561 to make one entry in the kill ring.
2565 text. See `insert-for-yank'."
2574 ;; Add that string to the kill ring, one way or another.
2586 ;; the region's text in the kill ring, anyway.
2592 (progn (message "Read only text copied to kill ring") nil)
2614 (defun kill-ring-save (beg end)
2621 use \\[append-next-kill] before \\[kill-ring-save].
2688 Normally set from the UNDO element of a yank-handler; see `insert-for-yank'.")
2698 With argument N, insert the Nth previous kill.
2706 doc string for `insert-for-yank-1', which see."
2719 (insert-for-yank (current-kill arg))
2741 doc string for `insert-for-yank-1', which see.
2750 (insert-for-yank (current-kill (cond
2766 "Rotate the yanking point in the kill ring.
2799 Delete ARG chars, and kill (save in kill ring) if KILLP is non-nil.
2811 (insert-char ?\s col)
2866 the line, but put the line in the kill ring anyway. This means that
2874 ;; moves across the text that is copied to the kill ring.
2914 ;; ring entry and the text after point appended. Also, we
2916 ;; twice to the kill ring in read-only buffers.
3029 (defun insert-buffer (buffer)
3035 Don't call it from programs: use `insert-buffer-substring' instead!"
3047 (insert-buffer-substring (get-buffer buffer))
3069 (insert-buffer-substring oldbuf start end)
3087 (insert-buffer-substring oldbuf start end)))))
3102 (insert-buffer-substring oldbuf start end)))))
3172 (defvar mark-ring nil
3174 (make-variable-buffer-local 'mark-ring)
3175 (put 'mark-ring 'permanent-local t)
3177 (defcustom mark-ring-max 16
3178 "*Maximum size of mark ring. Start discarding off end if gets this big."
3182 (defvar global-mark-ring nil
3185 (defcustom global-mark-ring-max 16
3186 "*Maximum size of global mark ring. \
3192 "Jump to mark, and pop a new position for mark off the ring
3193 \(does not affect global mark ring\)."
3234 old mark position on local mark ring. Also push the old mark on
3235 global mark ring, if the previous mark was set in another buffer.
3241 position popped off the local mark ring \(this does not affect the global
3242 mark ring\). Use \\[pop-global-mark] to jump to a mark popped off the global
3243 mark ring \(see `pop-global-mark'\).
3247 off the local (or global) mark ring and jumps there.
3285 "Set mark at LOCATION (point, by default) and push old mark on mark ring.
3287 also push LOCATION on the global mark ring.
3295 (setq mark-ring (cons (copy-marker (mark-marker)) mark-ring))
3296 (when (> (length mark-ring) mark-ring-max)
3297 (move-marker (car (nthcdr mark-ring-max mark-ring)) nil)
3298 (setcdr (nthcdr (1- mark-ring-max) mark-ring) nil)))
3300 ;; Now push the mark on the global mark ring.
3301 (if (and global-mark-ring
3302 (eq (marker-buffer (car global-mark-ring)) (current-buffer)))
3306 (setq global-mark-ring (cons (copy-marker (mark-marker)) global-mark-ring))
3307 (when (> (length global-mark-ring) global-mark-ring-max)
3308 (move-marker (car (nthcdr global-mark-ring-max global-mark-ring)) nil)
3309 (setcdr (nthcdr (1- global-mark-ring-max) global-mark-ring) nil)))
3317 "Pop off mark ring into the buffer's actual mark.
3318 Does not set point. Does nothing if mark ring is empty."
3319 (when mark-ring
3320 (setq mark-ring (nconc mark-ring (list (copy-marker (mark-marker)))))
3321 (set-marker (mark-marker) (+ 0 (car mark-ring)) (current-buffer))
3322 (move-marker (car mark-ring) nil)
3324 (setq mark-ring (cdr mark-ring)))
3379 "Pop off global mark ring and jump to the top location."
3382 (while (and global-mark-ring (not (marker-buffer (car global-mark-ring))))
3383 (setq global-mark-ring (cdr global-mark-ring)))
3384 (or global-mark-ring
3386 (let* ((marker (car global-mark-ring))
3389 (setq global-mark-ring (nconc (cdr global-mark-ring)
3390 (list (car global-mark-ring))))
3435 (insert (if use-hard-newlines hard-newline "\n")))
3728 ;; (insert "a" (propertize "x" 'field t) (make-string 89 ?y))
4088 (insert (delete-and-extract-region (car pos1) (cdr pos1)))
4090 (insert word2))))
4177 "*String for filling to insert at front of new line, or nil for none."
4250 ;; since we would just insert the prefix again.
4395 such characters insert until the tab is filled in.
4396 \\[quoted-insert] still inserts characters in overwrite mode; this
4397 is supposed to make it easier to insert characters when necessary."
4413 \\[quoted-insert] replaces the text at the cursor, just as ordinary
4725 (insert (car (car other-headers)) ": "
4731 (insert body))
4753 to insert the raw text of the message being replied to.
4755 FUNCTION to ARGS, to insert the raw text of the original message.
4987 CHOICE - the string to insert in the buffer,
5001 "Switch to BUFFER and insert the completion choice CHOICE.
5031 (insert choice)
5179 ;; Maybe insert help string.
5183 (insert (substitute-command-keys
5185 (insert (substitute-command-keys
5393 (insert-buffer-substring buf)))
5636 ; 'insert-in-front-hooks '(minibuffer-prompt-insertion)))