[PATCH 2/4] emacs: reindent `notmuch-hello' function

Dmitry Kurochkin dmitry.kurochkin at gmail.com
Sat Dec 24 20:14:53 PST 2011


Reindent `notmuch-hello' function after the search history changes.
---
 emacs/notmuch-hello.el |   56 ++++++++++++++++++++++++------------------------
 1 files changed, 28 insertions(+), 28 deletions(-)

diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el
index eb08a09..fa33500 100644
--- a/emacs/notmuch-hello.el
+++ b/emacs/notmuch-hello.el
@@ -493,34 +493,34 @@ Complete list of currently available key bindings:
 	  (let ((start (point)))
 	    (loop for i from 1 to notmuch-hello-recent-searches-max
 		  for search in notmuch-search-history do
-		    (let ((widget-symbol (intern (format "notmuch-hello-search-%d" i))))
-		      (set widget-symbol
-			   (widget-create 'editable-field
-					  ;; Don't let the search boxes be
-					  ;; less than 8 characters wide.
-					  :size (max 8
-						     (- (window-width)
-							;; Leave some space
-							;; at the start and
-							;; end of the
-							;; boxes.
-							(* 2 notmuch-hello-indent)
-							;; 1 for the space
-							;; before the
-							;; `[save]' button. 6
-							;; for the `[save]'
-							;; button.
-							1 6))
-					  :action (lambda (widget &rest ignore)
-						    (notmuch-hello-search (widget-value widget)))
-					  search))
-		      (widget-insert " ")
-		      (widget-create 'push-button
-				     :notify (lambda (widget &rest ignore)
-					       (notmuch-hello-add-saved-search widget))
-				     :notmuch-saved-search-widget widget-symbol
-				     "save"))
-		    (widget-insert "\n"))
+		  (let ((widget-symbol (intern (format "notmuch-hello-search-%d" i))))
+		    (set widget-symbol
+			 (widget-create 'editable-field
+					;; Don't let the search boxes be
+					;; less than 8 characters wide.
+					:size (max 8
+						   (- (window-width)
+						      ;; Leave some space
+						      ;; at the start and
+						      ;; end of the
+						      ;; boxes.
+						      (* 2 notmuch-hello-indent)
+						      ;; 1 for the space
+						      ;; before the
+						      ;; `[save]' button. 6
+						      ;; for the `[save]'
+						      ;; button.
+						      1 6))
+					:action (lambda (widget &rest ignore)
+						  (notmuch-hello-search (widget-value widget)))
+					search))
+		    (widget-insert " ")
+		    (widget-create 'push-button
+				   :notify (lambda (widget &rest ignore)
+					     (notmuch-hello-add-saved-search widget))
+				   :notmuch-saved-search-widget widget-symbol
+				   "save"))
+		  (widget-insert "\n"))
 	    (indent-rigidly start (point) notmuch-hello-indent)))
 
 	(when alltags-alist
-- 
1.7.7.3



More information about the notmuch mailing list