Function: newsticker--treeview-tree-open-menu

newsticker--treeview-tree-open-menu is a byte-compiled function defined in newst-treeview.el.gz.

Signature

(newsticker--treeview-tree-open-menu EVENT)

Documentation

Open tree menu at position of EVENT.

Source Code

;; Defined in /usr/src/emacs/lisp/net/newst-treeview.el.gz
;; ======================================================================
;;; Modes
;; ======================================================================
(defun newsticker--treeview-tree-open-menu (event)
  "Open tree menu at position of EVENT."
  (let* ((feed-name newsticker--treeview-current-feed)
         (menu (make-sparse-keymap feed-name)))
    (define-key menu [newsticker-treeview-mark-list-items-old]
      (list 'menu-item "Mark all items old"
            'newsticker-treeview-mark-list-items-old))
    (define-key menu [newsticker-treeview-get-news]
      (list 'menu-item (concat "Get news for " feed-name)
            'newsticker-treeview-get-news))
    (define-key menu [newsticker-get-all-news]
      (list 'menu-item "Get news for all feeds"
            'newsticker-get-all-news))
    (let ((choice (x-popup-menu event menu)))
      (when choice
        (funcall (car choice))))))