changed the default regexp filter for the search-in-files preference
closes PR 10975
This commit is contained in:
parent
cf5c74a2ca
commit
3470d946ab
|
@ -494,7 +494,7 @@
|
|||
;; preferences initialization
|
||||
(drr:set-default 'drracket:multi-file-search:recur? #t boolean?)
|
||||
(drr:set-default 'drracket:multi-file-search:filter? #t boolean?)
|
||||
(drr:set-default 'drracket:multi-file-search:filter-string "\\.(ss|scm)$" string?)
|
||||
(drr:set-default 'drracket:multi-file-search:filter-regexp "\\.(rkt.?|ss|scm)$" string?)
|
||||
(drr:set-default 'drracket:multi-file-search:search-string "" string?)
|
||||
(drr:set-default 'drracket:multi-file-search:search-type
|
||||
1
|
||||
|
|
|
@ -462,7 +462,7 @@
|
|||
(preferences:set 'drracket:multi-file-search:filter? (send filter-check-box get-value))
|
||||
(send filter-text-field enable (send filter-check-box get-value)))
|
||||
(define (filter-text-field-callback)
|
||||
(preferences:set 'drracket:multi-file-search:filter-string (send filter-text-field get-value)))
|
||||
(preferences:set 'drracket:multi-file-search:filter-regexp (send filter-text-field get-value)))
|
||||
|
||||
(define (recur-check-box-callback)
|
||||
(preferences:set 'drracket:multi-file-search:recur? (send recur-check-box get-value)))
|
||||
|
@ -500,7 +500,7 @@
|
|||
(send recur-check-box set-value (preferences:get 'drracket:multi-file-search:recur?))
|
||||
(send filter-check-box set-value (preferences:get 'drracket:multi-file-search:filter?))
|
||||
(send search-text-field set-value (preferences:get 'drracket:multi-file-search:search-string))
|
||||
(send filter-text-field set-value (preferences:get 'drracket:multi-file-search:filter-string))
|
||||
(send filter-text-field set-value (preferences:get 'drracket:multi-file-search:filter-regexp))
|
||||
(send dir-field set-value (path->string
|
||||
(let ([p (preferences:get 'drracket:multi-file-search:directory)])
|
||||
(if (not p)
|
||||
|
|
Loading…
Reference in New Issue
Block a user