   (imenu--make-index-alist)
   (let ((name-and-pos '())
         (symbol-names '()))
-    (flet ((addsymbols (symbol-list)
+    (cl-flet ((addsymbols (symbol-list)
                        (when (listp symbol-list)
                          (dolist (symbol symbol-list)
                            (let ((name nil) (position nil))

(use-package expand-region
  :init
  (progn
    (bind-key "C-=" 'er/expand-region)))

;;;_. Emacs Rocks 10
; http://www.emacswiki.org/emacs/AceJump
(use-package ace-jump-mode
  :init
  (progn
    (bind-key "C-c " 'ace-jump-mode)))

;; Push mark when using ido-imenu

(defvar push-mark-before-goto-char nil)

(defadvice goto-char (before push-mark-first activate)

;; Push mark when using ido-imenu
(defvar push-mark-before-goto-char nil)

