refactor
- Replaced `(set (make-local-variable 'foo) bar)` with `(setq-local foo bar)`
This commit is contained in:
parent
2c3bca670f
commit
f4067d6375
|
@ -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)
|
(when (string-match-p "%t" title-format)
|
||||||
(if (boundp 'spacemacs--buffer-project-name)
|
(if (boundp 'spacemacs--buffer-project-name)
|
||||||
spacemacs--buffer-project-name
|
spacemacs--buffer-project-name
|
||||||
(set (make-local-variable 'spacemacs--buffer-project-name)
|
(setq-local spacemacs--buffer-project-name
|
||||||
(if (fboundp 'projectile-project-name)
|
(if (fboundp 'projectile-project-name)
|
||||||
(projectile-project-name)
|
(projectile-project-name)
|
||||||
"-")))))
|
"-")))))
|
||||||
(abbreviated-file-name
|
(abbreviated-file-name
|
||||||
(when (string-match-p "%a" title-format)
|
(when (string-match-p "%a" title-format)
|
||||||
(if (boundp 'spacemacs--buffer-abbreviated-filename)
|
(if (boundp 'spacemacs--buffer-abbreviated-filename)
|
||||||
spacemacs--buffer-abbreviated-filename
|
spacemacs--buffer-abbreviated-filename
|
||||||
(set (make-local-variable
|
(setq-local spacemacs--buffer-abbreviated-filename
|
||||||
'spacemacs--buffer-abbreviated-filename)
|
(abbreviate-file-name (or (buffer-file-name)
|
||||||
(abbreviate-file-name (or (buffer-file-name)
|
(buffer-name)))))))
|
||||||
(buffer-name)))))))
|
|
||||||
(fs (format-spec-make
|
(fs (format-spec-make
|
||||||
?a abbreviated-file-name
|
?a abbreviated-file-name
|
||||||
?t project-name
|
?t project-name
|
||||||
|
|
Loading…
Reference in a new issue