comparison lisp/vc-hooks.el @ 47003:fe0d9d5309e4

(vc-kill-buffer-hook): Add it to kill-buffer-hook again.
author André Spiegel <spiegel@gnu.org>
date Fri, 23 Aug 2002 13:23:14 +0000
parents 2d147caabf88
children 31f2c4b2c82f
comparison
equal deleted inserted replaced
47002:b87254142b98 47003:fe0d9d5309e4
3 ;; Copyright (C) 1992,93,94,95,96,98,99,2000 Free Software Foundation, Inc. 3 ;; Copyright (C) 1992,93,94,95,96,98,99,2000 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-hooks.el,v 1.141 2002/07/19 13:26:11 spiegel Exp $ 8 ;; $Id: vc-hooks.el,v 1.142 2002/07/29 02:40:40 rms 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
683 (defun vc-kill-buffer-hook () 683 (defun vc-kill-buffer-hook ()
684 "Discard VC info about a file when we kill its buffer." 684 "Discard VC info about a file when we kill its buffer."
685 (if (buffer-file-name) 685 (if (buffer-file-name)
686 (vc-file-clearprops (buffer-file-name)))) 686 (vc-file-clearprops (buffer-file-name))))
687 687
688 ;; ??? DL: why is this not done? 688 (add-hook 'kill-buffer-hook 'vc-kill-buffer-hook)
689 ;;;(add-hook 'kill-buffer-hook 'vc-kill-buffer-hook)
690 689
691 ;; Now arrange for (autoloaded) bindings of the main package. 690 ;; Now arrange for (autoloaded) bindings of the main package.
692 ;; Bindings for this have to go in the global map, as we'll often 691 ;; Bindings for this have to go in the global map, as we'll often
693 ;; want to call them from random buffers. 692 ;; want to call them from random buffers.
694 693