   (interactive)
   (progn (if mode (setq liquid-tip-mode mode))
 	 (button-lock-mode 1)
-	 (button-lock-set-button liquid-id-regexp 'liquid-tip-show)
-	 ;; DEBUG (button-lock-set-button "yoga" 'liquid-tip-show)
-	 ;; DEBUG (button-lock-set-button "mydiv" 'liquid-tip-show)
+	 (button-lock-set-button liquid-id-regexp 'liquid-tip-show :mouse-face nil :face nil :face-policy nil :mouse-binding 'double-mouse-1)
 	 ))
 
 ;;;###autoload

  "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


;;; Code:
(eval-when-compile (require 'cl))
(require 'auto-complete)
(require 'json)
(require 'pos-tip nil t)
(require 'thingatpt)
(require 'button-lock)

;; ------------------------------------------------------------------------
;; A structure to represent positions 
