diff options
| author | Masatake YAMATO | 2012-08-10 08:44:06 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2012-08-10 08:44:06 -0400 |
| commit | c69f56a207451f7f874877d02a44d4e4e6353b03 (patch) | |
| tree | a5a2a44790c1fe84fa8d575600415a8574a93ad7 /lisp/term | |
| parent | 9ff736dc87d2e9f1d529adb00d0c3e3080142e71 (diff) | |
| download | emacs-c69f56a207451f7f874877d02a44d4e4e6353b03.tar.gz emacs-c69f56a207451f7f874877d02a44d4e4e6353b03.zip | |
* lisp/mouse.el (popup-menu-normalize-position): New function.
(popup-menu): Use `popup-menu-normalize-position' to normalize
the form for POSITION argument.
* lisp/term/x-win.el (x-menu-bar-open):
Use the value returend from (posn-at-point) as position
passed to `popup-menu'.
Diffstat (limited to 'lisp/term')
| -rw-r--r-- | lisp/term/x-win.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index fb7389b856c..3f58614eb64 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el | |||
| @@ -1316,7 +1316,7 @@ Request data types in the order specified by `x-select-request-type'." | |||
| 1316 | (popup-menu (mouse-menu-bar-map) | 1316 | (popup-menu (mouse-menu-bar-map) |
| 1317 | (if (listp last-nonmenu-event) | 1317 | (if (listp last-nonmenu-event) |
| 1318 | nil | 1318 | nil |
| 1319 | 'point))))) | 1319 | (posn-at-point)))))) |
| 1320 | 1320 | ||
| 1321 | 1321 | ||
| 1322 | ;;; Window system initialization. | 1322 | ;;; Window system initialization. |