ld/yasnippet
1
0
Fork 0
mirror of https://github.com/joaotavora/yasnippet.git synced 2025-10-13 21:13:04 +00:00
Code Issues Packages Projects Releases Wiki Activity

yas-x-prompt: remove dead code

Browse Source
This commit is contained in:
Noam Postavsky 2014-03-04 21:46:05 -05:00
parent 4470110384
commit c07db054ec
1 changed files with 11 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
yasnippet.el
View File

@ -1543,22 +1543,17 @@ Optional PROMPT sets the prompt to use."
;; ;;
(when (and window-system choices) (when (and window-system choices)
(or (or
(let* ((display-fn (or display-fn #'identity)) (x-popup-menu
(menu (if (fboundp 'posn-at-point)
(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))))) (let ((x-y (posn-x-y (posn-at-point (point)))))
(list (list (+ (car x-y) 10) (list (list (+ (car x-y) 10)
(+ (cdr x-y) 20)) (+ (cdr x-y) 20))
(selected-window))) (selected-window)))
t) t)
menu)) `(,prompt ("title"
,@(mapcar* (lambda (c d) `(,(concat " " d) . ,c))
choices
(if display-fn (mapcar display-fn choices) choices)))))
(keyboard-quit)))) (keyboard-quit))))
(defun yas--x-pretty-prompt-templates (prompt templates) (defun yas--x-pretty-prompt-templates (prompt templates)