Fix for "Error running timer ‘company-quickhelp--show’: (void-variabl…

…e fg-bg) company-mode#58"
marciosmiderle · Jan 20, 2017 · 34ea1c0 · 34ea1c0
1 parent 98de6a6
commit 34ea1c0
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/company-quickhelp.el b/company-quickhelp.el
@@ -164,16 +164,16 @@ currently active `company' completion candidate."
                            (if ovl (overlay-get ovl 'company-width) 0)))
          (overlay-position (* (frame-char-width)
                               (- (if ovl (overlay-get ovl 'company-column) 1) 1)))
-         (x-gtk-use-system-tooltips nil))
+         (x-gtk-use-system-tooltips nil)
+         (fg-bg `(,company-quickhelp-color-foreground
+                  . ,company-quickhelp-color-background)))
     (when (and ovl doc)
       (with-no-warnings
         (if company-quickhelp-use-propertized-text
             (let* ((frame (window-frame (selected-window)))
                    (max-width (pos-tip-x-display-width frame))
                    (max-height (pos-tip-x-display-height frame))
-                   (w-h (pos-tip-string-width-height doc))
-                   (fg-bg `(,company-quickhelp-color-foreground
-                            . ,company-quickhelp-color-background)))
+                   (w-h (pos-tip-string-width-height doc)))
               (cond
                ((> (car w-h) width)
                 (setq doc (pos-tip-fill-string doc width nil 'none nil max-height)