diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2023-06-28 18:37:51 +0200 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2023-06-28 18:37:51 +0200 |
| commit | 9ec9f08428f232de05f0d0a19191c54ed60011bb (patch) | |
| tree | 7e94b2731d1e30201ac1d83217e70f94ab079ad1 | |
| parent | 491e4ec33ed028172556a21ac43e649eeba36d1f (diff) | |
Use correct format of corfu-popupinfo face remapping alist (Fix #342)
| -rw-r--r-- | extensions/corfu-popupinfo.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el index 2567346..53f79d8 100644 --- a/extensions/corfu-popupinfo.el +++ b/extensions/corfu-popupinfo.el @@ -354,8 +354,8 @@ form (X Y WIDTH HEIGHT DIR)." (goto-char (point-min))) (dolist (var corfu-popupinfo--buffer-parameters) (set (make-local-variable (car var)) (cdr var))) - (setf face-remapping-alist (copy-tree face-remapping-alist) - (alist-get 'default face-remapping-alist) 'corfu-popupinfo)) + (when-let ((m (memq 'corfu-default (alist-get 'default face-remapping-alist)))) + (setcar m 'corfu-popupinfo))) (unless (eq corfu-popupinfo--toggle 'init) (message "No %s available for `%s'" (car (last (split-string (symbol-name corfu-popupinfo--function) "-+"))) |