Doesn't working version of «mouse-set-region»

(defun mouse-set-point-highlight-matches (ignored)
  (interactive "e")
  (re-search-backward "\\b")
  (push-mark (point))
  (re-search-forward "\\b")
  (setq mark-active t))

(global-set-key (kbd "<double-mouse-1>") 'mouse-set-point-highlight-matches)