Zander671/emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix error handling in crofu-terminal-popupinfo.el

Browse Source
This commit is contained in:
Alexander Rosenberg 2024-11-05 08:50:06 -08:00
parent ac07328aca
commit 998d5cf3fa
Signed by: Zander671
GPG Key ID: 5FD0394ADBD72730
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
elisp/corfu-terminal-popupinfo.el
View File

@ -87,7 +87,9 @@ As this is :around advice, OLDFUN is the real (advised) function to call."
(goto-char (point-min))
(put-text-property (point-min) (point-max) 'face 'corfu-popupinfo)
(when-let ((m (memq 'corfu-default (alist-get 'default face-remapping-alist))))
(setcar m 'corfu-popupinfo)))))
(setcar m 'corfu-popupinfo)))
;; We succeeded in loading the data
t))
(defun ctp--popon-position (buffer)
"Find a good position to open the popon for BUFFER's content.
@ -201,10 +203,12 @@ CANDIDATE is the same as for `corfu-popupinfo--show'. As this is meant to be
(not (corfu--equal-including-properties
candidate corfu-popupinfo--candidate)))
(let ((buf (ctp--get-buffer)))
(ctp--load-content candidate buf)
(ctp--display-buffer buf))
(setq corfu-popupinfo--candidate candidate
corfu-popupinfo--toggle t))))
(if (ctp--load-content candidate buf)
(progn
(ctp--display-buffer buf)
(setq corfu-popupinfo--candidate candidate
corfu-popupinfo--toggle t))
(corfu-popupinfo--hide))))))
(defun ctp--move-away-from-eob ()
"Ensure the point isn't too close to the end of the buffer."