/[cmucl]/src/hemlock/kbdmac.lisp
ViewVC logotype

Diff of /src/hemlock/kbdmac.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by ram, Fri Jul 13 15:12:49 1990 UTC revision 1.3 by ram, Fri Feb 11 21:53:14 1994 UTC
# Line 1  Line 1 
1  ;;; -*- Log: hemlock.log; Package: Hemlock -*-  ;;; -*- Log: hemlock.log; Package: Hemlock -*-
2  ;;;  ;;;
3  ;;; **********************************************************************  ;;; **********************************************************************
4  ;;; This code was written as part of the Spice Lisp project at  ;;; This code was written as part of the CMU Common Lisp project at
5  ;;; Carnegie-Mellon University, and has been placed in the public domain.  ;;; Carnegie Mellon University, and has been placed in the public domain.
6  ;;; Spice Lisp is currently incomplete and under active development.  ;;; If you want to use this code or any part of CMU Common Lisp, please contact
7  ;;; If you want to use this code or any part of Spice Lisp, please contact  ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
8  ;;; Scott Fahlman (FAHLMAN@CMUC).  ;;;
9    (ext:file-comment
10      "$Header$")
11    ;;;
12  ;;; **********************************************************************  ;;; **********************************************************************
13  ;;;  ;;;
14  ;;;    This file contains the implementation of keyboard macros for  ;;;    This file contains the implementation of keyboard macros for
# Line 115  Line 118 
118    (insert-character (buffer-point (current-buffer)) character))    (insert-character (buffer-point (current-buffer)) character))
119    
120  (defun key-vector-to-string (key-vector)  (defun key-vector-to-string (key-vector)
121    (let ((string (make-array (length key-vector) :element-type 'string-char)))    (let ((string (make-array (length key-vector) :element-type 'base-char)))
122      (dotimes (i (length key-vector) string)      (dotimes (i (length key-vector) string)
123        (setf (aref string i) (key-event-char (aref key-vector i))))))        (setf (aref string i) (key-event-char (aref key-vector i))))))
124    

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.5