[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: invisible
From: |
martin rudalics |
Subject: |
Re: invisible |
Date: |
Fri, 30 Nov 2007 18:19:57 +0100 |
User-agent: |
Mozilla Thunderbird 1.0 (Windows/20041206) |
> Hmm... I didn't notice that part. But then do they also appear with
> a line-move-ignore-invisible set to nil and a disable-point-adjustment
> set to t? I would guess not (this case being trivial).
>
> If so, maybe the solution is to do as I suggested: get rid of
> line-move-ignore-invisible and use (not disable-point-adjustment) in
> its place.
FWIW, the following seems to work: Disable point-adjustment in
interactive use of `next-line' and `previous-line' and apply one of my
earlier proposed changes. Stephen, please try again with default
rear-stickiness.
*** simple.el.~1.888.~ Sat Nov 10 09:23:20 2007
--- simple.el Fri Nov 30 18:13:12 2007
***************
*** 3595,3601 ****
(line-move arg nil nil try-vscroll))
(if (interactive-p)
(condition-case nil
! (line-move arg nil nil try-vscroll)
((beginning-of-buffer end-of-buffer) (ding)))
(line-move arg nil nil try-vscroll)))
nil)
--- 3595,3606 ----
(line-move arg nil nil try-vscroll))
(if (interactive-p)
(condition-case nil
! (progn
! (unless line-move-ignore-invisible
! ;; Interactively, disable point-adjustment when
! ;; `line-move-ignore-invisible' is nil.
! (setq disable-point-adjustment t))
! (line-move arg nil nil try-vscroll))
((beginning-of-buffer end-of-buffer) (ding)))
(line-move arg nil nil try-vscroll)))
nil)
***************
*** 3621,3627 ****
(or arg (setq arg 1))
(if (interactive-p)
(condition-case nil
! (line-move (- arg) nil nil try-vscroll)
((beginning-of-buffer end-of-buffer) (ding)))
(line-move (- arg) nil nil try-vscroll))
nil)
--- 3626,3637 ----
(or arg (setq arg 1))
(if (interactive-p)
(condition-case nil
! (progn
! (unless line-move-ignore-invisible
! ;; Interactively, disable point-adjustment when
! ;; `line-move-ignore-invisible' is nil.
! (setq disable-point-adjustment t))
! (line-move (- arg) nil nil try-vscroll))
((beginning-of-buffer end-of-buffer) (ding)))
(line-move (- arg) nil nil try-vscroll))
nil)
***************
*** 3862,3868 ****
(save-excursion
;; Like end-of-line but ignores fields.
(skip-chars-forward "^\n")
! (while (and (not (eobp)) (invisible-p (point)))
(goto-char (next-char-property-change (point)))
(skip-chars-forward "^\n"))
(point))))
--- 3872,3879 ----
(save-excursion
;; Like end-of-line but ignores fields.
(skip-chars-forward "^\n")
! (while (and line-move-ignore-invisible
! (not (eobp)) (invisible-p (point)))
(goto-char (next-char-property-change (point)))
(skip-chars-forward "^\n"))
(point))))
- Re: invisible, (continued)
- Re: invisible, Richard Stallman, 2007/11/28
- Re: invisible, martin rudalics, 2007/11/29
- Re: invisible, Stefan Monnier, 2007/11/29
- Re: invisible, martin rudalics, 2007/11/29
- Re: invisible, Stefan Monnier, 2007/11/29
- Re: invisible, martin rudalics, 2007/11/29
- Re: invisible,
martin rudalics <=
- Re: invisible, Stefan Monnier, 2007/11/30
- Re: invisible, martin rudalics, 2007/11/30
- Re: invisible, Stefan Monnier, 2007/11/30
- Re: invisible, martin rudalics, 2007/11/23