diff options
| author | Richard M. Stallman | 1993-03-08 07:44:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-03-08 07:44:39 +0000 |
| commit | bb621b01c90c481c03148c0a907d6fa61e2816be (patch) | |
| tree | b733df23028a6dade192c3c71fc3caf4ac0340b6 | |
| parent | c581d7100cec3a2e8b8411155f822e6200139faa (diff) | |
| download | emacs-bb621b01c90c481c03148c0a907d6fa61e2816be.tar.gz emacs-bb621b01c90c481c03148c0a907d6fa61e2816be.zip | |
entered into RCS
| -rw-r--r-- | lisp/emacs-lisp/levents.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/levents.el b/lisp/emacs-lisp/levents.el index f38a25c2fbf..1a15e725e73 100644 --- a/lisp/emacs-lisp/levents.el +++ b/lisp/emacs-lisp/levents.el | |||
| @@ -230,7 +230,7 @@ will be returned for events which have no direct ASCII equivalent." | |||
| 230 | (defun event-x (event) | 230 | (defun event-x (event) |
| 231 | "Returns the X position in characters of the given mouse-related event." | 231 | "Returns the X position in characters of the given mouse-related event." |
| 232 | (/ (car (posn-col-row (event-end event))) | 232 | (/ (car (posn-col-row (event-end event))) |
| 233 | (character-width (window-frame (event-window event))))) | 233 | (frame-char-width (window-frame (event-window event))))) |
| 234 | 234 | ||
| 235 | (defun event-x-pixel (event) | 235 | (defun event-x-pixel (event) |
| 236 | "Returns the X position in pixels of the given mouse-related event." | 236 | "Returns the X position in pixels of the given mouse-related event." |
| @@ -239,7 +239,7 @@ will be returned for events which have no direct ASCII equivalent." | |||
| 239 | (defun event-y (event) | 239 | (defun event-y (event) |
| 240 | "Returns the Y position in characters of the given mouse-related event." | 240 | "Returns the Y position in characters of the given mouse-related event." |
| 241 | (/ (cdr (posn-col-row (event-end event))) | 241 | (/ (cdr (posn-col-row (event-end event))) |
| 242 | (character-width (window-frame (event-window event))))) | 242 | (frame-char-height (window-frame (event-window event))))) |
| 243 | 243 | ||
| 244 | (defun event-y-pixel (event) | 244 | (defun event-y-pixel (event) |
| 245 | "Returns the Y position in pixels of the given mouse-related event." | 245 | "Returns the Y position in pixels of the given mouse-related event." |