aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorKarl Heuer1994-02-24 20:01:13 +0000
committerKarl Heuer1994-02-24 20:01:13 +0000
commit67406ef460442417a1daa4e0e5728ecc9a8c7a42 (patch)
tree3358004341126b50e82e0569eae266921123573a /src
parent3ae8ced7cb508d0b2958f78a9a47be9215bfe76b (diff)
downloademacs-67406ef460442417a1daa4e0e5728ecc9a8c7a42.tar.gz
emacs-67406ef460442417a1daa4e0e5728ecc9a8c7a42.zip
(compute_motion, vmotion): Use Fget_char_property to test for invisibility.
Diffstat (limited to 'src')
-rw-r--r--src/indent.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/src/indent.c b/src/indent.c
index cafe6122e91..5824dbc9993 100644
--- a/src/indent.c
+++ b/src/indent.c
@@ -474,7 +474,7 @@ compute_motion (from, fromvpos, fromhpos, to, tovpos, tohpos, width, hscroll, ta
474 while (pos == next_invisible && pos < to) 474 while (pos == next_invisible && pos < to)
475 { 475 {
476 XFASTINT (position) = pos; 476 XFASTINT (position) = pos;
477 prop = Fget_text_property (position, 477 prop = Fget_char_property (position,
478 Qinvisible, 478 Qinvisible,
479 Fcurrent_buffer ()); 479 Fcurrent_buffer ());
480 { 480 {
@@ -663,9 +663,9 @@ vmotion (from, vtarget, width, hscroll, window)
663 && indented_beyond_p (prevline, selective)) 663 && indented_beyond_p (prevline, selective))
664#ifdef USE_TEXT_PROPERTIES 664#ifdef USE_TEXT_PROPERTIES
665 /* watch out for newlines with `invisible' property */ 665 /* watch out for newlines with `invisible' property */
666 || ! NILP (Fget_text_property (XFASTINT (prevline), 666 || ! NILP (Fget_char_property (XFASTINT (prevline),
667 Qinvisible, 667 Qinvisible,
668 Fcurrent_buffer ())) 668 window))
669#endif 669#endif
670 )) 670 ))
671 prevline = find_next_newline (prevline - 1, -1); 671 prevline = find_next_newline (prevline - 1, -1);
@@ -700,9 +700,9 @@ vmotion (from, vtarget, width, hscroll, window)
700 || ! indented_beyond_p (prevline, selective)) 700 || ! indented_beyond_p (prevline, selective))
701#ifdef USE_TEXT_PROPERTIES 701#ifdef USE_TEXT_PROPERTIES
702 /* watch out for newlines with `invisible' property */ 702 /* watch out for newlines with `invisible' property */
703 && NILP (Fget_text_property (XFASTINT (prevline), 703 && NILP (Fget_char_property (XFASTINT (prevline),
704 Qinvisible, 704 Qinvisible,
705 Fcurrent_buffer ())) 705 window))
706#endif 706#endif
707 )) 707 ))
708 break; 708 break;