I've added stubs for a context menu on bookmarks.

(defvar tla-bookmarks-entry-map
  (let ((map (make-sparse-keymap)))
    (define-key map [mouse-2] 'tla-bookmarks-goto-by-mouse)
    (define-key map [down-mouse-3] 'tla--generic-popup-menu)
    map)
  "Keymap used on entries in tla-bookmarks-mode buffers.")

(easy-menu-define tla-bookmarks-entry-menu nil
  "Menu used on a tla bookmark entry."
  '(""
    ["List Revisions" tla-bookmarks-goto t])
  ;; TODO
  )

I will go back to my home town in this weekend.
So the rest is your homework:)

Masatake

Reply via email to