🚀 go-pugleaf

Relay-Version: VMS News - V6.0 1/9/90 VAX/VMS V5.3; site kontu.utu.fi
Path: kontu.utu.fi!polaris.utu.fi!news.funet.fi!sunic!mcsun!uunet!tut.cis.ohio-state.edu!relay.eu.net!nixpbe!uucp
Newsgroups: gnu.emacs.bug
Subject: (none)
Message-ID: <9010152157.AW20008@unido.informatik.uni-dortmund.de>
From: nixpbe!uucp@relay.eu.net
Date: 15 Oct 90 21:57:24 GMT
Sender: daemon@tut.cis.ohio-state.edu
Distribution: gnu
Organization: GNUs Not Usenet
Approved: bug-gnu-emacs@prep.ai.mit.edu
Lines: 50

>From uucp Mon Oct 15 19:45 WST 1990 remote from nixsin
To: nixpbe!unido!gnu-emacs-bug
Path: nixsin!nixpbe!unido!mcsun!uunet!tut.cis.ohio-state.edu!ittc.wec.com!fpb
From: fpb@ittc.wec.com (Frank P. Bresz)
Newsgroups: gnu.emacs.bug
Subject: cursor-in-echo-area Not Working
Message-ID: <9010011900.AA14079@ittc.wec.com>
Date: 1 Oct 90 19:00:39 GMT
Sender: daemon@tut.cis.ohio-state.edu
Distribution: gnu
Organization: Westinghouse, ITTC, Pgh, PA.
Lines: 35
Posted: Mon Oct  1 20:00:39 1990



In GNU Emacs 18.55.7 of Tue Jul 31 1990 on ittc (berkeley-unix)

Hello,
	The variable in the subject line doesn't seem to be working when I
am running an X version of emacs although it works just fine when I run
under a std terminal.  I have the following function which works great on a
regular terminal i.e. xterm on another machine yet when I run Xemacs it
doesn't seem to work properly.

	P.S.  The function is a gross disgusting hack (I know) but it does
what I want.

(defun sccs-y-or-n-p (arg)
  (let ((cursor-in-echo-area t)
	(ans)
	(res))
    (message (concat arg " (y or n) "))
    (while (not (memq ans '(?\177 ?  ?n ?N ?Y ?y)))
      (setq ans (read-char))
      (setq res
	    (if (memq ans '(?\177 ?n))
		nil
	      (if (= ?N ans)
		  (progn
		    (sccs-off)
		    nil)
		(if (memq ans '(?  ?y ?Y))
		    t)))))
  res))

| ()  ()  () | Frank P. Bresz   | Westinghouse Electric Corporation
|  \  /\  /  | fpb@ittc.wec.com | ITTC Simulators Department
|   \/  \/   | uunet!ittc!fpb   | Those who can, do. Those who can't, simulate.
| ---------- | (412)733-6749    | My opinions are mine, WEC don't want 'em.