diff options
| author | Richard M. Stallman | 1993-03-12 10:15:36 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-03-12 10:15:36 +0000 |
| commit | 933ff4729c2ba80f7dbee4b2aba359be7f69f5f6 (patch) | |
| tree | a7b9ed8aa23c2419f08f40918a8a6ee71c88b03f | |
| parent | 12740e58f3805fbe7865d1931000cf875975e32c (diff) | |
| download | emacs-933ff4729c2ba80f7dbee4b2aba359be7f69f5f6.tar.gz emacs-933ff4729c2ba80f7dbee4b2aba359be7f69f5f6.zip | |
(Fx_popup_menu): Allow a frame instead of a window, in arg.
Use Fcar, Fcdr when extracting from event, to check data types.
| -rw-r--r-- | src/xmenu.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/xmenu.c b/src/xmenu.c index aa8ec70a520..4d86a6296b2 100644 --- a/src/xmenu.c +++ b/src/xmenu.c | |||
| @@ -132,9 +132,9 @@ be the return value for that line (i.e. if it is selected).") | |||
| 132 | } | 132 | } |
| 133 | else | 133 | else |
| 134 | { | 134 | { |
| 135 | tem = EVENT_START (position); | 135 | tem = Fcar (Fcdr (position)); /* EVENT_START (position) */ |
| 136 | window = POSN_WINDOW (tem); | 136 | window = Fcar (tem); /* POSN_WINDOW (tem) */ |
| 137 | tem = POSN_WINDOW_POSN (tem); | 137 | tem = Fcar (Fcdr (Fcdr (tem))); /* POSN_WINDOW_POSN (tem) */ |
| 138 | x = Fcar (tem); | 138 | x = Fcar (tem); |
| 139 | y = Fcdr (tem); | 139 | y = Fcdr (tem); |
| 140 | } | 140 | } |