bug about linking of each field group fixed: caused by copy & paste error.

This commit is contained in:
Zhang Chiyuan 2008-03-03 15:54:58 +00:00
parent 138a9c4d82
commit aa7b6f0a91

View File

@ -118,7 +118,7 @@ current column if this variable is non-`nil'.")
(nth 2 group)) (nth 2 group))
(defun yas/snippet-field-group-set-prev (group prev) (defun yas/snippet-field-group-set-prev (group prev)
"Set previous field group of GROUP." "Set previous field group of GROUP."
(setf (nth 2 group) prev)) (setf (nth 3 group) prev))
(defun yas/snippet-field-group-prev (group) (defun yas/snippet-field-group-prev (group)
"Get previous field group." "Get previous field group."
(nth 3 group)) (nth 3 group))
@ -356,7 +356,7 @@ otherwise, nil returned."
(interactive) (interactive)
(let ((overlay (yas/current-snippet-overlay))) (let ((overlay (yas/current-snippet-overlay)))
(if overlay (if overlay
(let ((prev (yas/snippet-field-group-next (let ((prev (yas/snippet-field-group-prev
(overlay-get overlay 'yas/snippet-field-group)))) (overlay-get overlay 'yas/snippet-field-group))))
(if prev (if prev
(goto-char (overlay-start (goto-char (overlay-start