diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-03-08 07:44:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-03-08 07:44:39 +0000 |
| commit | bb621b01c90c481c03148c0a907d6fa61e2816be (patch) | |
| tree | b733df23028a6dade192c3c71fc3caf4ac0340b6 /lisp | |
| parent | c581d7100cec3a2e8b8411155f822e6200139faa (diff) | |
| download | emacs-bb621b01c90c481c03148c0a907d6fa61e2816be.tar.gz | |
entered into RCS
Diffstat (limited to 'lisp')
| -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." (defun event-x (event) "Returns the X position in characters of the given mouse-related event." (/ (car (posn-col-row (event-end event))) - (character-width (window-frame (event-window event))))) + (frame-char-width (window-frame (event-window event))))) (defun event-x-pixel (event) "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." (defun event-y (event) "Returns the Y position in characters of the given mouse-related event." (/ (cdr (posn-col-row (event-end event))) - (character-width (window-frame (event-window event))))) + (frame-char-height (window-frame (event-window event))))) (defun event-y-pixel (event) "Returns the Y position in pixels of the given mouse-related event." |