カーソル下のシンボルを初期入力にしてconsult-ripgrepをするには

こうする。

(defun consult-ripgrep-symbol-at-point ()
  (interactive)
  (consult-ripgrep nil (thing-at-point 'symbol)))

C-uつきで呼び出したときにシンボル初期入力を行いたい場合は

(defun my-consult-ripgrep (use-symbol)
  (interactive "p")
  (cond ((eq use-symbol 1)
         (call-interactively 'consult-ripgrep))
        ((eq use-symbol 4)
         (call-interactively 'consult-ripgrep-symbol-at-point))))

とする。C-uなしで呼び出せば通常のconsult-ripgrepとなる。つまり

• M-x my-consult-ripgrep ... 通常のconsult-ripgrep
• C-u M-x my-consult-ripgrep ... カーソル下のシンボルでconsult-ripgrep

である。