;ELC ;;; Compiled by mwolson@grepfind.mwolson.org on Thu Jan 24 00:15:29 2008 ;;; from file /stuff/proj/emacs/dvc/mwolson/lisp/dvc-cmenu.el ;;; in Emacs version 23.0.50.2 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`dvc-cmenu.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@56 Name of property for embedding a context menu to text. (defvar dvc-cmenu 'dvc-cmenu (#$ . 596)) #@69 Search backward the position where `dvc-cmenu' property is changed. (defalias 'dvc-cmenu-beginning #[(point) "\302 \"\207" [point dvc-cmenu previous-single-property-change] 3 (#$ . 698)]) #@68 Search forward the position where `dvc-cmenu' property is changed. (defalias 'dvc-cmenu-end #[(point) "\302 \"\207" [point dvc-cmenu next-single-property-change] 3 (#$ . 893)]) #@209 Generic function to popup a menu. The menu is defined in the text property under the point which is given by mouse. EVENT is the mouse event that called the function. PREFIX is passed to `dvc-cmenu-popup'. (defalias 'dvc-cmenu-popup-by-mouse #[(event prefix) "\302!\210\303 !\207" [event prefix mouse-set-point dvc-cmenu-popup] 2 (#$ . 1078) "e\nP"]) #@102 Return the position of POINT as (FRAME X . Y). Analogous to `mouse-position'. Copied from avoid.el. (defalias 'dvc-cmenu-mouse-avoidance-point-position #[(point) "\304 \305!\306\307!e]\310\n\311 \312 B\311 S\313!\314B\304 &\315 @ A@\\ A@ AA@\\+BB\207" [w edges point list selected-window window-edges compute-motion window-start (0 . 0) window-width window-height window-hscroll 0 selected-frame] 8 (#$ . 1439)]) #@95 Popup a menu defined in the text property under the point. PREFIX is passed to `popup-menu'. (defalias 'dvc-cmenu-popup #[(prefix) "\306`\"\203l\306`\"\307`\310\311 $\312`\310\313 $\n\203+\306\n\"\203+\n\202,` \2035 \2026`t\203b\314 !\211@\211A@)\211AA)\315#\210,\316\317\f %-\207\320\321!\207" [dvc-cmenu menu p n b e get-text-property previous-single-property-change nil line-beginning-position next-single-property-change line-end-position dvc-cmenu-mouse-avoidance-point-position set-mouse-position dvc-cmenu-popup-with-highlight dvc-highlight error "No context-menu under the point" pos object x y prefix] 7 (#$ . 1867) "P"]) #@94 Put FACE on BEGIN and END in the buffer during Popup MENU. PREFIX is passed to `popup-menu'. (defalias 'dvc-cmenu-popup-with-highlight #[(face begin end menu &optional prefix) "\306\307\216\310 \n\"\311\303 #\210\312\313!\210\314\f \"*\207" [o begin end face menu prefix nil ((delete-overlay o)) make-overlay overlay-put sit-for 0 popup-menu] 4 (#$ . 2547)]) (provide 'dvc-cmenu)