Fix (null uniquify-buffer-name-style) errors from ivy
Errors out in Emacs 25.x
This commit is contained in:
parent
92aab23ca0
commit
854d8ce00a
1 changed files with 11 additions and 11 deletions
|
@ -20,17 +20,17 @@
|
||||||
Buffers that are considered unreal (see `doom-real-buffer-p') are dimmed with
|
Buffers that are considered unreal (see `doom-real-buffer-p') are dimmed with
|
||||||
`+ivy-buffer-unreal-face'."
|
`+ivy-buffer-unreal-face'."
|
||||||
(let ((b (get-buffer candidate)))
|
(let ((b (get-buffer candidate)))
|
||||||
(when-let* (((null uniquify-buffer-name-style))
|
(when (null uniquify-buffer-name-style)
|
||||||
(file-path (buffer-file-name b))
|
(when-let* ((file-path (buffer-file-name b))
|
||||||
(uniquify-buffer-name-style 'forward))
|
(uniquify-buffer-name-style 'forward))
|
||||||
(setq candidate
|
(setq candidate
|
||||||
(uniquify-get-proposed-name
|
(uniquify-get-proposed-name
|
||||||
(replace-regexp-in-string "<[0-9]+>$" "" (buffer-name b))
|
(replace-regexp-in-string "<[0-9]+>$" "" (buffer-name b))
|
||||||
(directory-file-name
|
(directory-file-name
|
||||||
(if file-path
|
(if file-path
|
||||||
(file-name-directory file-path)
|
(file-name-directory file-path)
|
||||||
default-directory))
|
default-directory))
|
||||||
1)))
|
1))))
|
||||||
(cond ((ignore-errors
|
(cond ((ignore-errors
|
||||||
(file-remote-p
|
(file-remote-p
|
||||||
(buffer-local-value 'default-directory b)))
|
(buffer-local-value 'default-directory b)))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue