On Tue, 17 Jan 2012 19:55:34 +0400, Dmitry Kurochkin <dmitry.kurochkin at 
gmail.com> wrote:
> This makes `show-trailing-whitespace' happy, i.e. it does not mark the
> whole search box line as trailing spaces.
> 
> Since the dot is invisible, this change makes no visible difference
> for `notmuch-hello'.
> ---
>  emacs/notmuch-hello.el |    9 ++++++---
>  1 files changed, 6 insertions(+), 3 deletions(-)
> 
> diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el
> index 02017ce..38846ef 100644
> --- a/emacs/notmuch-hello.el
> +++ b/emacs/notmuch-hello.el
> @@ -508,9 +508,12 @@ Complete list of currently available key bindings:
>                                      (length "Search: ")))
>                      :action (lambda (widget &rest ignore)
>                                (notmuch-hello-search (widget-value widget))))
> -     ;; add an invisible space to make `widget-end-of-line' ignore
> -     ;; trailine spaces in the search widget field
> -     (widget-insert " ")
> +     ;; Add an invisible dot to make `widget-end-of-line' ignore
> +     ;; trailing spaces in the search widget field.  A dot is used
> +     ;; instead of a space to make `show-trailing-whitespace'
> +     ;; happy, i.e. avoid it marking the whole line as trailing
> +     ;; spaces.
> +     (widget-insert ".")
>       (put-text-property (1- (point)) (point) 'invisible t)
>       (widget-insert "\n")
>  
> -- 
> 1.7.8.3
> 
> _______________________________________________
> notmuch mailing list
> notmuch at notmuchmail.org
> http://notmuchmail.org/mailman/listinfo/notmuch

+1


Peace

-- 
Pieter

Reply via email to