Function: help-mode-context-menu

help-mode-context-menu is a byte-compiled function defined in help-mode.el.gz.

Signature

(help-mode-context-menu MENU CLICK)

Documentation

Populate MENU with Help mode commands at CLICK.

Source Code

;; Defined in /usr/src/emacs/lisp/help-mode.el.gz
(defun help-mode-context-menu (menu click)
  "Populate MENU with Help mode commands at CLICK."
  (define-key menu [help-mode-separator] menu-bar-separator)
  (let ((easy-menu (make-sparse-keymap "Help-Mode")))
    (easy-menu-define nil easy-menu nil
      '("Help-Mode"
        ["Previous Topic" help-go-back
         :help "Go back to previous topic in this help buffer"
         :active help-xref-stack]
        ["Next Topic" help-go-forward
         :help "Go back to next topic in this help buffer"
         :active help-xref-forward-stack]))
    (dolist (item (reverse (lookup-key easy-menu [menu-bar help-mode])))
      (when (consp item)
        (define-key menu (vector (car item)) (cdr item)))))

  (when (mouse-posn-property (event-start click) 'mouse-face)
    (define-key menu [help-mode-push-button]
      `(menu-item "Follow Link" ,(lambda (event)
                                   (interactive "e")
                                   (push-button event))
                  :help "Follow the link at click")))

  menu)