[PATCH v2] emacs: add invisible dot instead of space at the end of notmuch-hello search box

Pieter Praet pieter at praet.org
Wed Jan 18 05:49:27 PST 2012


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


More information about the notmuch mailing list