From: Dmitry Gutov <dgutov@yandex.ru>
Date: Sat, 23 Aug 2014 22:52:43 +0000 (+0400)
Subject: company-pseudo-tooltip-unhide: use local vars
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/782d1ec3d29d0b96398a6f417cc3f76f411fcf84

company-pseudo-tooltip-unhide: use local vars
---

diff --git a/company.el b/company.el
index d5e500d6f..777dd31fc 100644
--- a/company.el
+++ b/company.el
@@ -2447,13 +2447,14 @@ Returns a negative number if the tooltip should be displayed above point."
 
 (defun company-pseudo-tooltip-unhide ()
   (when company-pseudo-tooltip-overlay
-    ;; Beat outline's folding overlays, at least.
-    (overlay-put company-pseudo-tooltip-overlay 'priority 1)
-    ;; No (extra) prefix for the first line.
-    (overlay-put company-pseudo-tooltip-overlay 'line-prefix "")
-    (overlay-put company-pseudo-tooltip-overlay 'display
-                 (overlay-get company-pseudo-tooltip-overlay 'company-display))
-    (overlay-put company-pseudo-tooltip-overlay 'window (selected-window))))
+    (let* ((ov company-pseudo-tooltip-overlay)
+           (disp (overlay-get ov 'company-display)))
+      ;; Beat outline's folding overlays, at least.
+      (overlay-put ov 'priority 1)
+      ;; No (extra) prefix for the first line.
+      (overlay-put ov 'line-prefix "")
+      (overlay-put ov 'display disp)
+      (overlay-put ov 'window (selected-window)))))
 
 (defun company-pseudo-tooltip-guard ()
   (list