🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.lang.clos
Article #60

Re: redefining keys

#60
From: Katsunobu Imai
Date: Mon, 06 Apr 1992 12:05
18 lines
946 bytes
> When I push such keys in MCL, it beeps even if there is a char in my
> font which is associated with the key. (It works into to keyboard
> accessory).

Even if function-keys do not work in MCL, you can define 
as fred commands.

(def-fred-command (:function #\c) #'(lambda (d) (format d "~A" #\200)))

I don't have Extended-keyboard. But according to MCL manual,
this binds the F12 key to a command that prints code 200 char.

See page 375 of the 2.0b1 manual.

-----------
Katsunobu Imai
imai@bpe.osaka-u.ac.jp
Technical Details
Message-ID: <9204061205.AA00919@sakura.bpe.osaka-u.ac.jp>
Path: arc1-ca.pugleaf.net!sparky!uunet!cis.ohio-state.edu!sakura.bpe.osaka-u.ac.jp!imai

Show Full Headers
Complete Article Headers
Newsgroups: comp.lang.clos
Path: arc1-ca.pugleaf.net!sparky!uunet!cis.ohio-state.edu!sakura.bpe.osaka-u.ac.jp!imai
From: imai@sakura.bpe.osaka-u.ac.jp (Katsunobu Imai)
Subject: Re:  redefining keys
Message-ID: <9204061205.AA00919@sakura.bpe.osaka-u.ac.jp>
Sender: daemon@cis.ohio-state.edu
Organization: The Ohio State University Department of Computer and Information Science
Date: Mon, 6 Apr 1992 12:05:27 GMT
Lines: 18