mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-22 18:35:09 +00:00
Code Issues Releases 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
Show Stats 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