 
 ;;; Code:
 (eval-when-compile (require 'cl))
+(require 'auto-complete)
 (require 'json)
 (require 'pos-tip nil t)
 (require 'thingatpt)
-(require 'button-lock nil t)
-
-;; (require 'json-mode)
-;; (require 'ring)
-;; (require 'etags)
-;; (require 'flymake)
-;; (require 'eldoc)
-;; (require 'log4e)
-;; (require 'yaxception)
+(require 'button-lock)
 
 ;; ------------------------------------------------------------------------
 ;; A structure to represent positions 

  "Popup help about anything at point."
  (interactive)
  (let* ((pos    (liquid-get-position))
	 (ident  (liquid-ident-at-pos pos))
	 (sorry  (format "No information for %s" ident))
         (annot  (liquid-annot-at-pos pos)))
    (if annot 
	(liquid-tip-popup annot)
        (liquid-tip-popup sorry))))


;;;###autoload

;; DEBUG 	    (position-string pos) 
;; DEBUG 	    ident)))

(defun liquid-ident-at-pos (pos)
  "Return the identifier at a given position"
  (thing-at-point 'word))
