From xemacs-m  Thu Mar  6 15:25:56 1997
Received: from hubbub.cisco.com (hubbub.cisco.com [198.92.30.31])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id PAA25690
	for <xemacs-beta@xemacs.org>; Thu, 6 Mar 1997 15:25:51 -0600 (CST)
Received: from sandman (sandman.cisco.com [171.68.209.51]) by hubbub.cisco.com (8.8.4-Cisco.1/CISCO.GATE.1.1) with ESMTP id NAA04685 for <xemacs-beta@xemacs.org>; Thu, 6 Mar 1997 13:25:18 -0800 (PST)
Received: (from drich@localhost) by sandman (SMI-8.6/8.6.12) id NAA05457; Thu, 6 Mar 1997 13:25:17 -0800
Date: Thu, 6 Mar 1997 13:25:17 -0800
Message-Id: <199703062125.NAA05457@sandman>
From: Dan Rich <drich@cisco.com>
MIME-Version: 1.0
Content-Type: multipart/mixed;
	boundary="1LCrlTWxc790FOUFUQ7ty6GnQX5NGTBqCLs5ndx2"
Content-Transfer-Encoding: 7bit
To: xemacs-beta@xemacs.org
Subject: Ebola warnings -- help!!
Reply-To: drich@cisco.com
X-Face: >>@YIrj6h(9FH@Qs_-ob2y~:HhB3<K:s^%ne_GjM`oNo3yFzbT'Kover1p6Qf|2_'8inv!W
 x^4ApmkH}yJ*clwm{;w(]]EV=YexeKB[\$G>j#fE)'04Kv^h\Yc+PG%t~'xXevX509R
X-Planation: X-Face can be viewed with "faces" or "xmail" (X11R5 contrib tape).


--1LCrlTWxc790FOUFUQ7ty6GnQX5NGTBqCLs5ndx2
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

I am getting repeated Ebola warnings with the code attached below in
20.1b5 on Solaris 2.5.1.  Can anyone tell what is going on? I don't
see anything obviously stupid in this code (and it's not mine, so
don't blame me!! :-)

Here's the Ebola warnings:
Ebola warning!! (103 and ?o)
   [memq, not, while, eval-region, call-interactively, command-execute, execute-extended-command, call-interactively]
Ebola warning!! (103 and ?r)
   [memq, not, while, eval-region, call-interactively, command-execute, execute-extended-command, call-interactively]
Ebola warning!! (103 and ?g)
   [memq, not, while, eval-region, call-interactively, command-execute, execute-extended-command, call-interactively]
Ebola warning!! (103 and ?\^[)
   [memq, not, while, eval-region, call-interactively, command-execute, execute-extended-command, call-interactively]
Ebola warning!! (103 and ?q)
   [memq, not, while, eval-region, call-interactively, command-execute, execute-extended-command, call-interactively]
Ebola warning!! (103 and ?\^H)
   [memq, not, while, eval-region, call-interactively, command-execute, execute-extended-command, call-interactively]
Ebola warning!! (103 and ?\^G)
   [memq, not, while, eval-region, call-interactively, command-execute, execute-extended-command, call-interactively]


-- 
Dan Rich <drich@cisco.com>  |	http://www.employees.org/~drich/
Web Team Project Lead       | "Danger, you haven't seen the last of me!" 
Cisco Systems, Inc.         |   "No, but the first of you turns my stomach!"
(408) 527-3195              |           -- The Firesign Theatre's Nick Danger

       Friends of Randal Schwartz: http://www.lightlink.com/fors/


--1LCrlTWxc790FOUFUQ7ty6GnQX5NGTBqCLs5ndx2
Content-Type: text/plain
Content-Description: code to make XEmacs Ebola
Content-Disposition: inline;
	filename="xemacs-ebola.el"
Content-Transfer-Encoding: 7bit


(defsubst read-char-safe (&optional prompt)
  "Read character safely. The read-char command chokes if mouse is
moved while reading input. This function returns 'ignore
if the read-char couldn't read answer. Otherwise it returns normal character.

Note:
  The cursor is not in the echo area when character is read. This
  may be confusing to user if you read multiple characters.

References:
  read-char-safe-until

Return:
  ch        ,character code
  'ignore   ,if read failed due to non-char event.
"
  (condition-case nil
      (progn
	(message (or prompt ""))	;prevent echoing keycodes...
	(discard-input)			;this is a must before we read

	;; char-int
	;;   Emacs: this is no-op
	;;   XE19.14: char-int doesn't exist.
	;;   XE20:  read-char has changed, it does not return
	;;          int, but a character type, and we need conversion
	;;
	(char-int (read-char))
	)
    (error
     'ignore)))



;;; ----------------------------------------------------------------------
;;; Note: see function read-char-exclusive in never emacs versions, 19.29+
;;;       It is nt almost like this function... so we don't use it.
;;;
(defun read-char-safe-until (&optional prompt)
  "Read character until given. Discards any events that are
not characters.

Return:
  character
"
  (let* (ch)
    (while (not (integerp (setq ch  (read-char-safe prompt))))
      (message "")
      (sit-for 0.2)			;flash the message
      )
    (message "")
    (if (null ch)			;XE byteCompiler silencer
	(setq ch ch))			;"bound but not referenced"

    ch
    ))

(setq rej-flag 't)
(while (not
	(memq
	 (setq
	  char
	  (read-char-safe-until
	   (format "%s\
.orig found: r = retry patch, o = back to .orig, g = go and patch"
		   (if rej-flag "[.rej]" "")
		   )))
	 '(?o ?r ?g    ?\e ?q ?\b ?\C-g))))


--1LCrlTWxc790FOUFUQ7ty6GnQX5NGTBqCLs5ndx2--

