Mercurial > emacs

comparison lisp/vc-hooks.el @ 54912:08fcaad03634

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-default-workfile-unchanged-p): Quote signal.
author André Spiegel <spiegel@gnu.org>
date Fri, 16 Apr 2004 10:21:51 +0000
parents 507f2c946725
children a856350e29d5 9cb7ecf775c9
comparison
equal deleted inserted replaced
54911:40b3b405fe21 54912:08fcaad03634
4 ;; Free Software Foundation, Inc. 4 ;; Free Software Foundation, Inc.
5 5
6 ;; Author: FSF (see vc.el for full credits) 6 ;; Author: FSF (see vc.el for full credits)
7 ;; Maintainer: Andre Spiegel <spiegel@gnu.org> 7 ;; Maintainer: Andre Spiegel <spiegel@gnu.org>
8 8
9 ;; $Id: vc-hooks.el,v 1.165 2004/03/28 17:38:03 monnier Exp $ 9 ;; $Id: vc-hooks.el,v 1.166 2004/04/11 15:03:21 spiegel Exp $
10 10
11 ;; This file is part of GNU Emacs. 11 ;; This file is part of GNU Emacs.
12 12
13 ;; GNU Emacs is free software; you can redistribute it and/or modify 13 ;; GNU Emacs is free software; you can redistribute it and/or modify
14 ;; it under the terms of the GNU General Public License as published by 14 ;; it under the terms of the GNU General Public License as published by
473 (if (or (not (eq (cadr err) 473 (if (or (not (eq (cadr err)
474 (indirect-function 474 (indirect-function
475 (vc-find-backend-function (vc-backend file) 475 (vc-find-backend-function (vc-backend file)
476 'diff)))) 476 'diff))))
477 (not (eq (caddr err) 5))) 477 (not (eq (caddr err) 5)))
478 (signal wrong-number-of-arguments err) 478 (signal 'wrong-number-of-arguments err)
479 (vc-call diff file)))))) 479 (vc-call diff file))))))
480 480
481 (defun vc-workfile-version (file) 481 (defun vc-workfile-version (file)
482 "Return the version level of the current workfile FILE. 482 "Return the version level of the current workfile FILE.
483 If FILE is not registered, this function always returns nil." 483 If FILE is not registered, this function always returns nil."