From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 31 Mar 2000 19:33:30 +0000 (+0000)
Subject: Allow dired-next-files to take buffer in place of mark.
X-Git-Tag: 20090517-FFI~4124
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0959a5795b8153abbcc4eca667e0b02e1678e3b1;p=mit-scheme.git

Allow dired-next-files to take buffer in place of mark.
---

diff --git a/v7/src/edwin/dired.scm b/v7/src/edwin/dired.scm
index edc524296..3c5cdf6c3 100644
--- a/v7/src/edwin/dired.scm
+++ b/v7/src/edwin/dired.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: dired.scm,v 1.173 2000/03/27 20:44:24 cph Exp $
+;;; $Id: dired.scm,v 1.174 2000/03/31 19:33:30 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
 ;;;
@@ -897,9 +897,13 @@ Actions controlled by variables list-directory-brief-switches
 
 (define (dired-next-files n #!optional mark)
   (let ((mark
-	 (if (or (default-object? mark) (not mark))
-	     (current-point)
-	     mark)))
+	 (cond ((or (default-object? mark) (not mark))
+		(current-point))
+	       ((buffer? mark)
+		(if (selected-buffer? mark)
+		    (current-point)
+		    (buffer-point mark)))
+	       (else mark))))
     (let loop ((start (line-start mark 0)) (n n))
       (if (<= n 0)
 	  '()