From: Chris Hanson Date: Fri, 23 Oct 1998 05:50:20 +0000 (+0000) Subject: When completing commands, don't insert executable suffixes. X-Git-Tag: 20090517-FFI~4725 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a67fa0e3a485d63c000b2d97e746f4f754d06347;p=mit-scheme.git When completing commands, don't insert executable suffixes. --- 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))))