🚀 go-pugleaf

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.