Fix (null uniquify-buffer-name-style) errors from ivy

Errors out in Emacs 25.x
This commit is contained in:
Henrik Lissner 2019-07-17 16:00:12 +02:00
parent 92aab23ca0
commit 854d8ce00a
No known key found for this signature in database
GPG Key ID: 5F6C0EA160557395

View File

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