Folding mode bug

Hi, I am using the latest beta of folding.el with XEmacs 21.0 "Finnish Landrace" [Lucid] (i386-pc-win32) (same bug is present with folding.el included with XEmacs). Being a big fan of zmacs-region, I was disappointed to find that folding mode caused my usual way of selecting regions (e.g. to select a line C-space, C-a, C-e) to break :( I discovered that the following 3 functions would unset my mark. Upon reading some documentation, this seems to be caused by an argument to interactive used by these functions. With the following tiny patch, the undesirable behaviour is gone. However, it looks like FSF Emacs does not know about _, so I am not sure which piece of code (XEmacs, FSF Emacs, folding.el) should be fixed. Gleb PS On an unrelated note, is there a way to make isearch open a fold, without entering it, when it finds a match? *** c:\TEMP\orig_folding.el Thu Oct 1 17:24:44 1998 --- c:\TEMP\folding.el7AAFcA Thu Oct 1 17:24:44 1998 *************** *** 2826,2832 **** "Move point right ARG characters, skipping hidden folded regions. Moves left if ARG is negative. On reaching end of buffer, stop and signal error." ! (interactive "p") (if (eq arg 1) ;; Do it a faster way for arg = 1. (if (eq (following-char) ?\r) --- 2826,2832 ---- "Move point right ARG characters, skipping hidden folded regions. Moves left if ARG is negative. On reaching end of buffer, stop and signal error." ! (interactive "_p") (if (eq arg 1) ;; Do it a faster way for arg = 1. (if (eq (following-char) ?\r) *************** *** 2863,2869 **** "Move point left ARG characters, skipping hidden folded regions. Moves right if ARG is negative. On reaching beginning of buffer, stop and signal error." ! (interactive "p") (if (eq arg 1) ;; Do it a faster way for arg = 1. ;; Catch the case where we are in a hidden region, and bump into a \r. --- 2863,2869 ---- "Move point left ARG characters, skipping hidden folded regions. Moves right if ARG is negative. On reaching beginning of buffer, stop and signal error." ! (interactive "_p") (if (eq arg 1) ;; Do it a faster way for arg = 1. ;; Catch the case where we are in a hidden region, and bump into a \r. *************** *** 2904,2910 **** ends with some hidden folded text (represented by an ellipsis), the point is positioned just before it. This prevents the point from being placed inside the folded text, which is not normally useful." ! (interactive "p") (if (or (eq arg 1) (not arg)) (beginning-of-line) --- 2904,2910 ---- ends with some hidden folded text (represented by an ellipsis), the point is positioned just before it. This prevents the point from being placed inside the folded text, which is not normally useful." ! (interactive "_p") (if (or (eq arg 1) (not arg)) (beginning-of-line)