Lines Matching defs:comment
62 ("\M-n" . log-edit-next-comment)
63 ("\M-p" . log-edit-previous-comment)
64 ("\M-r" . log-edit-comment-search-backward)
65 ("\M-s" . log-edit-comment-search-forward)
86 ["Previous comment" log-edit-previous-comment]
87 ["Next comment" log-edit-next-comment]
88 ["Search comment forward" log-edit-comment-search-forward]
89 ["Search comment backward" log-edit-comment-search-backward]))
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)
183 (defvar log-edit-last-comment-match "")
185 (defun log-edit-new-comment-index (stride len)
186 "Return the comment index STRIDE elements from the current one.
187 LEN is the length of `log-edit-comment-ring'."
189 (log-edit-comment-ring-index (+ log-edit-comment-ring-index stride))
197 (defun log-edit-previous-comment (arg)
198 "Cycle backwards through comment history.
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)))))
210 (defun log-edit-next-comment (arg)
211 "Cycle forwards through comment history.
214 (log-edit-previous-comment (- arg)))
216 (defun log-edit-comment-search-backward (str &optional stride)
217 "Search backwards through comment history for substring match of STR.
219 when going through the comment ring."
222 (list (read-string "Comment substring: " nil nil log-edit-last-comment-match)))
225 (setq str log-edit-last-comment-match)
226 (setq log-edit-last-comment-match str))
228 (len (ring-length log-edit-comment-ring))
229 (n (log-edit-new-comment-index stride len)))
231 (not (string-match str (ring-ref log-edit-comment-ring n))))
233 (setq log-edit-comment-ring-index n)
234 (log-edit-previous-comment 0)))
236 (defun log-edit-comment-search-forward (str)
237 "Search forwards through comment history for a substring match of STR."
239 (list (read-string "Comment substring: " nil nil log-edit-last-comment-match)))
240 (log-edit-comment-search-backward str -1))
242 (defun log-edit-comment-to-change-log (&optional whoami file-name)
243 "Enter last VC comment into the change log for the current file.
253 (let (;; Extract the comment first so we get any error before doing anything.
254 (comment (ring-ref log-edit-comment-ring 0))
260 ;; Insert the VC comment, leaving point before it.
261 (setq end (save-excursion (insert comment) (point-marker)))
266 ;; Canonicalize the white space between the file name and comment.
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")
289 (define-obsolete-function-alias 'vc-previous-comment 'log-edit-previous-comment "22.1")
290 (define-obsolete-function-alias 'vc-next-comment 'log-edit-next-comment "22.1")
291 (define-obsolete-function-alias 'vc-comment-search-reverse 'log-edit-comment-search-backward "22.1")
292 (define-obsolete-function-alias 'vc-comment-search-forward 'log-edit-comment-search-forward "22.1")
293 (define-obsolete-function-alias 'vc-comment-to-change-log 'log-edit-comment-to-change-log "22.1")
344 (make-local-variable 'log-edit-comment-ring-index))
372 (let ((comment (buffer-string)))
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)))
467 (unless (string= (buffer-string) (ring-ref log-edit-comment-ring 0))
468 (ring-insert log-edit-comment-ring (buffer-string)))
472 (log-edit-comment-to-change-log)))))