Re: repeat-complex-command too complex

[Andreas Politz]

despen@verizon.net writes:

> Barry Margolin <barmar@alum.mit.edu> writes:
>
>> In article <icmxq1m3cc.fsf@verizon.net>, despen@verizon.net wrote:
>>
>>> It's pretty unfortunate.  I actually have repeat-complex-command
>>> bound to a key and use it a lot.  Plus I never use transient mark
>>> mode.  It's too visually disturbing.
>>> 
>>> Thanks.
>>
>> (defun my-query-replace (from-string to-string)
>>   (interactive "sReplace: \nsWith: ")
>>   (query-replace from-string to-string))
>>
>> Then bind M-% to my-query-replace.
>
> Have to admit, I tried to do that myself and failed.
> My understanding of "interactive" is sadly lacking.
> I think I have it now though.
>
> Thanks!

Changing the interactive spec with an advice is also an option.

(defadvice query-replace (before hack-interactive-spec activate)
  (interactive
   (let ((common
          (query-replace-read-args
           (concat "Replace"
                   (if current-prefix-arg " word" "")
                   " string")
           nil)))
     (list (nth 0 common) (nth 1 common) (nth 2 common)))))

-ap