diff options
| author | André Spiegel <spiegel@gnu.org> | 2004-01-23 11:20:55 +0000 |
|---|---|---|
| committer | André Spiegel <spiegel@gnu.org> | 2004-01-23 11:20:55 +0000 |
| commit | 64fa2c4f107cb5f4cc77199bae05d855ab45a9a2 (patch) | |
| tree | 2d2ba0317747ee4c905b9fcd545de60db7ab0ba4 /lisp/vc.el | |
| parent | fe905025d02b1bea377447bd1282f7fcd32f918e (diff) | |
| download | emacs-64fa2c4f107cb5f4cc77199bae05d855ab45a9a2.tar.gz | |
(vc-annotate): Fix improper use of `make-local-variable' at the top
level of vc.el. (Patch by Benjamin Rutt.)
Diffstat (limited to 'lisp/vc.el')
| -rw-r--r-- | lisp/vc.el | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index faf35f57228..a41a4808e8d 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -7,7 +7,7 @@ ;; Maintainer: Andre Spiegel <spiegel@gnu.org> ;; Keywords: tools -;; $Id: vc.el,v 1.363 2004/01/21 11:05:51 uid65624 Exp $ +;; $Id: vc.el,v 1.364 2004/01/22 23:34:33 uid65624 Exp $ ;; This file is part of GNU Emacs. @@ -2816,9 +2816,6 @@ Uses `rcs2log' which only works for RCS and CVS." (defvar vc-annotate-parent-file nil) (defvar vc-annotate-parent-rev nil) (defvar vc-annotate-parent-display-mode nil) -(make-local-variable 'vc-annotate-parent-file) -(make-local-variable 'vc-annotate-parent-rev) -(make-local-variable 'vc-annotate-parent-display-mode) (defconst vc-annotate-font-lock-keywords ;; The fontification is done by vc-annotate-lines instead of font-lock. @@ -3038,9 +3035,10 @@ colors. `vc-annotate-background' specifies the background color." vc-annotate-version)) (save-excursion (set-buffer temp-buffer-name) - (setq vc-annotate-parent-file bfn) - (setq vc-annotate-parent-rev vc-annotate-version) - (setq vc-annotate-parent-display-mode vc-annotate-display-mode)) + (set (make-local-variable 'vc-annotate-parent-file) bfn) + (set (make-local-variable 'vc-annotate-parent-rev) vc-annotate-version) + (set (make-local-variable 'vc-annotate-parent-display-mode) + vc-annotate-display-mode)) ;; Don't use the temp-buffer-name until the buffer is created ;; (only after `with-output-to-temp-buffer'.) |