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)