From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 19 May 1995 18:55:50 +0000 (+0000)
Subject: M-x occur should leave point at beginning of buffer.
X-Git-Tag: 20090517-FFI~6301
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e6d9fbedd0fc607b4266b4e9ee28261cabc667c5;p=mit-scheme.git

M-x occur should leave point at beginning of buffer.
---

diff --git a/v7/src/edwin/occur.scm b/v7/src/edwin/occur.scm
index 3413ebb20..67efe2340 100644
--- a/v7/src/edwin/occur.scm
+++ b/v7/src/edwin/occur.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/occur.scm,v 1.1 1992/04/09 17:22:04 cph Exp $
+;;;	$Id: occur.scm,v 1.2 1995/05/19 18:55:50 cph Exp $
 ;;;
-;;;	Copyright (c) 1992 Massachusetts Institute of Technology
+;;;	Copyright (c) 1992-95 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -237,6 +237,7 @@ It serves as a menu to find any of the occurrences in this buffer.
 	  (buffer-put! occur-buffer 'OCCURRENCES occurrences)
 	  (message (number->string (length occurrences)) " matching lines."))
 	(mark-temporary! output))
+      (set-buffer-point! occur-buffer (buffer-start occur-buffer))
       (pop-up-buffer occur-buffer false))))
 
 (define-command list-matching-lines