Lines Matching +defs:ring +defs:insert
52 (defvar xscheme-expressions-ring-max 30
53 "*Maximum length of Scheme expressions ring.")
55 (defvar xscheme-expressions-ring nil
58 (defvar xscheme-expressions-ring-yank-pointer nil
59 "The tail of the Scheme expressions ring whose car is the last thing yanked.")
66 "If non-nil, insert markers in the scheme input stream to indicate when
105 '(xscheme-expressions-ring
106 xscheme-expressions-ring-yank-pointer
145 "String to insert into Scheme process buffer first time it is started.
378 disabled, and the keys which normally self insert instead send
511 (define-key keymap (char-to-string char) 'scheme-debugger-self-insert)
522 (defun scheme-debugger-self-insert ()
565 (xscheme-insert-expression string))))
587 ;;;; Scheme expressions ring
589 (defun xscheme-insert-expression (string)
590 (setq xscheme-expressions-ring-yank-pointer
591 (add-to-history 'xscheme-expressions-ring string
592 xscheme-expressions-ring-max)))
595 "Rotate the yanking point in the kill ring."
597 (let ((length (length xscheme-expressions-ring)))
599 (error "Scheme expression ring is empty")
600 (setq xscheme-expressions-ring-yank-pointer
604 (length xscheme-expressions-ring-yank-pointer)))
609 xscheme-expressions-ring))))))
621 (insert (car xscheme-expressions-ring-yank-pointer))
653 (insert (car xscheme-expressions-ring-yank-pointer))
681 (insert-before-markers ?\n))
725 (insert ?\n)
754 (insert-before-markers "*** output flushed ***\n"))))))
831 (insert-before-markers
1064 (insert-before-markers (substring string 0 start))
1068 (insert-before-markers ?\n))
1069 (insert-before-markers ?\f))
1072 (insert-before-markers string)
1090 (insert-before-markers ?\n)