diff options
| author | Stefan Kangas <stefan@marxist.se> | 2020-12-05 08:58:12 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2020-12-05 08:58:12 +0100 |
| commit | 5ef30fbf11c3ee0ff1c30061dab554b9bd3ce841 (patch) | |
| tree | b945fb8512d83e406526aae293964cb2d660f2c5 /lisp/vc/vc-mtn.el | |
| parent | c86dc8d4888bc0c5d56016c14c134123ec623072 (diff) | |
| download | emacs-5ef30fbf11c3ee0ff1c30061dab554b9bd3ce841.tar.gz emacs-5ef30fbf11c3ee0ff1c30061dab554b9bd3ce841.tar.bz2 emacs-5ef30fbf11c3ee0ff1c30061dab554b9bd3ce841.zip | |
Prefer setq-local in vc/*.el
* lisp/vc/add-log.el (find-change-log, change-log-mode):
* lisp/vc/cvs-status.el (cvs-status-mode):
* lisp/vc/diff-mode.el (diff-restrict-view, diff-find-file-name):
(diff-mode, diff-setup-whitespace, diff-apply-hunk):
* lisp/vc/diff.el (diff-no-select):
* lisp/vc/ediff-util.el (ediff-setup):
* lisp/vc/log-edit.el (log-edit, log-edit-mode):
* lisp/vc/log-view.el (log-view-mode):
* lisp/vc/pcvs.el (cvs-temp-buffer, cvs-make-cvs-buffer):
(cvs-update-filter, cvs-mode, cvs-mode-commit)
(cvs-mode-edit-log, cvs-vc-command-advice):
* lisp/vc/smerge-mode.el (smerge-match-conflict):
(smerge-ediff, smerge-mode):
* lisp/vc/vc-annotate.el (vc-annotate-mode):
(vc-annotate, vc-annotate-display):
* lisp/vc/vc-bzr.el (vc-bzr-log-view-mode):
* lisp/vc/vc-dir.el (vc-dir-mode):
* lisp/vc/vc-dispatcher.el (vc-setup-buffer):
(vc-compilation-mode, vc-start-logentry):
* lisp/vc/vc-git.el (vc-git-log-view-mode):
* lisp/vc/vc-hg.el (vc-hg-log-view-mode):
* lisp/vc/vc-hooks.el (vc-refresh-state):
* lisp/vc/vc-mtn.el (vc-mtn-log-view-mode):
* lisp/vc/vc-svn.el (vc-svn-log-view-mode):
* lisp/vc/vc.el (vc-register, vc-diff-internal):
(vc-find-revision-save, vc-find-revision-no-save):
(vc-log-internal-common, vc-region-history): Prefer setq-local.
Diffstat (limited to 'lisp/vc/vc-mtn.el')
| -rw-r--r-- | lisp/vc/vc-mtn.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/vc/vc-mtn.el b/lisp/vc/vc-mtn.el index 3c26ffc0e58..7797d194326 100644 --- a/lisp/vc/vc-mtn.el +++ b/lisp/vc/vc-mtn.el @@ -239,14 +239,14 @@ If LIMIT is non-nil, show no more than this many entries." (define-derived-mode vc-mtn-log-view-mode log-view-mode "Mtn-Log-View" ;; Don't match anything. - (set (make-local-variable 'log-view-file-re) regexp-unmatchable) - (set (make-local-variable 'log-view-per-file-logs) nil) + (setq-local log-view-file-re regexp-unmatchable) + (setq-local log-view-per-file-logs nil) ;; TODO: Use a more precise regexp than "[ |/]+" to avoid false positives ;; in the ChangeLog text. - (set (make-local-variable 'log-view-message-re) - "^[ |/]+Revision: \\([0-9a-f]+\\)") + (setq-local log-view-message-re + "^[ |/]+Revision: \\([0-9a-f]+\\)") (require 'add-log) ;For change-log faces. - (set (make-local-variable 'log-view-font-lock-keywords) + (setq-local log-view-font-lock-keywords (append log-view-font-lock-keywords '(("^[ |]+Author: \\(.*\\)" (1 'change-log-email)) ("^[ |]+Date: \\(.*\\)" (1 'change-log-date)))))) |