diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2022-07-21 19:22:16 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2022-07-21 19:22:16 +0300 |
| commit | 4a4fcf628e1e4c8db47cd62fa5617b662fa8b5d6 (patch) | |
| tree | 43507bb4c3ff7a24221e4a8e3195fcafbdab902e /lisp | |
| parent | e2df22fa016247dccc632b2cb4fc5b8ffb4c3c7c (diff) | |
| download | emacs-4a4fcf628e1e4c8db47cd62fa5617b662fa8b5d6.tar.gz emacs-4a4fcf628e1e4c8db47cd62fa5617b662fa8b5d6.tar.bz2 emacs-4a4fcf628e1e4c8db47cd62fa5617b662fa8b5d6.zip | |
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.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/cedet/semantic/complete.el | 6 |
1 files changed, 4 insertions, 2 deletions
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 |