           (window (selected-window))
           menu-visual-column
           current-visual-column)
-      (goto-line line)
+      (ac-goto-line line)
       (move-to-column column)
       (setq menu-visual-column (ac-current-physical-column))
       (dotimes (i height)

(defvar ac-source-abbrev
  `((candidates
     . (lambda ()
         (all-completions ac-prefix local-abbrev-table)))
    (action
     . expand-abbrev))
  "Source for abbrev.")

  "Implemention for `ac-prefix-function' by sources."
  (let (point)
    (dolist (pair ac-omni-completion-sources)
      (when (looking-back (car pair) nil t)
        (setq ac-current-sources (cdr pair))
        (setq ac-sources-omni-completion t)
        (setq ac-completing t)
