07/10/12 08:35:42
>>714
(let (selected-bookmark) ... ) と囲んでやればいいんだけど、
あまりコメントつかないのはそのコードの筋が悪いからじゃないかな。
俺ならafter adviceにするな。これでどう?
(setq bookmark-sort-flag nil)
(defadvice bookmark-jump-noselect (after my-prepend-mru activate compile)
"Move most recently used bookmark to the head of `bookmark-alist'."
(let ((elt (assoc (ad-get-arg 0) bookmark-alist)))
(when (and elt (not (eq elt (car bookmark-alist))))
(setq bookmark-alist (cons elt (delq elt bookmark-alist)))
(bookmark-bmenu-save nil)
(bookmark-bmenu-surreptitiously-rebuild-list))))