Lines Matching +defs:buffer +defs:menu
66 (make-variable-buffer-local 'current-local-mousemap)
92 Note that if MOUSE-EVENT-LIST has a local definition in the current buffer,
100 The definition goes in the current buffer's local mousemap.
174 (defmacro eval-in-buffer (buffer &rest forms)
175 "Macro to switches to BUFFER, evaluates FORMS, returns to original buffer."
177 `(let ((StartBuffer (current-buffer)))
180 (set-buffer ,buffer)
182 (set-buffer StartBuffer))))
184 (put 'eval-in-buffer 'lisp-indent-function 1)
258 (let ((form (eval-in-buffer (window-buffer *mouse-window*)
312 ;;; Something to do later: We could buffer the read commands and
548 (with-output-to-temp-buffer "*Help*"
567 (defun mouse-help-menu (function-and-binding)
569 (menu-create ; Two sub-menu items of form ("String" . nil)
574 "Displays a menu of mouse functions callable in this region."
576 (mlist (mapcar (function mouse-help-menu)
578 (menu (menu-create (cons (list (symbol-name region)) mlist)))
579 (item (sun-menu-evaluate w 0 y menu))
587 ;;; really need a menu-p, but we use vectorp and the context...
589 (defun menu-create (items)
590 "Functional form for defmenu, given a list of ITEMS returns a menu.
595 (defmacro defmenu (menu &rest itemlist)
596 "Defines MENU to be a menu, the ITEMS are (STRING . VALUE) pairs.
597 See sun-menu-evaluate for interpretation of ITEMS."
598 (list 'defconst menu (funcall 'menu-create itemlist))
601 (defun sun-menu-evaluate (*menu-window* *menu-x* *menu-y* menu)
602 "Display a pop-up menu in WINDOW at X Y and evaluate selected item
603 of MENU. MENU (or its symbol-value) should be a menu defined by defmenu.
604 A menu ITEM is a (STRING . FORM) pair;
608 If the selected form is a menu or a symbol whose value is a menu,
609 then it is displayed and evaluated as a pullright menu item.
611 is used as a label for the menu, i.e. it's inverted and not selectable."
613 (if (symbolp menu) (setq menu (symbol-value menu)))
614 (eval (sun-menu-internal *menu-window* *menu-x* *menu-y* 4 menu)))
639 (defvar sm::menu-kludge-x nil
640 "Cached frame-to-window X-Offset for sm::menu-kludge")
641 (defvar sm::menu-kludge-y nil
642 "Cached frame-to-window Y-Offset for sm::menu-kludge")
644 (defun sm::menu-kludge ()
646 (or sm::menu-kludge-y
648 (setq sm::menu-kludge-y (+ 8 (car fs)) ; a title line and borders
649 sm::menu-kludge-x 4))) ; best values depend on .defaults/Menu
651 (cons (+ (car wl) sm::menu-kludge-y)
652 (+ (cdr wl) sm::menu-kludge-x))))
661 Insert contents into the current buffer at point."
667 "Set the sunwindows selection to the region in the current buffer."
669 (sun-set-selection (buffer-substring beg end)))