From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 13 Nov 1992 21:04:12 +0000 (+0000)
Subject: Add buffer-menu-mode-hook, and set truncate-lines true in buffer-menu
X-Git-Tag: 20090517-FFI~8780
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9a8d918e80d015385c31c49cf8fbae99f227589a;p=mit-scheme.git

Add buffer-menu-mode-hook, and set truncate-lines true in buffer-menu
buffers.
---

diff --git a/v7/src/edwin/bufmnu.scm b/v7/src/edwin/bufmnu.scm
index c4ed5a882..4698a0551 100644
--- a/v7/src/edwin/bufmnu.scm
+++ b/v7/src/edwin/bufmnu.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: bufmnu.scm,v 1.121 1992/11/12 18:00:15 cph Exp $
+;;;	$Id: bufmnu.scm,v 1.122 1992/11/13 21:04:12 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-92 Massachusetts Institute of Technology
 ;;;
@@ -132,7 +132,13 @@ d or k -- mark that buffer to be deleted, and move down.
 C-d -- mark that buffer to be deleted, and move up.
 x -- delete or save marked buffers.
 u -- remove all kinds of marks from current line.
-Delete -- back up a line and remove marks.")
+Delete -- back up a line and remove marks."
+  (local-set-variable! truncate-lines true)
+  (event-distributor/invoke! (ref-variable buffer-menu-mode-hook)))
+
+(define-variable buffer-menu-mode-hook
+  "An event distributor that is invoked when entering Buffer-menu mode."
+  (make-event-distributor))
 
 (define-key 'buffer-menu #\m 'buffer-menu-mark)
 (define-key 'buffer-menu #\q 'buffer-menu-quit)