   (let ((current-prefix-arg anything-current-prefix-arg))
     (call-interactively (anything-c-symbolify cmd-or-name))))
 
+(defun anything-c-set-variable (var)
+  "Set value to VAR interactively."
+  (interactive)
+  (let ((sym (anything-c-symbolify var)))
+    (set sym (eval-minibuffer (format "Set %s: " var)
+                              (prin1-to-string (symbol-value sym))))))
+;; (setq hh 12)
+;; (anything-c-set-variable 'hh)
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Persistent Action Helpers ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(defalias 'anything-persistent-highlight-point 'anything-match-line-color-current-line)
-
 (defvar anything-match-line-overlay-face nil)
-(defvar anything-match-line-overlay (make-overlay (point) (point)))
+(defvar anything-match-line-overlay nil)
+
 (defun anything-match-line-color-current-line (&optional start end buf face rec)
   "Highlight and underline current position"
-  (move-overlay anything-match-line-overlay
-                (or start (line-beginning-position))
-                (or end (1+ (line-end-position)))
-                buf)
+  (let ((args (list (or start (line-beginning-position))
+                    (or end (1+ (line-end-position)))
+                    buf)))
+    (if (not anything-match-line-overlay)
+        (setq anything-match-line-overlay (apply 'make-overlay args))
+      (apply 'move-overlay anything-match-line-overlay args)))
   (overlay-put anything-match-line-overlay
                'face (or face anything-match-line-overlay-face))
   (when rec
     (goto-char start)
     (recenter)))
 
+(defalias 'anything-persistent-highlight-point 'anything-match-line-color-current-line)
+
 (defface anything-overlay-line-face '((t (:background "IndianRed4" :underline t)))
   "Face for source header in the anything buffer." :group 'anything)
 

    (action-transformer anything-c-transform-function-call-interactively)
    (candidate-transformer anything-c-mark-interactive-functions))
  "Function. (string or symbol)")

(define-anything-type-attribute 'sexp
  '((action ("Eval s-expression" . (lambda (c) (eval (read c))))

;;  Function:
;;     `anything-c-source-emacs-functions'              (Emacs Functions)
;;     `anything-c-source-emacs-functions-with-abbrevs' (Emacs Functions)
;;  Variable:
;;     `anything-c-source-emacs-variables' (Emacs Variables)
;;  Bookmark:
;;     `anything-c-source-bookmarks'       (Bookmarks)
;;     `anything-c-source-bookmark-set'    (Set Bookmark)
