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

* slight changes to the `yas/define-menu' interface for upcoming

Browse Source 
conversion in textmate_import.rb
This commit is contained in:
capitaomorte 2010-03-31 12:33:38 +00:00
parent 9fc671569b
commit 8696e15e32
1 changed files with 14 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
yasnippet.el
View File

@ -1958,12 +1958,21 @@ Skip any submenus named \"parent mode\""
(setf (nthcdr pos-in-keymap keymap) (setf (nthcdr pos-in-keymap keymap)
(nthcdr (+ 1 pos-in-keymap) keymap)))))) (nthcdr (+ 1 pos-in-keymap) keymap))))))
(defun yas/define-menu (mode menu) (defun yas/define-menu (mode menu omit-items)
(let ((table (yas/table-get-create mode))) (let* ((table (yas/table-get-create mode))
(hash (yas/table-uidhash table)))
(yas/define-menu-1 table (yas/define-menu-1 table
(yas/menu-keymap-get-create table) (yas/menu-keymap-get-create table)
menu menu
(yas/table-uidhash table)))) hash)
(dolist (uid omit-items)
(let ((template (or (gethash uid hash)
(yas/populate-template (puthash uid
(yas/make-blank-template)
hash)
:table table
:uid uid))))
(setf (yas/template-menu-binding-pair template) (cons nil :none))))))
(defun yas/define-menu-1 (table keymap menu uidhash) (defun yas/define-menu-1 (table keymap menu uidhash)
(dolist (e (reverse menu)) (dolist (e (reverse menu))
@ -1985,15 +1994,8 @@ Skip any submenus named \"parent mode\""
((eq (first e) 'yas/separator) ((eq (first e) 'yas/separator)
(define-key keymap (vector (gensym)) (define-key keymap (vector (gensym))
'(menu-item "----"))) '(menu-item "----")))
((eq (first e) 'yas/omit) (t
(dolist (uid (rest e)) (message "[yas] don't know anything about menu entry %s" (first e))))))
(let ((template (or (gethash uid uidhash)
(yas/populate-template (puthash uid
(yas/make-blank-template)
uidhash)
:table table
:uid uid))))
(setf (yas/template-menu-binding-pair template) (cons nil :none))))))))
(defun yas/define (mode key template &optional name condition group) (defun yas/define (mode key template &optional name condition group)
"Define a snippet. Expanding KEY into TEMPLATE. "Define a snippet. Expanding KEY into TEMPLATE.