Lines Matching +defs:ring +defs:insert
34 (defvar viper-minibuffer-insert-face)
45 (require 'ring)
176 ((eq viper-current-state 'insert-state)
177 (viper-change-cursor-color viper-insert-state-cursor-color frame))
197 'viper-saved-cursor-color-in-insert-mode))
212 (defsubst viper-get-saved-cursor-color-in-insert-mode ()
217 'viper-saved-cursor-color-in-insert-mode)
238 (t (viper-get-saved-cursor-color-in-insert-mode)))
478 (insert wcard)
482 (cond ((eq (char-after (point)) ?*) (insert ".")(forward-char 1))
483 ((eq (char-after (point)) ?.) (insert "\\")(forward-char 1))
484 ((eq (char-after (point)) ?\\) (insert "\\")(forward-char 1))
485 ((eq (char-after (point)) ??) (delete-char 1)(insert ".")))
499 (insert filespec)
519 ;;; Insertion ring
522 (defun viper-ring-rotate1 (ring dir)
523 (if (and (ring-p ring) (> (ring-length ring) 0))
525 (setcar ring (cond ((> dir 0)
526 (ring-plus1 (car ring) (ring-length ring)))
528 (ring-minus1 (car ring) (ring-length ring)))
530 (t (car ring))))
531 (viper-current-ring-item ring)
534 (defun viper-special-ring-rotate1 (ring dir)
537 repeating-insertion-from-ring))
538 (viper-ring-rotate1 ring dir)
540 (viper-ring-rotate1 ring 0)))
542 ;; current ring item; if N is given, then so many items back from the
544 (defun viper-current-ring-item (ring &optional n)
546 (if (and (ring-p ring) (> (ring-length ring) 0))
547 (aref (cdr (cdr ring)) (mod (- (car ring) 1 n) (ring-length ring)))))
549 ;; Push item onto ring. The second argument is a ring-variable, not value.
550 (defun viper-push-onto-ring (item ring-var)
551 (or (ring-p (eval ring-var))
552 (set ring-var (make-ring (eval (intern (format "%S-size" ring-var))))))
555 (equal item (viper-current-ring-item (eval ring-var))) ; or old stuff
560 ;; push-onto-ring function if `.' is simply repeating the last
562 ;; insert with a prefix argument, or if this-command-keys doesn't give
565 (and (eq ring-var 'viper-command-ring)
568 (viper-ring-insert (eval ring-var) item))
572 ;; removing elts from ring seems to break it
573 (defun viper-cleanup-ring (ring)
574 (or (< (ring-length ring) 2)
575 (null (viper-current-ring-item ring))
577 (if (equal (viper-current-ring-item ring)
578 (viper-current-ring-item ring 1))
579 (viper-ring-pop ring))))
581 ;; ring-remove seems to be buggy, so we concocted this for our purposes.
582 (defun viper-ring-pop (ring)
583 (let* ((ln (ring-length ring))
584 (vec (cdr (cdr ring)))
586 (hd (car ring))
587 (idx (max 0 (ring-minus1 hd ln)))
596 (setq hd (max 0 (ring-minus1 hd ln)))
598 (setcar ring hd) ; move head
599 (setcar (cdr ring) (max 0 (1- ln))) ; adjust length
603 (defun viper-ring-insert (ring item)
604 (let* ((ln (ring-length ring))
605 (vec (cdr (cdr ring)))
607 (hd (car ring))
614 (setcar ring (ring-plus1 hd ln)))
615 (setcar (cdr ring) (1+ ln))
616 (setcar ring (ring-plus1 vecpos-after-hd (1+ ln)))
673 (insert (format "%s '%S" var-name var-val)))
675 (if (not (bolp)) (insert "\n"))
676 (insert (format "(setq %s '%S)\n" var-name var-val)))
695 (if string (insert string))
830 (viper-restore-cursor-color 'after-insert-mode)
926 ;; like (set-mark-command nil) but doesn't push twice, if (car mark-ring)
929 (setq mark-ring (delete (viper-mark-marker) mark-ring))
1006 (viper-insert-intercept-minor-mode nil)
1008 (viper-insert-global-user-minor-mode nil)
1009 (viper-insert-local-user-minor-mode nil))
1272 (setq viper-related-files-and-buffers-ring
1273 (make-ring (1+ (length other-files-or-buffers))))
1275 (viper-ring-insert viper-related-files-and-buffers-ring elt))
1277 (viper-ring-insert viper-related-files-and-buffers-ring (buffer-name))