From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 24 Feb 2000 01:23:22 +0000 (+0000)
Subject: Use image strings when showing key bindings.
X-Git-Tag: 20090517-FFI~4242
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9e72892c4a6f109d087c62bc797dfd4683117e0e;p=mit-scheme.git

Use image strings when showing key bindings.
---

diff --git a/v7/src/edwin/calias.scm b/v7/src/edwin/calias.scm
index 284a2da00..c7a453468 100644
--- a/v7/src/edwin/calias.scm
+++ b/v7/src/edwin/calias.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: calias.scm,v 1.18 1999/01/02 06:11:34 cph Exp $
+;;; $Id: calias.scm,v 1.19 2000/02/24 01:23:22 cph Exp $
 ;;;
-;;; Copyright (c) 1986, 1989-1999 Massachusetts Institute of Technology
+;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
 ;;;
 ;;; This program is free software; you can redistribute it and/or
 ;;; modify it under the terms of the GNU General Public License as
@@ -119,7 +119,9 @@
 	   (define (process-code bits)
 	     (cond ((or (< #x20 code #x7F) ; 7-bit ASCII visible characters
 			(> code #x7F))	; 8-bit ISO characters
-		    (prefix bits (string (ascii->char code))))
+		    (prefix bits
+			    (vector-ref (ref-variable char-image-strings #f)
+					code)))
 		   ((= code #x09) (prefix bits "TAB"))
 		   ((= code #x0A) (prefix bits "LFD"))
 		   ((= code #x0D) (prefix bits "RET"))