[Emacs-diffs] /srv/bzr/emacs/trunk r104928: src/eval.c (find_handler_clause): Remove unused parameters.

[Juanma Barranquero]

------------------------------------------------------------
revno: 104928
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Mon 2011-07-04 04:14:42 +0200
message:
  src/eval.c (find_handler_clause): Remove unused parameters.
  
  * eval.c (find_handler_clause): Remove parameters `sig' and `data',
    unused since revno:102982 (2011-01-26).  All callers changed.
    Also (re)move comments that are misplaced or no longer relevant.
modified:
  src/ChangeLog
  src/eval.c

=== modified file 'src/ChangeLog'
--- a/src/ChangeLog     2011-07-03 23:21:45 +0000
+++ b/src/ChangeLog     2011-07-04 02:14:42 +0000
@@ -1,3 +1,9 @@
+2011-07-04  Juanma Barranquero  <address@hidden>
+
+       * eval.c (find_handler_clause): Remove parameters `sig' and `data',
+       unused since revno:102982 (2011-01-26).  All callers changed.
+       Also (re)move comments that are misplaced or no longer relevant.
+
 2011-07-03  Lars Magne Ingebrigtsen  <address@hidden>
 
        * callint.c (Finteractive): Clarify the meaning of "@" (bug#8813).

=== modified file 'src/eval.c'
--- a/src/eval.c        2011-07-01 05:12:00 +0000
+++ b/src/eval.c        2011-07-04 02:14:42 +0000
@@ -1640,8 +1640,7 @@
 }
 
 
-static Lisp_Object find_handler_clause (Lisp_Object, Lisp_Object,
-                                       Lisp_Object, Lisp_Object);
+static Lisp_Object find_handler_clause (Lisp_Object, Lisp_Object);
 static int maybe_call_debugger (Lisp_Object conditions, Lisp_Object sig,
                                Lisp_Object data);
 
@@ -1717,8 +1716,7 @@
 
   for (h = handlerlist; h; h = h->next)
     {
-      clause = find_handler_clause (h->handler, conditions,
-                                   error_symbol, data);
+      clause = find_handler_clause (h->handler, conditions);
       if (!NILP (clause))
        break;
     }
@@ -1889,8 +1887,10 @@
 }
 
 /* Call the debugger if calling it is currently enabled for CONDITIONS.
-   SIG and DATA describe the signal, as in find_handler_clause.  */
-
+   SIG and DATA describe the signal.  There are two ways to pass them:
+    = SIG is the error symbol, and DATA is the rest of the data.
+    = SIG is nil, and DATA is (SYMBOL . REST-OF-DATA).
+      This is for memory-full errors only.  */
 static int
 maybe_call_debugger (Lisp_Object conditions, Lisp_Object sig, Lisp_Object data)
 {
@@ -1917,19 +1917,8 @@
   return 0;
 }
 
-/* Value of Qlambda means we have called debugger and user has continued.
-   There are two ways to pass SIG and DATA:
-    = SIG is the error symbol, and DATA is the rest of the data.
-    = SIG is nil, and DATA is (SYMBOL . REST-OF-DATA).
-       This is for memory-full errors only.
-
-   We need to increase max_specpdl_size temporarily around
-   anything we do that can push on the specpdl, so as not to get
-   a second error here in case we're handling specpdl overflow.  */
-
 static Lisp_Object
-find_handler_clause (Lisp_Object handlers, Lisp_Object conditions,
-                    Lisp_Object sig, Lisp_Object data)
+find_handler_clause (Lisp_Object handlers, Lisp_Object conditions)
 {
   register Lisp_Object h;