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

27
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 (let ((x-y (posn-x-y (posn-at-point (point)))))
(cons "title" (list (list (+ (car x-y) 10)
(mapcar (lambda (c) (+ (cdr x-y) 20))
(let ((d (funcall display-fn c))) (selected-window)))
(cond ((stringp d) (cons (concat " " d) c)) t)
((listp d) (car d))))) `(,prompt ("title"
choices))))) ,@(mapcar* (lambda (c d) `(,(concat " " d) . ,c))
(x-popup-menu (if (fboundp 'posn-at-point) choices
(let ((x-y (posn-x-y (posn-at-point (point))))) (if display-fn (mapcar display-fn choices) choices)))))
(list (list (+ (car x-y) 10)
(+ (cdr x-y) 20))
(selected-window)))
t)
menu))
(keyboard-quit)))) (keyboard-quit))))
(defun yas--x-pretty-prompt-templates (prompt templates) (defun yas--x-pretty-prompt-templates (prompt templates)