Mercurial > emacs
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 |