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

boundp should be fboundp

Browse Source
This commit is contained in:
Zhang Chiyuan 2008-03-07 12:39:40 +00:00
parent ba462426c0
commit d578654269
6 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
yasnippet.el
View File

@ -608,7 +608,7 @@ an example:
If POINT is not given, default is to current point. If POINT is not given, default is to current point.
If `posn-at-point' is not available (like in Emacs 21.3), If `posn-at-point' is not available (like in Emacs 21.3),
t is returned simply." t is returned simply."
(if (boundp 'posn-at-point) (if (fboundp 'posn-at-point)
(let ((x-y (posn-x-y (posn-at-point (or point (point)))))) (let ((x-y (posn-x-y (posn-at-point (or point (point))))))
(list (list (+ (car x-y) 10) (list (list (+ (car x-y) 10)
(+ (cdr x-y) 20)) (+ (cdr x-y) 20))
@ -618,7 +618,8 @@ t is returned simply."
(defun yas/popup-for-template (templates) (defun yas/popup-for-template (templates)
"Show a popup menu listing templates to let the user select one." "Show a popup menu listing templates to let the user select one."
(if window-system (if window-system
(car (x-popup-menu (yas/point-to-coord) (yas/fake-keymap-for-popup templates))) (car (x-popup-menu (yas/point-to-coord)
(yas/fake-keymap-for-popup templates)))
;; no window system, simply select the first one ;; no window system, simply select the first one
(cdar templates))) (cdar templates)))