Re: wrap-search 3.3.5

[Emanuel Berg]

Stefan Monnier wrote:

>>       (let*((case-fold-search (not case))
>>             (pos (point))
>>             (data (if rev (list #'search-backward end beg)
>>                     (list #'search-forward beg end) ))
>>             (search-f (car data))
>>             (search-beg (cadr data))
>>             (search-end (caddr data)) )
>
> You can also write this as
>
>     (pcase-let* ((case-fold-search (not case))
>                  (pos (point))
>                  (`(,search-f ,search-beg ,search-end)
>                   (if rev (list #'search-backward end beg)
>                     (list #'search-forward beg end))))

`pcase-let'?

-- 
underground experts united
https://dataswamp.org/~incal