Default arg for `T m'?

Default arg for `T m'?

[Kai Großjohann]

After `T m foo', I can do `T m M-p RET' to repeat it.  WIBNI `T m RET'
was sufficient?

kai
-- 
Linux provides a nice `poweroff' command, but where is `poweron'?

Re: Default arg for `T m'?

[Lars Magne Ingebrigtsen]

Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann) writes:

> After `T m foo', I can do `T m M-p RET' to repeat it.  WIBNI `T m RET'
> was sufficient?

I thought the new default default behavior in Emacs was to not provide
default defaults in these situations?  

-- 
(domestic pets only, the antidote for overdose, milk.)
   larsi@gnus.org * Lars Magne Ingebrigtsen

Re: Default arg for `T m'?

[Kai Großjohann]

Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

> Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann) writes:
>
>> After `T m foo', I can do `T m M-p RET' to repeat it.  WIBNI `T m RET'
>> was sufficient?
>
> I thought the new default default behavior in Emacs was to not provide
> default defaults in these situations?  

I thought the new default default behavior was to allow the user to
hit RET to accept the default, but to _edit_ the string, M-n is
necessary.

So we don't use the INITIAL-INPUT argument of completing-read;
instead, we use the DEF argument and also put the default in the
history.  (Not sure how it works to put stuff in the history in such
a way that M-n retrieves it.)

kai
-- 
Simplification good!  Oversimplification bad!  (Larry Wall)

Re: Default arg for `T m'?

[Lars Magne Ingebrigtsen]

Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann) writes:

> So we don't use the INITIAL-INPUT argument of completing-read;
> instead, we use the DEF argument and also put the default in the
> history.

Right.  I've now modified `T m' to use the function below.  I think
the "normal" `completing-read' is rather to horrible to work with,
since you have to fiddle so much to get it to work in a sensible way.
But I may have overlooked something.

(defun gnus-completing-read (prompt table &optional predicate require-match
				    history inherit-input-method)
  (when (and history
	     (not (boundp history)))
    (set history nil))
  (completing-read
   (if (symbol-value history)
       (concat prompt " (" (car (symbol-value history)) "): ")
     (concat prompt ": "))
   table
   predicate
   require-match
   nil
   history
   (car (symbol-value history))
   inherit-input-method))

And used thusly:

(gnus-completing-read "Move to topic" gnus-topic-alist
                      nil t 'gnus-topic-history)

Any comments?  And anybody volunteering to go through the Gnus sources
and converting all calls to `completing-read' to
`gnus-completing-read' to get Emacs-compliant default prompt value
behavior?
                                            
-- 
(domestic pets only, the antidote for overdose, milk.)
   larsi@gnus.org * Lars Magne Ingebrigtsen