From a67fa0e3a485d63c000b2d97e746f4f754d06347 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 23 Oct 1998 05:50:20 +0000 Subject: [PATCH] When completing commands, don't insert executable suffixes. --- v7/src/edwin/shell.scm | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/v7/src/edwin/shell.scm b/v7/src/edwin/shell.scm index b0933f6f3..4a61d54b0 100644 --- a/v7/src/edwin/shell.scm +++ b/v7/src/edwin/shell.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: shell.scm,v 1.16 1998/08/30 02:43:59 cph Exp $ +$Id: shell.scm,v 1.17 1998/10/23 05:50:20 cph Exp $ Copyright (c) 1991-98 Massachusetts Institute of Technology @@ -436,7 +436,12 @@ those that effect file completion." (cond ((null? results) (if-not-found)) ((null? (cdr results)) - (if-unique (car results))) + (if-unique + (let ((result (car results))) + (let ((t (pathname-type result))) + (if (memq t (os/executable-pathname-types)) + (->namestring (pathname-new-type result #f)) + result))))) (else (if-not-unique (compute-max-prefix results) (lambda () results)))) (not (null? results)))) -- 2.25.1