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
|
||||
`+ivy-buffer-unreal-face'."
|
||||
(let ((b (get-buffer candidate)))
|
||||
(when-let* (((null uniquify-buffer-name-style))
|
||||
(file-path (buffer-file-name b))
|
||||
(uniquify-buffer-name-style 'forward))
|
||||
(setq candidate
|
||||
(uniquify-get-proposed-name
|
||||
(replace-regexp-in-string "<[0-9]+>$" "" (buffer-name b))
|
||||
(directory-file-name
|
||||
(if file-path
|
||||
(file-name-directory file-path)
|
||||
default-directory))
|
||||
1)))
|
||||
(when (null uniquify-buffer-name-style)
|
||||
(when-let* ((file-path (buffer-file-name b))
|
||||
(uniquify-buffer-name-style 'forward))
|
||||
(setq candidate
|
||||
(uniquify-get-proposed-name
|
||||
(replace-regexp-in-string "<[0-9]+>$" "" (buffer-name b))
|
||||
(directory-file-name
|
||||
(if file-path
|
||||
(file-name-directory file-path)
|
||||
default-directory))
|
||||
1))))
|
||||
(cond ((ignore-errors
|
||||
(file-remote-p
|
||||
(buffer-local-value 'default-directory b)))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue