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

Merge pull request #412 from npostavs/less-narrow

Browse Source 
Wait till after content insertion to narrow
This commit is contained in:
João Távora 2013-10-14 09:28:42 -07:00
commit 6c3e0294dd
2 changed files with 38 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
yasnippet-tests.el
View File

@ -213,6 +213,15 @@
(yas-expand-snippet snippet)
(should (string= (yas--buffer-contents) "#include <foo>\nmain")))))
(ert-deftest middle-of-buffer-snippet-insertion ()
(with-temp-buffer
(yas-minor-mode 1)
(insert "beginning")
(save-excursion (insert "end"))
(let ((snippet "-middle-"))
(yas-expand-snippet snippet))
(should (string= (yas--buffer-contents) "beginning-middle-end"))))
(ert-deftest another-example-for-issue-271 ()
;; expect this to fail in batch mode since `region-active-p' doesn't
;; used by `yas-expand-snippet' doesn't make sense in that context.

60
yasnippet.el
View File

@ -3509,24 +3509,20 @@ considered when expanding the snippet."
;; plain text will get recorded at the end.
;;
;; stacked expansion: also shoosh the overlay modification hooks
(save-restriction
(narrow-to-region start start)
(let ((buffer-undo-list t))
;; snippet creation might evaluate users elisp, which
;; might generate errors, so we have to be ready to catch
;; them mostly to make the undo information
;;
(setq yas--start-column (save-restriction (widen) (current-column)))
(yas--inhibit-overlay-hooks
(setq snippet
(if expand-env
(eval `(let* ,expand-env
(let ((inhibit-modification-hooks t))
(insert content))
(yas--snippet-create (point-min))))
(let ((inhibit-modification-hooks t))
(insert content))
(yas--snippet-create (point-min)))))))
(let ((buffer-undo-list t))
;; snippet creation might evaluate users elisp, which
;; might generate errors, so we have to be ready to catch
;; them mostly to make the undo information
;;
(setq yas--start-column (current-column))
(yas--inhibit-overlay-hooks
(setq snippet
(if expand-env
(eval `(let* ,expand-env
(insert content)
(yas--snippet-create start (point))))
(insert content)
(yas--snippet-create start (point))))))
;; stacked-expansion: This checks for stacked expansion, save the
;; `yas--previous-active-field' and advance its boundary.
@ -3604,25 +3600,27 @@ After revival, push the `yas--take-care-of-redo' in the
(push `(apply yas--take-care-of-redo ,beg ,end ,snippet)
buffer-undo-list))))
(defun yas--snippet-create (begin)
"Create a snippet from a template inserted at BEGIN.
(defun yas--snippet-create (begin end)
"Create a snippet from a template inserted at BEGIN to END.
Returns the newly created snippet."
(let ((snippet (yas--make-snippet)))
(goto-char begin)
(yas--snippet-parse-create snippet)
(save-restriction
(narrow-to-region begin end)
(let ((snippet (yas--make-snippet)))
(goto-char begin)
(yas--snippet-parse-create snippet)
;; Sort and link each field
(yas--snippet-sort-fields snippet)
;; Sort and link each field
(yas--snippet-sort-fields snippet)
;; Create keymap overlay for snippet
(setf (yas--snippet-control-overlay snippet)
(yas--make-control-overlay snippet (point-min) (point-max)))
;; Create keymap overlay for snippet
(setf (yas--snippet-control-overlay snippet)
(yas--make-control-overlay snippet (point-min) (point-max)))
;; Move to end
(goto-char (point-max))
;; Move to end
(goto-char (point-max))
snippet))
snippet)))
;;; Apropos adjacencies and "fom's":