public
magnars / gist:2350388
Last active

Push mark when using ido-imenu

  • Download Gist
gistfile1.el
Emacs Lisp
File suppressed. Click to show.
1 2 3 4 5 6 7 8 9 10 11 12 
;; Push mark when using ido-imenu
 
(defvar push-mark-before-goto-char nil)
 
(defadvice goto-char (before push-mark-first activate)
  (when push-mark-before-goto-char
    (push-mark)))
 
(defun ido-imenu-push-mark ()
  (interactive)
  (let ((push-mark-before-goto-char t))
    (ido-imenu)))
magnars commented

It turns out that the ido-imenu command in use in the screencast is not in Emacs 24. I have no idea where it came from either, but here's the code for that aswell: https://gist.github.com/2360578

blais commented

Why not just advice ido-imenu?


  (defadvice ido-imenu (before push-mark activate)
    (push-mark))

Please sign in to comment on this gist.

Something went wrong with that request. Please try again.