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

Minor: make 'yas--define-snippets-1' an internal defun

Browse Source
This commit is contained in:
João Távora 2012-11-08 22:22:41 +00:00
parent d5865b1092
commit 0ab9fb281e
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
yasnippet.el
View File

@ -1618,7 +1618,7 @@ Optional PROMPT sets the prompt to use."
;; correct tables. ;; correct tables.
;; ;;
(defun yas-define-snippets-1 (snippet snippet-table) (defun yas--define-snippets-1 (snippet snippet-table)
"Helper for `yas-define-snippets'." "Helper for `yas-define-snippets'."
;; X) Calculate some more defaults on the values returned by ;; X) Calculate some more defaults on the values returned by
;; `yas--parse-template'. ;; `yas--parse-template'.
@ -1688,7 +1688,7 @@ the current buffers contents."
(let ((snippet-table (yas--table-get-create mode)) (let ((snippet-table (yas--table-get-create mode))
(template nil)) (template nil))
(dolist (snippet snippets) (dolist (snippet snippets)
(setq template (yas-define-snippets-1 snippet (setq template (yas--define-snippets-1 snippet
snippet-table))) snippet-table)))
template)) template))
@ -2530,7 +2530,7 @@ whether (and where) to save the snippet, then quit the window."
;; template which is already loaded and neatly positioned,... ;; template which is already loaded and neatly positioned,...
;; ;;
(yas--editing-template (yas--editing-template
(yas-define-snippets-1 (yas--parse-template (yas--template-file yas--editing-template)) (yas--define-snippets-1 (yas--parse-template (yas--template-file yas--editing-template))
(yas--template-table yas--editing-template))) (yas--template-table yas--editing-template)))
;; Try to use `yas--guessed-modes'. If we don't have that use the ;; Try to use `yas--guessed-modes'. If we don't have that use the
;; value from `yas--compute-major-mode-and-parents' ;; value from `yas--compute-major-mode-and-parents'
@ -2540,7 +2540,7 @@ whether (and where) to save the snippet, then quit the window."
(set (make-local-variable 'yas--guessed-modes) (or (yas--compute-major-mode-and-parents buffer-file-name)))) (set (make-local-variable 'yas--guessed-modes) (or (yas--compute-major-mode-and-parents buffer-file-name))))
(let* ((table (yas--table-get-create table))) (let* ((table (yas--table-get-create table)))
(set (make-local-variable 'yas--editing-template) (set (make-local-variable 'yas--editing-template)
(yas-define-snippets-1 (yas--parse-template buffer-file-name) (yas--define-snippets-1 (yas--parse-template buffer-file-name)
table))))) table)))))
(when (and interactive (when (and interactive