Parent Directory | Revision Log | Patch
revision 1.87 by rms, Tue Aug 9 12:10:40 2005 UTC | revision 1.88 by rms, Sat Oct 29 19:32:27 2005 UTC | |
---|---|---|
# | Line 861 If the third argument is incorrect, Emac | Line 861 If the third argument is incorrect, Emac |
861 | ||
862 | case Bcondition_case: | case Bcondition_case: |
863 | { | { |
864 | Lisp_Object v1; | Lisp_Object handlers, body; |
865 | v1 = POP; | handlers = POP; |
866 | v1 = Fcons (POP, v1); | body = POP; |
867 | BEFORE_POTENTIAL_GC (); | BEFORE_POTENTIAL_GC (); |
868 | TOP = Fcondition_case (Fcons (TOP, v1)); | TOP = internal_lisp_condition_case (TOP, body, handlers); |
869 | AFTER_POTENTIAL_GC (); | AFTER_POTENTIAL_GC (); |
870 | break; | break; |
871 | } | } |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |