Fix completer for jobs

part of darcs patch Sat Sep 24 22:36:28 MST 2005 Martin Gasbichler <gasbichl@informatik.uni-tuebingen.de>
2005-10-11 15:44:53 +00:00 · 2005-10-11 15:44:53 +00:00 · bd803d5168
parent ded258241f
commit bd803d5168
1 changed files with 6 additions and 2 deletions
--- a/scheme/std-command.scm
+++ b/scheme/std-command.scm
@ -270,8 +270,12 @@

 (register-plugin!
 (make-command-plugin "jobs"
-		      (lambda (command prefix args arg-pos)
-			'("running" "ready" "stopped" "output" "waiting-for-input"))
+		      (lambda (command to-complete)
+                        (completions-for 
+                         (make-completion-set
+                          '("running" "ready" "stopped"
+                            "output" "waiting-for-input"))
+                         (or (to-complete-prefix to-complete) "")))
 		      (lambda (command args)
 			(let ((selectors
 			       `(("running" . ,running-jobs)