Merge remote-tracking branch 'origin/master' into for-steve
[sxemacs] / lisp / dialog-items.el
index 8c47c32..3b05a69 100644 (file)
@@ -44,7 +44,7 @@
                     're-search-backward
                   'search-backward))
               (glyph-image-property
-               (car (glyph-image-property 
+               (car (glyph-image-property
                      (nth 1 (glyph-image-property
                            search-dialog :items domain))
                      :items domain)) :text domain))
@@ -54,7 +54,7 @@
   "Popup a search dialog box."
   (interactive)
   (let ((parent (selected-frame)))
-    (make-dialog-box 
+    (make-dialog-box
      'general
      :parent parent
      :title "Search"
      :spec
      (setq search-dialog
           (make-glyph
-           `[layout 
-             :orientation horizontal 
-             :vertically-justify top 
-             :horizontally-justify center 
+           `[layout
+             :orientation horizontal
+             :vertically-justify top
+             :horizontally-justify center
              :border [string :data "Search"]
-             :items 
-             ([layout :orientation vertical 
+             :items
+             ([layout :orientation vertical
                       :justify top     ; implies left also
-                      :items 
+                      :items
                       ([string :data "Search for:"]
                        [button :descriptor "Match Case"
                                :style toggle
                                :callback-ex
                                (lambda (image-instance event)
                                  (isearch-dehighlight)
-                                 (delete-frame 
+                                 (delete-frame
                                   (event-channel event)))])])]))
      ;; These are no longer strictly necessary, but not setting a size
      ;; at all yields a much more noticeable resize since the initial