diff options
| author | André Spiegel | 1998-04-05 18:54:35 +0000 |
|---|---|---|
| committer | André Spiegel | 1998-04-05 18:54:35 +0000 |
| commit | 421f0bfe8e2a798dc6605a439f9a1f268ef15f8d (patch) | |
| tree | 73c770a74b7a8a925ca00d1cd752505cb0f500bd | |
| parent | 68521d611f25a068b1642e5a46cc7b085b7e7dfe (diff) | |
| download | emacs-421f0bfe8e2a798dc6605a439f9a1f268ef15f8d.tar.gz emacs-421f0bfe8e2a798dc6605a439f9a1f268ef15f8d.zip | |
(vc-dired-mode): Make dired-after-readin-hook a local hook, not a local variable.
| -rw-r--r-- | lisp/vc.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index 4751b0de090..151cee9a6b5 100644 --- a/lisp/vc.el +++ b/lisp/vc.el | |||
| @@ -5,7 +5,7 @@ | |||
| 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.el,v 1.217 1998/04/05 18:43:15 spiegel Exp spiegel $ | 8 | ;; $Id: vc.el,v 1.218 1998/04/05 18:45:06 spiegel Exp spiegel $ |
| 9 | 9 | ||
| 10 | ;; This file is part of GNU Emacs. | 10 | ;; This file is part of GNU Emacs. |
| 11 | 11 | ||
| @@ -1603,8 +1603,8 @@ is redefined as the version control prefix, so that you can type | |||
| 1603 | the file named in the current Dired buffer line. `vv' invokes | 1603 | the file named in the current Dired buffer line. `vv' invokes |
| 1604 | `vc-next-action' on this file, or on all files currently marked. | 1604 | `vc-next-action' on this file, or on all files currently marked. |
| 1605 | There is a special command, `*l', to mark all files currently locked." | 1605 | There is a special command, `*l', to mark all files currently locked." |
| 1606 | (make-local-variable 'dired-after-readin-hook) | 1606 | (make-local-hook 'dired-after-readin-hook) |
| 1607 | (add-hook 'dired-after-readin-hook 'vc-dired-hook) | 1607 | (add-hook 'dired-after-readin-hook 'vc-dired-hook nil t) |
| 1608 | (setq vc-dired-mode t)) | 1608 | (setq vc-dired-mode t)) |
| 1609 | 1609 | ||
| 1610 | (define-key vc-dired-mode-map "\C-xv" vc-prefix-map) | 1610 | (define-key vc-dired-mode-map "\C-xv" vc-prefix-map) |