(setq regexp-search-ring (cons (cons search-string uppercase-flag)
regexp-search-ring)
regexp-search-ring-yank-pointer regexp-search-ring)
(setq regexp-search-ring (cons (cons search-string uppercase-flag)
regexp-search-ring)
regexp-search-ring-yank-pointer regexp-search-ring)