comparison lisp/vc.el @ 49869:f614a2396578

(vc-binary-assoc, vc-binary-suffixes): Removed; these were accidentally left over.
author André Spiegel <spiegel@gnu.org>
date Wed, 19 Feb 2003 18:56:38 +0000
parents b48f8839a782
children 4dc2d45403ec
comparison
equal deleted inserted replaced
49868:466824c9db4a 49869:f614a2396578
4 4
5 ;; Author: FSF (see below for full credits) 5 ;; Author: FSF (see below for full credits)
6 ;; Maintainer: Andre Spiegel <spiegel@gnu.org> 6 ;; Maintainer: Andre Spiegel <spiegel@gnu.org>
7 ;; Keywords: tools 7 ;; Keywords: tools
8 8
9 ;; $Id: vc.el,v 1.348 2003/02/04 12:12:09 lektu Exp $ 9 ;; $Id: vc.el,v 1.349 2003/02/05 23:13:21 lektu 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
814 (pop-to-buffer vc-parent-buffer)) 814 (pop-to-buffer vc-parent-buffer))
815 (if (not (buffer-file-name)) 815 (if (not (buffer-file-name))
816 (error "Buffer %s is not associated with a file" (buffer-name)) 816 (error "Buffer %s is not associated with a file" (buffer-name))
817 (if (not (vc-backend (buffer-file-name))) 817 (if (not (vc-backend (buffer-file-name)))
818 (error "File %s is not under version control" (buffer-file-name)))))) 818 (error "File %s is not under version control" (buffer-file-name))))))
819
820 (defvar vc-binary-assoc nil)
821 (defvar vc-binary-suffixes
822 (if (memq system-type '(ms-dos windows-nt))
823 '(".exe" ".com" ".bat" ".cmd" ".btm" "")
824 '("")))
825 819
826 (defun vc-process-filter (p s) 820 (defun vc-process-filter (p s)
827 "An alternative output filter for async process P. 821 "An alternative output filter for async process P.
828 The only difference with the default filter is to insert S after markers." 822 The only difference with the default filter is to insert S after markers."
829 (with-current-buffer (process-buffer p) 823 (with-current-buffer (process-buffer p)