[elpa] 19/28: company-pseudo-tooltip-unhide: use local vars

[Dmitry Gutov]

dgutov pushed a commit to branch master
in repository elpa.

commit 782d1ec3d29d0b96398a6f417cc3f76f411fcf84
Author: Dmitry Gutov <address@hidden>
Date:   Sun Aug 24 02:52:43 2014 +0400

    company-pseudo-tooltip-unhide: use local vars
---
 company.el |   15 ++++++++-------
 1 files changed, 8 insertions(+), 7 deletions(-)

diff --git a/company.el b/company.el
index d5e500d..777dd31 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