diff options
Diffstat (limited to 'lisp/vc/vc-annotate.el')
| -rw-r--r-- | lisp/vc/vc-annotate.el | 18 |
1 files changed, 8 insertions, 10 deletions
diff --git a/lisp/vc/vc-annotate.el b/lisp/vc/vc-annotate.el index 5198bccf846..43d43e9c642 100644 --- a/lisp/vc/vc-annotate.el +++ b/lisp/vc/vc-annotate.el @@ -208,9 +208,8 @@ menu items." ;; it will become a list, to avoid initial annotations being invisible. (add-to-invisibility-spec 'foo) (remove-from-invisibility-spec 'foo) - (set (make-local-variable 'truncate-lines) t) - (set (make-local-variable 'font-lock-defaults) - '(vc-annotate-font-lock-keywords t)) + (setq-local truncate-lines t) + (setq-local font-lock-defaults '(vc-annotate-font-lock-keywords t)) (hack-dir-local-variables-non-file-buffer)) (defun vc-annotate-toggle-annotation-visibility () @@ -449,11 +448,10 @@ should be applied to the background or to the foreground." (with-current-buffer temp-buffer-name (unless (equal major-mode 'vc-annotate-mode) (vc-annotate-mode)) - (set (make-local-variable 'vc-annotate-backend) backend) - (set (make-local-variable 'vc-annotate-parent-file) file) - (set (make-local-variable 'vc-annotate-parent-rev) rev) - (set (make-local-variable 'vc-annotate-parent-display-mode) - display-mode)))) + (setq-local vc-annotate-backend backend) + (setq-local vc-annotate-parent-file file) + (setq-local vc-annotate-parent-rev rev) + (setq-local vc-annotate-parent-display-mode display-mode)))) (with-current-buffer temp-buffer-name (vc-run-delayed @@ -702,10 +700,10 @@ or OFFSET if present." RATIO is the expansion that should be applied to `vc-annotate-color-map'. The annotations are relative to the current time, unless overridden by OFFSET." (when (/= ratio 1.0) - (set (make-local-variable 'vc-annotate-color-map) + (setq-local vc-annotate-color-map (mapcar (lambda (elem) (cons (* (car elem) ratio) (cdr elem))) vc-annotate-color-map))) - (set (make-local-variable 'vc-annotate-offset) offset) + (setq-local vc-annotate-offset offset) (font-lock-mode 1)) (defun vc-annotate-lines (limit) |