diff options
| author | Andrea Rossetti <andrea.rossetti@gmail.com> | 2014-06-16 08:37:37 +0200 |
|---|---|---|
| committer | Martin Rudalics <rudalics@gmx.at> | 2014-06-16 08:37:37 +0200 |
| commit | 680d0ff96854a603c7e18d8d1069067501f1b4ed (patch) | |
| tree | ccd99fcbb89cc03a97b37b4d839086a1c4e9fcc4 /lisp/ruler-mode.el | |
| parent | eca36e921340e4fe3a0f7797c1a7b6201c32b840 (diff) | |
| download | emacs-680d0ff96854a603c7e18d8d1069067501f1b4ed.tar.gz | |
In ruler-mode fix calculation of column from mouse position (Bug#17768).
* ruler-mode.el (ruler-mode-window-col)
(ruler-mode-mouse-set-left-margin)
(ruler-mode-mouse-set-right-margin): Fix calculation of column
from mouse position (Bug#17768).
Diffstat (limited to 'lisp/ruler-mode.el')
| -rw-r--r-- | lisp/ruler-mode.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/ruler-mode.el b/lisp/ruler-mode.el index 9e32a2f5c64..238754e8584 100644 --- a/lisp/ruler-mode.el +++ b/lisp/ruler-mode.el @@ -306,7 +306,6 @@ or remove a tab stop. \\[ruler-mode-toggle-show-tab-stops] or "Return a column number relative to the selected window. N is a column number relative to selected frame." (- n - (car (window-edges)) (or (car (window-margins)) 0) (fringe-columns 'left) (scroll-bar-columns 'left))) @@ -321,7 +320,7 @@ START-EVENT is the mouse click event." (when (eq start end) ;; mouse click (save-selected-window (select-window (posn-window start)) - (setq col (- (car (posn-col-row start)) (car (window-edges)) + (setq col (- (car (posn-col-row start)) (scroll-bar-columns 'left)) w (- (ruler-mode-full-window-width) (scroll-bar-columns 'left) @@ -343,7 +342,7 @@ START-EVENT is the mouse click event." (when (eq start end) ;; mouse click (save-selected-window (select-window (posn-window start)) - (setq col (- (car (posn-col-row start)) (car (window-edges)) + (setq col (- (car (posn-col-row start)) (scroll-bar-columns 'left)) w (- (ruler-mode-full-window-width) (scroll-bar-columns 'left) |