Re: wrap-search 3.3.5

[Emanuel Berg]

>     (interactive
>      `(,(read-string (format-prompt "search" (show-prev-str)))
>        ,(member current-prefix-arg '( (4) (64)))
>        ,(member current-prefix-arg '((16) (64)))
>        ,@(if (use-region-p)
>              (list (region-beginning) (region-end))
>            (list (point-min) (point-max)) )))

    (interactive
     `(,(read-string (format-prompt "search" (show-prev-str)))
       ,(member current-prefix-arg '( (4) (64)))
       ,(member current-prefix-arg '((16) (64)))
       ,@(when (use-region-p)
           (list (region-beginning) (region-end)) )))
    (or beg (setq beg (point-min)))
    (or end (setq end (point-max)))

;; URL: https://dataswamp.org/~incal/emacs-init/wrap-search.el
;; Version: 4.6.7

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