diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2025-12-20 20:46:19 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2025-12-20 20:46:19 +0100 |
| commit | d7a1cd6be27ef9aadd308cb20ee4e4602233a299 (patch) | |
| tree | 86ba02acc0f544ee835cd5b4310457ed3802f7e7 | |
| parent | 2514504aa108f2bdf96152d8ddd7197034a20f5b (diff) | |
corfu-popupinfo: Formatting
| -rw-r--r-- | extensions/corfu-popupinfo.el | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el index 537c98c..a34c08c 100644 --- a/extensions/corfu-popupinfo.el +++ b/extensions/corfu-popupinfo.el @@ -368,8 +368,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))) - (setq-local left-margin-width corfu-popupinfo-margin-width - right-margin-width corfu-popupinfo-margin-width) + (setq left-margin-width corfu-popupinfo-margin-width + right-margin-width corfu-popupinfo-margin-width) (when-let ((m (memq 'corfu-default (alist-get 'default face-remapping-alist)))) (setcar m 'corfu-popupinfo))) (corfu-popupinfo--hide) @@ -384,20 +384,20 @@ form (X Y WIDTH HEIGHT DIR)." (- (frame-pixel-width corfu-popupinfo--frame) border border) (- (frame-pixel-height corfu-popupinfo--frame) border border))))) (old-frame corfu-popupinfo--frame)) - (with-current-buffer corfu-popupinfo--buffer - (setq corfu-popupinfo--frame + (setq corfu-popupinfo--frame + (with-current-buffer corfu-popupinfo--buffer (corfu--make-frame corfu-popupinfo--frame - area-x area-y area-w area-h) - corfu-popupinfo--toggle t - corfu-popupinfo--lock-dir area-d - corfu-popupinfo--candidate candidate - corfu-popupinfo--coordinates new-coords) - ;; XXX HACK: Force margin update. For some reason, the call to - ;; `set-window-buffer' in `corfu--make-frame' is not effective the - ;; first time. Why does Emacs have all these quirks? - (unless (eq old-frame corfu-popupinfo--frame) - (set-window-buffer (frame-root-window corfu-popupinfo--frame) - corfu-popupinfo--buffer)))))))) + area-x area-y area-w area-h)) + corfu-popupinfo--toggle t + corfu-popupinfo--lock-dir area-d + corfu-popupinfo--candidate candidate + corfu-popupinfo--coordinates new-coords) + ;; XXX HACK: Force margin update. For some reason, the call to + ;; `set-window-buffer' in `corfu--make-frame' is not effective the + ;; first time. Why does Emacs have all these quirks? + (unless (eq old-frame corfu-popupinfo--frame) + (set-window-buffer (frame-root-window corfu-popupinfo--frame) + corfu-popupinfo--buffer))))))) (defun corfu-popupinfo--hide () "Clear the info popup buffer content and hide it." |