From 4d60385af2793e030c2e4edd3a5533d3f3132cb2 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 15 Mar 1989 19:15:20 +0000 Subject: [PATCH] Changes to make Dired work better. --- v7/src/edwin/unix.scm | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) diff --git a/v7/src/edwin/unix.scm b/v7/src/edwin/unix.scm index e30213581..9c603e8be 100644 --- a/v7/src/edwin/unix.scm +++ b/v7/src/edwin/unix.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/unix.scm,v 1.1 1989/03/14 08:08:56 cph Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/unix.scm,v 1.2 1989/03/15 19:15:20 cph Exp $ ;;; ;;; Copyright (c) 1989 Massachusetts Institute of Technology ;;; @@ -195,11 +195,17 @@ Includes the new backup. Must be > 0" (unix/gid->string (file-attributes/gid attributes)) 8) " " - (pad-on-right-to + (pad-on-left-to (number->string (file-attributes/length attributes) 10) 7) " " - (unix/file-time->string - (file-attributes/modification-time attributes)) + (substring (unix/file-time->string + (file-attributes/modification-time attributes)) + 4 + 16) " " - (pathname-name-string pathname)))) \ No newline at end of file + (pathname-name-string pathname)))) + +(define (os/dired-filename-region lstart) + (let ((lend (line-end lstart 0))) + (char-search-backward #\Space lend lstart 'LIMIT) (make-region (re-match-end 0) lend))) \ No newline at end of file -- 2.25.1