Mercurial > emacs

comparison lisp/vc.el @ 51696:ca4a1b3128f7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-default-show-log-entry): Use with-no-warnings.
author Richard M. Stallman <rms@gnu.org>
date Mon, 30 Jun 2003 10:34:26 +0000
parents 1329f6a6c949
children 11d614bbf7e3
comparison
equal deleted inserted replaced
51695:3e0f0ad2d93d 51696:ca4a1b3128f7
5 5
6 ;; Author: FSF (see below for full credits) 6 ;; Author: FSF (see below for full credits)
7 ;; Maintainer: Andre Spiegel <spiegel@gnu.org> 7 ;; Maintainer: Andre Spiegel <spiegel@gnu.org>
8 ;; Keywords: tools 8 ;; Keywords: tools
9 9
10 ;; $Id: vc.el,v 1.355 2003/05/31 16:47:57 monnier Exp $ 10 ;; $Id: vc.el,v 1.356 2003/06/20 13:21:24 teirllm Exp $
11 11
12 ;; This file is part of GNU Emacs. 12 ;; This file is part of GNU Emacs.
13 13
14 ;; GNU Emacs is free software; you can redistribute it and/or modify 14 ;; GNU Emacs is free software; you can redistribute it and/or modify
15 ;; it under the terms of the GNU General Public License as published by 15 ;; it under the terms of the GNU General Public License as published by
2358 'show-log-entry 2358 'show-log-entry
2359 ',(vc-workfile-version file)) 2359 ',(vc-workfile-version file))
2360 (set-buffer-modified-p nil))))) 2360 (set-buffer-modified-p nil)))))
2361 2361
2362 (defun vc-default-show-log-entry (backend rev) 2362 (defun vc-default-show-log-entry (backend rev)
2363 (log-view-goto-rev rev)) 2363 (with-no-warnings
2364 (log-view-goto-rev rev)))
2364 2365
2365 (defun vc-default-comment-history (backend file) 2366 (defun vc-default-comment-history (backend file)
2366 "Return a string with all log entries stored in BACKEND for FILE." 2367 "Return a string with all log entries stored in BACKEND for FILE."
2367 (if (vc-find-backend-function backend 'print-log) 2368 (if (vc-find-backend-function backend 'print-log)
2368 (with-current-buffer "*vc*" 2369 (with-current-buffer "*vc*"