sawfish r4209 - trunk/lisp/sawfish/wm/util

[jkozicki svn gnome org]

Author: jkozicki
Date: Thu Jan 17 00:42:07 2008
New Revision: 4209
URL: http://svn.gnome.org/viewvc/sawfish?rev=4209&view=rev

Log:
applied patch by Sven Schoenung "Blank lines in prompt"

The window opened by the prompt function shows two blank lines before the prompt even when they aren't needed.



Modified:
   trunk/lisp/sawfish/wm/util/prompt.jl

Modified: trunk/lisp/sawfish/wm/util/prompt.jl
==============================================================================
--- trunk/lisp/sawfish/wm/util/prompt.jl	(original)
+++ trunk/lisp/sawfish/wm/util/prompt.jl	Thu Jan 17 00:42:07 2008
@@ -264,9 +264,10 @@
   (defun prompt-update-display ()
     (let ((result (if prompt-display-fun
 		      (prompt-display-fun prompt-result)
-		    prompt-result)))
-      (display-message (concat (prompt-format-completions)
-			       "\n\n"
+		   prompt-result))
+	 (completions (prompt-format-completions)))
+      (display-message (concat completions
+			      (when completions "\n\n")
 			       prompt-prompt
 			       (substring result 0 prompt-position)
 			       ?| (substring result prompt-position))