From 81fa33b08b50f5ecd8a145af496c61f7c6c30d23 Mon Sep 17 00:00:00 2001 From: Lionel Flandrin Date: Thu, 5 Nov 2009 13:47:46 +0100 Subject: [PATCH] Fixed bogus "Command 'NIL' not found." message when aborting "colon" * Calling string-trim on NIL caused it to be converted into a string. --- input.lisp | 5 ++++- 1 files changed, 4 insertions(+), 1 deletions(-) diff --git a/input.lisp b/input.lisp index 989dbbb..bce9bd3 100644 --- a/input.lisp +++ b/input.lisp @@ -190,7 +190,10 @@ to return a list of matches." (let ((*input-completions* completions) (*input-current-completions* nil) (*input-current-completions-idx* nil)) - (string-trim " " (read-one-line screen prompt initial-input)))) + (let ((input (read-one-line screen prompt initial-input))) + (if input + (string-trim " " input) + nil)))) (defun read-one-line (screen prompt &optional (initial-input "")) "Read a line of input through stumpwm and return it. returns nil if the user aborted." -- 1.6.5.2