Emacs part 22
■ このスレッドは過去ログ倉庫に格納されています
0775名無しさん@お腹いっぱい。
2007/10/12(金) 08:35:42(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))))
■ このスレッドは過去ログ倉庫に格納されています