Commit f55fb75c authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

*** empty log message ***

parent 001cec62
......@@ -47,8 +47,10 @@
(if (consp relative-coordinate)
(move-to-window-line (car (cdr relative-coordinate)))
;; Note that hscroll must get above 1
;; before the text actually starts to move.
(move-to-column (+ (car relative-coordinate) (current-column)
(window-hscroll (selected-window))))
(1- (max 1 (window-hscroll (selected-window))))))
(defun mouse-eval-last-sexpr (event)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment