mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

Fix reference to 'x-max-tooltip-size' in complete.el

Browse source 
* lisp/cedet/semantic/complete.el: Don't assume that
x-max-tooltip-size is a cons cell.
This commit is contained in:
Eli Zaretskii 2022-07-21 19:22:16 +03:00
parent e2df22fa01
commit 4a4fcf628e
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/cedet/semantic/complete.el
View file

@ -1638,8 +1638,10 @@ This will not happen if you directly set this variable via `setq'."
:set (lambda (sym var)
(set-default sym var)
(when (boundp 'x-max-tooltip-size)
(setcdr x-max-tooltip-size (max (1+ var) (cdr x-max-tooltip-size))))))
(if (not (consp x-max-tooltip-size))
(setq x-max-tooltip-size '(80 . 40)))
(setcdr x-max-tooltip-size
(max (1+ var) (cdr x-max-tooltip-size))))))
(defclass semantic-displayer-tooltip (semantic-displayer-traditional)
((mode :initarg :mode