add regexp-debugging -------------------- ChangeLog entries follow: -------------------- src/ChangeLog addition: 2010-02-15 Ben Wing <ben@xemacs.org> * regex.c: * regex.c (DEBUG_FAIL_PRINT1): * regex.c (PUSH_FAILURE_POINT): * regex.c (POP_FAILURE_POINT): * regex.c (regex_compile): * regex.c (re_match_2_internal): * regex.h: * search.c: * search.c (search_buffer): * search.c (debug_regexps_changed): * search.c (vars_of_search): Add an internal variable debug_regexps and a corresponding Lisp variable `debug-regexps' that takes a list of areas in which to display debugging info about regex compilation and matching (currently three areas exist). Use existing debugging code already in regex.c and modify it so that it recognizes the debug_regexps variable and the flags in it. Rename variable `debug-xemacs-searches' to just `debug-searches', consistent with other debug vars. tests/ChangeLog addition: 2010-02-15 Ben Wing <ben@xemacs.org> * automated/search-tests.el (let): * automated/search-tests.el (boundp): debug-xemacs-searches renamed to debug-searches.

--- a/tests/automated/search-tests.el	Wed Feb 10 07:25:19 2010 -0600
+++ b/tests/automated/search-tests.el	Mon Feb 15 21:51:22 2010 -0600
@@ -166,7 +166,7 @@
 
 (with-temp-buffer
   (let ((target "M\xe9zard")
-        (debug-xemacs-searches 1))
+        (debug-searches 1))
     (Assert (not (search-forward target nil t)))
     (insert target)
     (goto-char (point-min))
@@ -180,10 +180,10 @@
     (Assert= (1+ (length target)) (search-forward target nil t))))
 
 (Skip-Test-Unless
- (boundp 'debug-xemacs-searches) ; normal when we have DEBUG_XEMACS
+ (boundp 'debug-searches) ; normal when we have DEBUG_XEMACS
  "not a DEBUG_XEMACS build"
  "checks that the algorithm chosen by #'search-forward is relatively sane"
- (let ((debug-xemacs-searches 1)
+ (let ((debug-searches 1)
        newcase)
    (with-temp-buffer
      (insert "\n\nDer beruehmte deutsche Fleiss\n\n")