       (when (looking-back (car pair))
         (setq ac-current-sources (cdr pair))
         (setq ac-sources-omni-completion t)
+        (setq ac-completing t)
         (setq point (match-end 0))))
     (or point
         (if (and ac-completing ac-sources-omni-completion)

(defvar ac-current-sources nil
  "Current working sources.")

(defvar ac-omni-completion-sources nil)

(make-variable-buffer-local 'ac-omni-completion-sources)

(defvar ac-sources-omni-completion nil)

(defun ac-sources-init ()
  "Implementation for `ac-init-function' by sources."


;;; History:

;; 2008-02-10 MATSUYAMA Tomohiro <t.matsuyama.pub@gmail.com>
;;
;;      * added ac-stop function (suggestion from Andy Stewart)
;;      * added ac-override-local-map switch (suggestion from Andy Stewart)
;;
;; 2008-02-03 MATSUYAMA Tomohiro <t.matsuyama.pub@gmail.com>
;;
