Mercurial > emacs

comparison lisp/log-edit.el @ 29398:8a911c182035

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(log-edit-done): Thinko in the "same comment" detection.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 02 Jun 2000 23:03:31 +0000
parents 429ae71326c2
children f4923452ea45
comparison
equal deleted inserted replaced
29397:9579da078de6 29398:8a911c182035
3 ;; Copyright (C) 1999-2000 Free Software Foundation, Inc. 3 ;; Copyright (C) 1999-2000 Free Software Foundation, Inc.
4 4
5 ;; Author: Stefan Monnier <monnier@cs.yale.edu> 5 ;; Author: Stefan Monnier <monnier@cs.yale.edu>
6 ;; Keywords: pcl-cvs cvs commit log 6 ;; Keywords: pcl-cvs cvs commit log
7 ;; Version: $Name: $ 7 ;; Version: $Name: $
8 ;; Revision: $Id: log-edit.el,v 1.5 2000/05/21 02:13:26 monnier Exp $ 8 ;; Revision: $Id: log-edit.el,v 1.6 2000/06/02 02:28:39 monnier Exp $
9 9
10 ;; This file is part of GNU Emacs. 10 ;; This file is part of GNU Emacs.
11 11
12 ;; GNU Emacs is free software; you can redistribute it and/or modify 12 ;; GNU Emacs is free software; you can redistribute it and/or modify
13 ;; it under the terms of the GNU General Public License as published by 13 ;; it under the terms of the GNU General Public License as published by
203 (buffer-name)))))) 203 (buffer-name))))))
204 (save-excursion 204 (save-excursion
205 (goto-char (point-max)) 205 (goto-char (point-max))
206 (insert ?\n))) 206 (insert ?\n)))
207 (let ((comment (buffer-string))) 207 (let ((comment (buffer-string)))
208 (when (and (boundp 'vc-comment-ring) (ring-p vc-comment-ring) 208 (when (and (boundp 'vc-comment-ring)
209 (ring-p vc-comment-ring)
210 (not (ring-empty-p vc-comment-ring))
209 (not (equal comment (ring-ref vc-comment-ring 0)))) 211 (not (equal comment (ring-ref vc-comment-ring 0))))
210 (ring-insert vc-comment-ring comment))) 212 (ring-insert vc-comment-ring comment)))
211 (let ((win (get-buffer-window log-edit-files-buf))) 213 (let ((win (get-buffer-window log-edit-files-buf)))
212 (if (and log-edit-confirm 214 (if (and log-edit-confirm
213 (not (and (eq log-edit-confirm 'changed) 215 (not (and (eq log-edit-confirm 'changed)