TakeV
/
spacemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

refactor 

- Replaced `(set (make-local-variable 'foo) bar)` with `(setq-local foo bar)`
This commit is contained in:
Lucius Hu 2021-03-17 23:13:27 -04:00 committed by duianto
parent 2c3bca670f
commit f4067d6375
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
core/core-dotspacemacs.el
View File

@ -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