swiper.el (swiper--action): Update regexp-search-ring

Re #89

diff --git a/swiper.el b/swiper.el
index 7f8d2555daef970fa162ed90c73e31637d7bc3b9..888b015cf96dd22991df9ce3029f83090b7f741a 100644 (file)
--- a/swiper.el
+++ b/swiper.el
@@ -555,7 +555,11 @@ WND, when specified is the window."
         (unless (and transient-mark-mode mark-active)
           (when (eq ivy-exit 'done)
             (push-mark swiper--opoint t)
-            (message "Mark saved where search started")))))))
+            (message "Mark saved where search started"))))
+      (add-to-history
+       'regexp-search-ring
+       (ivy--regex ivy-text)
+       regexp-search-ring-max))))
 
 ;; (define-key isearch-mode-map (kbd "C-o") 'swiper-from-isearch)
 (defun swiper-from-isearch ()