Mercurial > hg > xemacs-beta

comparison lisp/term/sun-mouse.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children 5a88923fcbfe
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
593 the FORM associated with the selected STRING is evaluated, 593 the FORM associated with the selected STRING is evaluated,
594 and the resulting value is returned. Generally these FORMs are 594 and the resulting value is returned. Generally these FORMs are
595 evaluated for their side-effects rather than their values. 595 evaluated for their side-effects rather than their values.
596 If the selected form is a menu or a symbol whose value is a menu, 596 If the selected form is a menu or a symbol whose value is a menu,
597 then it is displayed and evaluated as a pullright menu item. 597 then it is displayed and evaluated as a pullright menu item.
598 If the the FORM of the first ITEM is nil, the STRING of the item 598 If the FORM of the first ITEM is nil, the STRING of the item
599 is used as a label for the menu, i.e. it's inverted and not selectable." 599 is used as a label for the menu, i.e. it's inverted and not selectable."
600 600
601 (if (symbolp menu) (setq menu (symbol-value menu))) 601 (if (symbolp menu) (setq menu (symbol-value menu)))
602 (eval (sun-menu-internal *menu-window* *menu-x* *menu-y* 4 menu))) 602 (eval (sun-menu-internal *menu-window* *menu-x* *menu-y* 4 menu)))
603 603