CVS update by aidan xemacs/src ...

[xemacs-cvs at xemacs.org]

  User: aidan   
  Date: 07/08/08 16:54:50

  Modified:    xemacs/src ChangeLog eval.c
Log:
Merge a bug fix from Sebastian Freundt's SXEmacs work.

Revision  Changes    Path
1.1080    +9 -0      XEmacs/xemacs/src/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v
retrieving revision 1.1079
retrieving revision 1.1080
diff -u -p -r1.1079 -r1.1080
--- ChangeLog	2007/08/06 14:50:39	1.1079
+++ ChangeLog	2007/08/08 14:54:41	1.1080
@@ -1,3 +1,12 @@
+2007-08-08  Aidan Kehoe  <kehoea at parhasard.net>
+
+	* eval.c (Feval): Fix, stick with original error messages instead
+	of referring to the indirected function.
+
+	From Sebastian Freundt's mail
+	nhtfy9sitjf.fsf at muck.math.tu-berlin.de , Tue Jan 30 12:30:07 UTC
+	2007; complements 18005.16378.980760.860724 at parhasard.net . 
+
 2007-07-31  Mike Sperber  <mike at xemacs.org>
 
 	* file-coding.c (undecided_convert): Kludge to prevent infinite



1.98      +6 -1      XEmacs/xemacs/src/eval.c

Index: eval.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/eval.c,v
retrieving revision 1.97
retrieving revision 1.98
diff -u -p -r1.97 -r1.98
--- eval.c	2007/06/22 00:21:17	1.97
+++ eval.c	2007/08/08 14:54:43	1.98
@@ -3799,7 +3799,12 @@ Evaluate FORM and return its value.
 	  goto invalid_function;
 	}
     }
-  else /* ! (SUBRP (fun) || COMPILED_FUNCTIONP (fun) || CONSP (fun)) */
+  else if (UNBOUNDP (fun))
+    {
+      val = signal_void_function_error (original_fun);
+    }
+  else /* ! (SUBRP (fun) || COMPILED_FUNCTIONP (fun) || CONSP (fun)
+             UNBOUNDP (fun)) */
     {
     invalid_function:
       val = signal_invalid_function_error (fun);