[elpa] master c07db05 102/177: yas-x-prompt: remove dead code

[João Távora]

branch: master
commit c07db054ecac82fbb8353240648e8454e734d166
Author: Noam Postavsky <address@hidden>
Commit: Noam Postavsky <address@hidden>

    yas-x-prompt: remove dead code
---
 yasnippet.el |   27 +++++++++++----------------
 1 files changed, 11 insertions(+), 16 deletions(-)

diff --git a/yasnippet.el b/yasnippet.el
index d21f3cb..62a1d8f 100644
--- a/yasnippet.el
+++ b/yasnippet.el
@@ -1543,22 +1543,17 @@ Optional PROMPT sets the prompt to use."
   ;;
   (when (and window-system choices)
     (or
-     (let* ((display-fn (or display-fn #'identity))
-            (menu
-             (list prompt
-                   (cons "title"
-                         (mapcar (lambda (c)
-                                   (let ((d (funcall display-fn c)))
-                                     (cond ((stringp d) (cons (concat "   " d) 
c))
-                                           ((listp d) (car d)))))
-                                 choices)))))
-       (x-popup-menu (if (fboundp 'posn-at-point)
-                         (let ((x-y (posn-x-y (posn-at-point (point)))))
-                           (list (list (+ (car x-y) 10)
-                                       (+ (cdr x-y) 20))
-                                 (selected-window)))
-                       t)
-                     menu))
+     (x-popup-menu
+      (if (fboundp 'posn-at-point)
+          (let ((x-y (posn-x-y (posn-at-point (point)))))
+            (list (list (+ (car x-y) 10)
+                        (+ (cdr x-y) 20))
+                  (selected-window)))
+        t)
+      `(,prompt ("title"
+                 ,@(mapcar* (lambda (c d) `(,(concat "   " d) . ,c))
+                            choices
+                            (if display-fn (mapcar display-fn choices) 
choices)))))
      (keyboard-quit))))
 
 (defun yas--x-pretty-prompt-templates (prompt templates)