From 4a4fcf628e1e4c8db47cd62fa5617b662fa8b5d6 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Thu, 21 Jul 2022 19:22:16 +0300 Subject: Fix reference to 'x-max-tooltip-size' in complete.el * lisp/cedet/semantic/complete.el: Don't assume that x-max-tooltip-size is a cons cell. --- lisp/cedet/semantic/complete.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'lisp/cedet') diff --git a/lisp/cedet/semantic/complete.el b/lisp/cedet/semantic/complete.el index 6a09adca32d..cd04cf86434 100644 --- a/lisp/cedet/semantic/complete.el +++ b/lisp/cedet/semantic/complete.el @@ -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 -- cgit v1.2.3