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

Use destructive list functions in yas--s-a-p

Browse Source 
`mapcar' already create a fresh list so there is no need to preserve it.

* yasnippet.el (yas--snippets-at-point): Use `delq' and `delete-dups'
  instead of `remove' and `remove-duplicates`, respectively.
This commit is contained in:
Noam Postavsky 2015-12-08 19:03:42 -05:00
parent 6c46878882
commit 23ee54e10f
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
yasnippet.el
View File

@ -3044,11 +3044,11 @@ through the field's start point"
The most recently-inserted snippets are returned first." The most recently-inserted snippets are returned first."
(sort (sort
(remove nil (remove-duplicates (mapcar #'(lambda (ov) (delq nil (delete-dups
(overlay-get ov 'yas--snippet)) (mapcar (lambda (ov) (overlay-get ov 'yas--snippet))
(if all-snippets (if all-snippets (overlays-in (point-min) (point-max))
(overlays-in (point-min) (point-max)) (nconc (overlays-at (point))
(nconc (overlays-at (point)) (overlays-at (1- (point)))))))) (overlays-at (1- (point))))))))
#'(lambda (s1 s2) #'(lambda (s1 s2)
(<= (yas--snippet-id s2) (yas--snippet-id s1))))) (<= (yas--snippet-id s2) (yas--snippet-id s1)))))