diff options
Diffstat (limited to 'lisp/emacs-lisp/levents.el')
| -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." |