emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: line-line-move-visual: was line motion problem


From: Chong Yidong
Subject: Re: line-line-move-visual: was line motion problem
Date: Sat, 19 Jul 2008 23:43:15 -0400
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/23.0.60 (gnu/linux)

Stefan Monnier <address@hidden> writes:

> I think it should not be linked to word-wrap but to visual-line-mode
> (or longlines-mode).
> A side-benefit is that it can then be all done in Elisp.

Oh I see what you mean: something like this?  (i.e., making
visual-line-mode modify fringe-indicator-alist)?


*** trunk/lisp/simple.el.~1.935.~ 2008-07-18
01:10000 -0400
--- trunk/lisp/simple.el      2008-07-19 23:39:47.000000000
-0400
***************
*** 4482,4490 ****
    (if visual-line-mode
        (progn
        (set (make-local-variable 'line-move-visual) t)
!       (setq word-wrap t))
      (kill-local-variable 'line-move-visual)
!     (kill-local-variable 'word-wrap)))
  
  (defun turn-on-visual-line-mode ()
    (visual-line-mode 1))
--- 4482,4494 ----
    (if visual-line-mode
        (progn
        (set (make-local-variable 'line-move-visual) t)
!       (setq word-wrap t)
!       (setq fringe-indicator-alist (copy-tree fringe-indicator-alist))
!       (setcdr (assq 'continuation fringe-indicator-alist)
!               (list nil nil nil nil)))
      (kill-local-variable 'line-move-visual)
!     (kill-local-variable 'word-wrap)
!     (kill-local-variable 'fringe-indicator-alist)))
  
  (defun turn-on-visual-line-mode ()
    (visual-line-mode 1))




reply via email to

[Prev in Thread] Current Thread [Next in Thread]