   "Set candidates with result and number of google results found."
   (let ((suggestions (anything-c-google-suggest-fetch anything-input)))
     (setq suggestions (loop for i in suggestions
-                           for elm = (concat (car i) " (" (cdr i) "results)")
+                         for interval = (- anything-gg-sug-lgh-flag (length (car i)))
+                         for elm = (concat (car i)
+                                           (make-string (+ 2 interval) ? )
+                                           "(" (cdr i) " results)")
                          collect (cons elm (car i))))
     (if (some (lambda (data) (equal (cdr data) anything-input)) suggestions)
         suggestions

         '(("Switch to buffer" . switch-to-buffer)
           ("Switch to buffer other window" . switch-to-buffer-other-window)
           ("Switch to buffer other frame" . switch-to-buffer-other-frame)))
     ,@(when (require 'elscreen nil t);(fboundp 'elscreen-goto)
             '(("Display buffer in Elscreen" . (lambda (candidate)
                                                 (let ((target-screen (elscreen-find-screen-by-buffer
                                                                       (get-buffer candidate) 'create)))
                                                   (elscreen-goto target-screen))))))
     ("Display buffer"   . display-buffer)
     ("Revert buffer" . anything-revert-buffer)
     ("Revert Marked buffers" . anything-revert-marked-buffers)

                for i in result-alist
                for data = (cdr (caadr (assoc 'suggestion i)))
                for nqueries = (cdr (caadr (assoc 'num_queries i)))
                for ldata = (length data) 
                do
                  (when (> ldata anything-gg-sug-lgh-flag)
                    (setq anything-gg-sug-lgh-flag ldata))
                collect (cons data nqueries) into cont
                finally return cont)))
      (if anything-google-suggest-use-curl-p
