Mercurial > emacs
comparison lisp/vc-hooks.el @ 21669:9861518505cb
*** 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 |