Christopher Roy Bratusek <[email protected]> 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
