From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 3 Apr 1991 04:03:30 +0000 (+0000)
Subject: When marking buffers for deletion, use D instead of K.
X-Git-Tag: 20090517-FFI~10781
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1da1f810a586cd9e5091e0b0fcf4e705354e76c1;p=mit-scheme.git

When marking buffers for deletion, use D instead of K.
---

diff --git a/v7/src/edwin/bufmnu.scm b/v7/src/edwin/bufmnu.scm
index f4d624438..1a0856581 100644
--- a/v7/src/edwin/bufmnu.scm
+++ b/v7/src/edwin/bufmnu.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/bufmnu.scm,v 1.111 1989/08/11 11:50:01 cph Rel $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/bufmnu.scm,v 1.112 1991/04/03 04:03:30 cph Exp $
 ;;;
-;;;	Copyright (c) 1986, 1989 Massachusetts Institute of Technology
+;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -245,7 +245,7 @@ You can mark buffers with the \\[buffer-menu-mark] command."
   "Mark buffer on this line to be killed by X command."
   "p"
   (lambda (argument)
-    (set-multiple-marks! 0 #\K argument)))
+    (set-multiple-marks! 0 #\D argument)))
 
 (define-command buffer-menu-execute
   "Save and/or Kill buffers marked with \\[buffer-menu-save] or \\[buffer-menu-delete]."
@@ -294,7 +294,7 @@ You can mark buffers with the \\[buffer-menu-mark] command."
 
 (define (buffer-menu-save-and-kill!)
   (for-each buffer-menu-save! (find-buffers-marked 1 #\S))
-  (for-each buffer-menu-kill! (find-buffers-marked 0 #\K)))
+  (for-each buffer-menu-kill! (find-buffers-marked 0 #\D)))
 
 (define (buffer-menu-save! lstart)
   (save-buffer (buffer-menu-buffer lstart))