设置emacs bookmark的ido候选方式

(defun bookmark-ido-read()
(interactive)

(bookmark-maybe-load-default-file)
(let ((choise (ido-completing-read ">" bookmark-alist )))
(bookmark-jump choise)))
(define-key global-map (kbd "C-x rb") 'bookmark-ido-read)