Function: newsticker--treeview-propertize-tag

newsticker--treeview-propertize-tag is a byte-compiled function defined in newst-treeview.el.gz.

Signature

(newsticker--treeview-propertize-tag TAG &optional NUM-NEW NT-ID FEED VFEED TOOLTIP)

Documentation

Return propertized copy of string TAG.

Optional argument NUM-NEW is used for choosing face, other arguments NT-ID, FEED, VFEED and TOOLTIP are added as properties.

Source Code

;; Defined in /usr/src/emacs/lisp/net/newst-treeview.el.gz
(defun newsticker--treeview-propertize-tag (tag &optional num-new nt-id feed
                                                vfeed tooltip)
  "Return propertized copy of string TAG.
Optional argument NUM-NEW is used for choosing face, other
arguments NT-ID, FEED, VFEED and TOOLTIP are added as properties."
  ;;(message "newsticker--treeview-propertize-tag `%s' %s" feed nt-id)
  (let ((face 'newsticker-treeview-face)
        (map (make-sparse-keymap)))
    (if (and num-new (> num-new 0))
        (setq face 'newsticker-treeview-new-face))
    (dolist (key '([mouse-1] [mouse-3]))
      (define-key map key #'newsticker-treeview-tree-click))
    (define-key map "\n" #'newsticker-treeview-tree-do-click)
    (define-key map "\C-m" #'newsticker-treeview-tree-do-click)
    (propertize tag 'face face 'keymap map
                :nt-id nt-id
                :nt-feed feed
                :nt-vfeed vfeed
                'help-echo tooltip
                'mouse-face 'highlight)))