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

[Vinicius Jose Latorre <viniciusjl@ig.com.br>]

Chong Yidong wrote:
> Vinicius Jose Latorre <viniciusjl@ig.com.br> writes:
>
>> Second, there is already whitespace-newline which is the face used to
>> visualize newlines.
>>
>> If it is necessary to have specific functions to display newlines, it
>> should be something like this:
>>
>> (defun whitespace-newline ()
>>    (let ((whitespace-style '(newline-mark newline)))
>>       (whitespace-mode 1)))
>>
>> (defun global-whitespace-newline ()
>>    (let ((whitespace-style '(newline-mark newline)))
>>       (global-whitespace-mode 1)))
>
> Aha.  This certainly looks like a much better solution (it will have to
> be rewritten properly using define-minor-mode, though).
>
> Thanks.

What about the code below?


;;;###autoload
(define-minor-mode whitespace-newline-mode
  "Toggle newline minor mode visualization (\"nl\" on modeline).

If ARG is null, toggle newline visualization.
If ARG is a number greater than zero, turn on visualization;
otherwise, turn off visualization.
Only useful with a windowing system."
  :lighter    " nl"
  :init-value nil
  :global     nil
  :group      'whitespace
  (let ((whitespace-style '(newline-mark newline)))
    (whitespace-mode whitespace-newline-mode)))


;;;###autoload
(define-minor-mode global-whitespace-newline-mode
  "Toggle newline global minor mode visualization (\"NL\" on modeline).

If ARG is null, toggle newline visualization.
If ARG is a number greater than zero, turn on visualization;
otherwise, turn off visualization.
Only useful with a windowing system."
  :lighter    " NL"
  :init-value nil
  :global     t
  :group      'whitespace
  (let ((whitespace-style '(newline-mark newline)))
    (global-whitespace-mode global-whitespace-newline-mode)))