Mercurial > hg > xemacs-beta
annotate lib-src/emacs.csh @ 5041:efaa6cd845e5
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.
| author | Ben Wing <ben@xemacs.org> |
|---|---|
| date | Mon, 15 Feb 2010 21:51:22 -0600 |
| parents | 376386a54a3c |
| children | 06dd936cde16 |
| rev | line source |
|---|---|
| 0 | 1 # This defines a csh command named `edit' which resumes an |
| 2 # existing Emacs or starts a new one if none exists. | |
| 3 # One way or another, any arguments are passed to Emacs to specify files | |
| 4 # (provided you have loaded `resume.el'). | |
| 5 # - Michael DeCorte | |
| 6 | |
| 7 # These are the possible values of $whichjob | |
| 8 # 1 = new ordinary emacs (the -nw is so that it doesn't try to do X) | |
| 9 # 2 = resume emacs | |
| 10 # 3 = new emacs under X (-i is so that you get a reasonable icon) | |
| 11 # 4 = resume emacs under X | |
| 12 # 5 = new emacs under suntools | |
| 13 # 6 = resume emacs under suntools | |
| 14 # 7 = new emacs under X and suntools - doesn't make any sense, so use X | |
| 15 # 8 = resume emacs under X and suntools - doesn't make any sense, so use X | |
| 16 set EMACS_PATTERN="^\[[0-9]\] . Stopped ............ $EMACS" | |
| 17 | |
| 18 alias edit 'set emacs_command=("emacs -nw \!*" "fg %emacs" "emacs -i \!* &"\ | |
| 19 "emacsclient \!* &" "emacstool \!* &" "emacsclient \!* &" "emacs -i \!* &"\ | |
| 20 "emacsclient \!* &") ; \ | |
| 21 jobs >! $HOME/.jobs; grep "$EMACS_PATTERN" < $HOME/.jobs >& /dev/null; \ | |
| 22 @ isjob = ! $status; \ | |
| 23 @ whichjob = 1 + $isjob + $?DISPLAY * 2 + $?WINDOW_PARENT * 4; \ | |
| 24 test -S ~/.emacs_server && emacsclient \!* \ | |
| 25 || echo `pwd` \!* >! ~/.emacs_args && eval $emacs_command[$whichjob]' |