diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2024-11-01 11:34:51 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2024-11-01 11:34:51 +0100 |
| commit | c7e2aa41702c6a38f7253ae9c668c562b56a410a (patch) | |
| tree | 26f0a0d159a29b7e5e30109382df9acd6e3b07a2 /extensions | |
| parent | 84a6ece9f6ab3b94e932cfbfe6970a21b59d975c (diff) | |
corfu-popupinfo: Add constant corfu-popupinfo--buffer
Diffstat (limited to 'extensions')
| -rw-r--r-- | extensions/corfu-popupinfo.el | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el index c0d8ab6..b74da2a 100644 --- a/extensions/corfu-popupinfo.el +++ b/extensions/corfu-popupinfo.el @@ -159,6 +159,9 @@ all values are in pixels relative to the origin. See (defvar corfu-popupinfo--lock-dir nil "Locked position direction of the info popup.") +(defconst corfu-popupinfo--buffer " *corfu-popupinfo*" + "Buffer used by the popup.") + (defconst corfu-popupinfo--initial-state (mapcar (lambda (k) (cons k (symbol-value k))) @@ -244,7 +247,7 @@ all values are in pixels relative to the origin. See (max-height (* lh corfu-popupinfo-max-height)) (max-width (* cw corfu-popupinfo-max-width))) (or (when corfu-popupinfo-resize - (with-current-buffer " *corfu-popupinfo*" + (with-current-buffer corfu-popupinfo--buffer (cl-letf* (((window-dedicated-p) nil) ((window-buffer) (current-buffer)) (size (window-text-pixel-size @@ -352,7 +355,7 @@ form (X Y WIDTH HEIGHT DIR)." (coords-changed (not (equal new-coords corfu-popupinfo--coordinates)))) (when cand-changed (if-let ((content (funcall corfu-popupinfo--function candidate))) - (with-current-buffer (corfu--make-buffer " *corfu-popupinfo*") + (with-current-buffer (corfu--make-buffer corfu-popupinfo--buffer) (with-silent-modifications (erase-buffer) (insert content) @@ -376,7 +379,7 @@ form (X Y WIDTH HEIGHT DIR)." (setq corfu-popupinfo--frame (corfu--make-frame corfu-popupinfo--frame area-x area-y area-w area-h - " *corfu-popupinfo*") + corfu-popupinfo--buffer) corfu-popupinfo--toggle t corfu-popupinfo--lock-dir area-d corfu-popupinfo--candidate candidate @@ -387,7 +390,7 @@ form (X Y WIDTH HEIGHT DIR)." (when margin-quirk (set-window-buffer (frame-root-window corfu-popupinfo--frame) - " *corfu-popupinfo*"))))))) + corfu-popupinfo--buffer))))))) (defun corfu-popupinfo--hide () "Clear the info popup buffer content and hide it." @@ -402,7 +405,7 @@ visible, the other window is moved to beginning or end." (interactive "P") (if (corfu-popupinfo--visible-p) (with-selected-frame corfu-popupinfo--frame - (with-current-buffer " *corfu-popupinfo*" + (with-current-buffer corfu-popupinfo--buffer (with-no-warnings (end-of-buffer n)))) (end-of-buffer-other-window n))) @@ -423,7 +426,7 @@ the other window is scrolled." (interactive "p") (if (corfu-popupinfo--visible-p) (with-selected-frame corfu-popupinfo--frame - (with-current-buffer " *corfu-popupinfo*" + (with-current-buffer corfu-popupinfo--buffer (scroll-up n))) (scroll-other-window n))) |