Already is helper for this.

dotemacs · Aug 8, 2010 · 3e8e644 · 3e8e644
1 parent 137bb6d
commit 3e8e644
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/rinari.el b/rinari.el
@@ -372,7 +372,7 @@ optional prefix argument just run `rgrep'."
   (grep-compute-defaults)
   (if arg (call-interactively 'rgrep)
     (let ((query))
-      (if (and transient-mark-mode mark-active)
+      (if (region-active-p)
           (setq query (buffer-substring-no-properties (region-beginning) (region-end)))
         (setq query (thing-at-point 'word)))
       (funcall 'rgrep (read-from-minibuffer "search for: " query)