From xemacs-m  Mon Mar  3 18:22:12 1997
Received: from jagor.srce.hr (hniksic@jagor.srce.hr [161.53.2.130])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id SAA23408
	for <xemacs-beta@xemacs.org>; Mon, 3 Mar 1997 18:22:01 -0600 (CST)
Received: (from hniksic@localhost)
          by jagor.srce.hr (8.8.5/8.8.4)
	  id BAA03452; Tue, 4 Mar 1997 01:21:47 +0100 (MET)
Sender: hniksic@public.srce.hr
To: XEmacs Developers <xemacs-beta@xemacs.org>
Subject: Uncleanliness in edebug
X-URL: ftp://gnjilux.cc.fer.hr/pub/unix/util/wget/
X-Attribution: Hrv
X-Face: &}4JQk=L;e.~x+|eo]#DGk@x3~ed!.~lZ}YQcYb7f[WL9L'Z*+OyA\nAEL1M(".[qvI#a2E
 6WYI5>>e7'@_)3Ol9p|Nn2wNa/;~06jL*B%tTcn/XvhAu7qeES0\|MF%$;sI#yn1+y"
From: Hrvoje Niksic <hniksic@srce.hr>
Date: 04 Mar 1997 01:21:46 +0100
Message-ID: <kigsp2c33s5.fsf@jagor.srce.hr>
Lines: 46

For a long time I have been annoyed by the abomination caused by the
equalness (maybe `eq'-ness would be a better word) or chars and
numbers in Emacs.  Namely, edebug always prints "Result: 0 = C-@", or
"Result: 1 = C-a", etc.

Now, I think we finally don't need that terrible cruft.  If the result
is a number, let it be printed as a number.  If it's a character, it
will be printed as ?<whatever>.  It's much nicer, IMHO.

I have fixed this, and checked -- it seems to work fine (the fix is
very simple).  Here is the patch that does it for 20.1-b3.  *Do not*
apply this patch to 19.15.

--- ChangeLog.orig	Tue Mar  4 01:20:04 1997
+++ ChangeLog	Tue Mar  4 01:20:58 1997
@@ -1,3 +1,8 @@
+Tue Mar  4 01:19:37 1997  Hrvoje Niksic  <hniksic@srce.hr>
+
+	* edebug/edebug.el (edebug-compute-previous-result): Don't treat
+ 	numbers as chars.
+
 Sun Mar  2 01:37:04 1997  Hrvoje Niksic  <hniksic@srce.hr>
 
 	* utils/mail-extr.el (all-top-level-domains): Added "hr" domain.
--- edebug.el.orig	Tue Mar  4 01:10:40 1997
+++ edebug.el	Tue Mar  4 01:13:20 1997
@@ -3715,11 +3715,8 @@
 
 (defun edebug-compute-previous-result (edebug-previous-value)
   (setq edebug-previous-result
-	(if (and (numberp edebug-previous-value)
-		 (< edebug-previous-value 256)
-		 (>= edebug-previous-value 0))
-	    (format "Result: %s = %s" edebug-previous-value
-		    (single-key-description edebug-previous-value))
+	(if (numberp edebug-previous-value)
+	    (format "Result: %s" edebug-previous-value)
 	  (if edebug-unwrap-results
 	      (setq edebug-previous-value 
 		    (edebug-unwrap* edebug-previous-value)))


-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
I'm a Lisp variable -- bind me!

