mirror of
https://github.com/doomemacs/doomemacs
synced 2025-08-01 12:17:25 -05:00
Fix (null uniquify-buffer-name-style) errors from ivy
Errors out in Emacs 25.x
This commit is contained in:
@ -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)))
|
||||
|
Reference in New Issue
Block a user