Re: [patch] sawfish.wm.util.prompt

[Matthew Love <matth love gmail com>]

Christopher Roy Bratusek <zanghar freenet de> writes:

> Hi Matthew,
>
> the above patch broke the `rename-window' command (or more precisly the
> `rename-window-interactive' function behind it). Since it's your patch,
> could you have a look at it?
>
> Thanks in advance,
> Chris

Hi Chris,
Apparently, I forgot to update prompt-extras, which rename-window calls,
to the new definition of those functions from prompt. 

Updated now and all in working order :)

diff --git a/lisp/sawfish/wm/util/prompt-extras.jl b/lisp/sawfish/wm/util/prompt-extras.jl
index 88c519d..675639c 100644
--- a/lisp/sawfish/wm/util/prompt-extras.jl
+++ b/lisp/sawfish/wm/util/prompt-extras.jl
@@ -127,7 +127,7 @@ Unless DONT-VALIDATE is t, only a member of PROMPT-LIST will be returned."
 
 (define (prompt-for-string #!optional title start)
   (let ((prompt-completion-fun prompt-complete-filename)
-	(prompt-validation-fun nil))
+	(prompt-validation-fun (lambda (#!rest) nil)))
     (prompt (or title "Enter string: ") start)))
 
 (define (prompt-for-number #!optional title)

Matthew