Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.1 6/24/83; site cadovax.UUCP
Path: utzoo!watmath!clyde!bonnie!akgua!sdcsvax!sdcrdcf!trwrb!trwrba!cadovax!boyd
From: boyd@cadovax.UUCP (Boyd Hays)
Newsgroups: net.emacs
Subject: Mlisp function gone astray.
Message-ID: <456@cadovax.UUCP>
Date: Wed, 13-Mar-85 21:15:28 EST
Article-I.D.: cadovax.456
Posted: Wed Mar 13 21:15:28 1985
Date-Received: Sun, 17-Mar-85 02:21:07 EST
Reply-To: boyd@cadovax.UUCP (Boyd Hays)
Organization: Contel Cado, Torrance, CA
Lines: 35


Hello,
	I'm trying to tailor Gosling Emacs to my liking and 
    I am having trouble with the following function.  What 
    I've done is created a "command mode" and an "insertion 
    mode".  The problem is that I have the keys bound other 
    than "self-insert" and need to issue extended commands.  
    The function "execute-extended-command" when executed 
    directly is impossible to talk to due to the fact that 
    all of the keys are bound to other functions.  The first 
    command "\ex command" executes properly but the second
    whose intent is to restore my original keymap does not.
    The escape appears to be being eaten and the string
    "xuse-global-map &current-keymap" is being inserted into
    my buffer.  What am I doing wrong?  Your consideration
    is greatly appreciated.


(defun
    (emacs-extended-command
	(progn command
	    (use-global-map "default-global-keymap")
	    (setq command (get-tty-command ": "))
	    (push-back-string "use-global-map &current-keymap")
	    (push-back-string "\ex")
	    (push-back-string command)
	    (push-back-string "\ex")
	)
    )
)

-- 
Boyd Hays	
213/323-8170 x.2058
cadovax!boyd