Mercurial > emacs

comparison lisp/vc-sccs.el @ 44006:1d4bea19e7d4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-sccs-register): Fix handling of vc-[sccs-]register-switches.
author André Spiegel <spiegel@gnu.org>
date Mon, 18 Mar 2002 17:20:43 +0000
parents 4f17582ed40a
children 20dfef584009
comparison
equal deleted inserted replaced
44005:0d10b436b5d5 44006:1d4bea19e7d4
3 ;; Copyright (C) 1992,93,94,95,96,97,98,99,2000,2001 Free Software Foundation, Inc. 3 ;; Copyright (C) 1992,93,94,95,96,97,98,99,2000,2001 Free Software Foundation, Inc.
4 4
5 ;; Author: FSF (see vc.el for full credits) 5 ;; Author: FSF (see vc.el for full credits)
6 ;; Maintainer: Andre Spiegel <spiegel@gnu.org> 6 ;; Maintainer: Andre Spiegel <spiegel@gnu.org>
7 7
8 ;; $Id: vc-sccs.el,v 1.13 2001/08/28 17:05:55 spiegel Exp $ 8 ;; $Id: vc-sccs.el,v 1.14 2002/02/25 22:05:16 spiegel 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
159 `vc-register-switches' and `vc-sccs-register-switches' are passed to 159 `vc-register-switches' and `vc-sccs-register-switches' are passed to
160 the SCCS command (in that order). 160 the SCCS command (in that order).
161 161
162 Automatically retrieve a read-only version of the file with keywords 162 Automatically retrieve a read-only version of the file with keywords
163 expanded if `vc-keep-workfiles' is non-nil, otherwise, delete the workfile." 163 expanded if `vc-keep-workfiles' is non-nil, otherwise, delete the workfile."
164 (let* ((switches (list 164 (let* ((switches (append
165 (if (stringp vc-register-switches) 165 (if (stringp vc-register-switches)
166 (list vc-register-switches) 166 (list vc-register-switches)
167 vc-register-switches) 167 vc-register-switches)
168 (if (stringp vc-sccs-register-switches) 168 (if (stringp vc-sccs-register-switches)
169 (list vc-sccs-register-switches) 169 (list vc-sccs-register-switches)