debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-22 02:48:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: remove redundant notmuch-hello-trim

Browse source 
Use `string-trim', which exists since Emacs 24.4.
This commit is contained in:
Jonas Bernoulli 2020-11-16 22:28:21 +01:00 committed by David Bremner
parent 05a436f730
commit 8d701cdc99
1 changed files with 1 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
emacs/notmuch-hello.el
View file

@ -387,15 +387,9 @@ afterwards.")
(format "%s%03d" notmuch-hello-thousands-separator elem)) (format "%s%03d" notmuch-hello-thousands-separator elem))
(cdr result))))) (cdr result)))))
(defun notmuch-hello-trim (search)
"Trim whitespace."
(if (string-match "^[[:space:]]*\\(.*[^[:space:]]\\)[[:space:]]*$" search)
(match-string 1 search)
search))
(defun notmuch-hello-search (&optional search) (defun notmuch-hello-search (&optional search)
(unless (null search) (unless (null search)
(setq search (notmuch-hello-trim search)) (setq search (string-trim search))
(let ((history-delete-duplicates t)) (let ((history-delete-duplicates t))
(add-to-history 'notmuch-search-history search))) (add-to-history 'notmuch-search-history search)))
(notmuch-search search notmuch-search-oldest-first)) (notmuch-search search notmuch-search-oldest-first))