dgutov pushed a commit to branch master
in repository elpa.
commit 782d1ec3d29d0b96398a6f417cc3f76f411fcf84
Author: Dmitry Gutov <[email protected]>
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
