🚀 go-pugleaf

;;; Copyright (C) 1990  General Electric Company.
;;; Written by Michael A. Kinstrey, for the
;;; DICE (DARPA Initiative in Concurrent Engineering) project.
;;;
;;; This file is for use with Epoch, a modified version of GNU Emacs.
;;; Requires Epoch 3.2 or later. 
;;;
;;; This code is distributed in the hope that it will be useful,
;;; but WITHOUT ANY WARRANTY. No author or distributor accepts
;;; responsibility to anyone for the consequences of using this code
;;; or for whether it serves any particular purpose or works at all,
;;; unless explicitly stated in a written agreement. Refer to the
;;; GNU Emacs General Public License for full details.
;;;
;;; Everyone is granted permission to copy, modify and redistribute
;;; this code, but only under the conditions described in the
;;; GNU Emacs General Public License.
;;; Among other things, the copyright notice and this notice 
;;; must be preserved on all copies.

;; This file contains functions and variables for
;; pop-up menu support. Pop-up menus remain
;; displayed until a choice is selected.
;; 
;; For pop-ups, not much extra code is needed to display menus
;; and execute related functions.

(require 'menus)

(make-local-variable 'menu-type)
(setq menu-type 'pop-up)

(setq mouse-down-menu-function 'nop) 
(setq mouse-up-menu-function   'do-button-callback) 

(defun pop-up-menu-help ()
  "Describe available functions in buffer '*Pop-Up-Menu-help*'."
  (interactive)
  (menu-help))