Lines Matching +defs:ring +defs:insert
38 (require 'ring)
60 ("\C-c\C-a" . log-edit-insert-changelog)
80 ["Insert ChangeLog" log-edit-insert-changelog]
120 (defcustom log-edit-hook '(log-edit-insert-cvs-template
121 log-edit-insert-changelog)
124 :type '(hook :options (log-edit-insert-changelog
125 log-edit-insert-cvs-rcstemplate
126 log-edit-insert-cvs-template
127 log-edit-insert-filenames)))
179 (defconst log-edit-maximum-comment-ring-size 32
180 "Maximum number of saved comments in the comment ring.")
181 (defvar log-edit-comment-ring (make-ring log-edit-maximum-comment-ring-size))
182 (defvar log-edit-comment-ring-index nil)
187 LEN is the length of `log-edit-comment-ring'."
189 (log-edit-comment-ring-index (+ log-edit-comment-ring-index stride))
201 (let ((len (ring-length log-edit-comment-ring)))
203 (progn (message "Empty comment ring") (ding))
206 (setq log-edit-comment-ring-index (log-edit-new-comment-index arg len))
207 (message "Comment %d" (1+ log-edit-comment-ring-index))
208 (insert (ring-ref log-edit-comment-ring log-edit-comment-ring-index)))))
219 when going through the comment ring."
228 (len (ring-length log-edit-comment-ring))
231 (not (string-match str (ring-ref log-edit-comment-ring n))))
233 (setq log-edit-comment-ring-index n)
254 (comment (ring-ref log-edit-comment-ring 0))
255 ;; Don't let add-change-log-entry insert a defun name.
261 (setq end (save-excursion (insert comment) (point-marker)))
284 (insert "\n"))))
287 (define-obsolete-variable-alias 'vc-comment-ring 'log-edit-comment-ring "22.1")
288 (define-obsolete-variable-alias 'vc-comment-ring-index 'log-edit-comment-ring-index "22.1")
344 (make-local-variable 'log-edit-comment-ring-index))
371 (insert ?\n)))
373 (when (or (ring-empty-p log-edit-comment-ring)
374 (not (equal comment (ring-ref log-edit-comment-ring 0))))
375 (ring-insert log-edit-comment-ring comment)))
430 (cvs-insert-strings files)
438 (defun log-edit-insert-cvs-template ()
444 (insert-file-contents "CVS/Template"))))
446 (defun log-edit-insert-cvs-rcstemplate ()
457 (defun log-edit-insert-filenames ()
460 (insert "Affected files: \n"
467 (unless (string= (buffer-string) (ring-ref log-edit-comment-ring 0))
468 (ring-insert log-edit-comment-ring (buffer-string)))
475 (defun log-edit-insert-changelog (&optional use-first)
493 (or use-first (eq last-command 'log-edit-insert-changelog))))
494 (log-edit-insert-changelog-entries (log-edit-files)))
645 (defun log-edit-changelog-insert-entries (buffer regions)
653 (apply 'insert-buffer-substring buffer region))))
655 (defun log-edit-insert-changelog-entries (files)
656 "Given a list of files FILES, insert the ChangeLog entries for them."
671 (log-edit-changelog-insert-entries (car buffer-entry) (cdr buffer-entry))