Mercurial > emacs

comparison lisp/vc-hooks.el @ 21669:9861518505cb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Dan Nicolaescu <done@ece.arizona.edu>
date Mon, 20 Apr 1998 02:34:53 +0000
parents 399e7453bf89
children bd22ccd2151e
comparison
equal deleted inserted replaced
21668:621dd51298ec 21669:9861518505cb
3 ;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998 Free Software Foundation, Inc. 3 ;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998 Free Software Foundation, Inc.
4 4
5 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> 5 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
6 ;; Maintainer: Andre Spiegel <spiegel@inf.fu-berlin.de> 6 ;; Maintainer: Andre Spiegel <spiegel@inf.fu-berlin.de>
7 7
8 ;; $Id: vc-hooks.el,v 1.104 1998/04/04 05:21:44 rms Exp spiegel $ 8 ;; $Id: vc-hooks.el,v 1.105 1998/04/05 18:44:35 spiegel Exp done $
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
123 123
124 It may be useful to set this if (say) you edit files in a directory 124 It may be useful to set this if (say) you edit files in a directory
125 containing corresponding RCS files but don't have RCS available; 125 containing corresponding RCS files but don't have RCS available;
126 similarly for other version control systems." 126 similarly for other version control systems."
127 :type 'boolean 127 :type 'boolean
128 :group 'vc) 128 :group 'vc
129 :version "20.3")
129 130
130 (defun vc-mistrust-permissions (file) 131 (defun vc-mistrust-permissions (file)
131 ;; Access function to the above. 132 ;; Access function to the above.
132 (or (eq vc-mistrust-permissions 't) 133 (or (eq vc-mistrust-permissions 't)
133 (and vc-mistrust-permissions 134 (and vc-mistrust-permissions