From f4067d63759bb31fdf6741e8bb0a82b0a1cfd0b5 Mon Sep 17 00:00:00 2001 From: Lucius Hu Date: Wed, 17 Mar 2021 23:13:27 -0400 Subject: [PATCH] refactor - Replaced `(set (make-local-variable 'foo) bar)` with `(setq-local foo bar)` --- core/core-dotspacemacs.el | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) diff --git a/core/core-dotspacemacs.el b/core/core-dotspacemacs.el index 8c31740b2..718ab0a0e 100644 --- a/core/core-dotspacemacs.el +++ b/core/core-dotspacemacs.el @@ -984,18 +984,17 @@ If ARG is non nil then ask questions to the user before installing the dotfile." (when (string-match-p "%t" title-format) (if (boundp 'spacemacs--buffer-project-name) spacemacs--buffer-project-name - (set (make-local-variable 'spacemacs--buffer-project-name) - (if (fboundp 'projectile-project-name) - (projectile-project-name) - "-"))))) + (setq-local spacemacs--buffer-project-name + (if (fboundp 'projectile-project-name) + (projectile-project-name) + "-"))))) (abbreviated-file-name (when (string-match-p "%a" title-format) (if (boundp 'spacemacs--buffer-abbreviated-filename) spacemacs--buffer-abbreviated-filename - (set (make-local-variable - 'spacemacs--buffer-abbreviated-filename) - (abbreviate-file-name (or (buffer-file-name) - (buffer-name))))))) + (setq-local spacemacs--buffer-abbreviated-filename + (abbreviate-file-name (or (buffer-file-name) + (buffer-name))))))) (fs (format-spec-make ?a abbreviated-file-name ?t project-name