Function: eudc-bob-make-button

eudc-bob-make-button is a byte-compiled function defined in eudc-bob.el.gz.

Signature

(eudc-bob-make-button LABEL KEYMAP &optional MENU PLIST)

Documentation

Create a button with LABEL.

Attach KEYMAP, MENU and properties from PLIST to a new overlay covering LABEL.

Source Code

;; Defined in /usr/src/emacs/lisp/net/eudc-bob.el.gz
(defun eudc-bob-make-button (label keymap &optional menu plist)
  "Create a button with LABEL.
Attach KEYMAP, MENU and properties from PLIST to a new overlay covering
LABEL."
  (let (overlay
	(p (point))
	prop val)
    (insert (or label ""))
    (put-text-property p (point) 'face 'bold)
    (setq overlay (make-overlay p (point)))
    (overlay-put overlay 'mouse-face 'highlight)
    (overlay-put overlay 'keymap keymap)
    (overlay-put overlay 'local-map keymap)
    (overlay-put overlay 'menu menu)
    (while plist
      (setq prop (car plist)
	    plist (cdr plist)
	    val (car plist)
	    plist (cdr plist))
      (overlay-put overlay prop val))))