Mercurial > emacs

comparison lisp/mouse.el @ 93:7af62c5e857d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Richard M. Stallman <rms@gnu.org>
date Fri, 14 Sep 1990 02:24:24 +0000
parents 5793fbcb9ac1
children b6358b876c71
comparison
equal deleted inserted replaced
92:2b8bcdcca3a1 93:7af62c5e857d
45 (let ((relative-coordinate 45 (let ((relative-coordinate
46 (coordinates-in-window-p (car event) (selected-window)))) 46 (coordinates-in-window-p (car event) (selected-window))))
47 (if (consp relative-coordinate) 47 (if (consp relative-coordinate)
48 (progn 48 (progn
49 (move-to-window-line (car (cdr relative-coordinate))) 49 (move-to-window-line (car (cdr relative-coordinate)))
50 ;; Note that hscroll must get above 1
51 ;; before the text actually starts to move.
50 (move-to-column (+ (car relative-coordinate) (current-column) 52 (move-to-column (+ (car relative-coordinate) (current-column)
51 (window-hscroll (selected-window)))) 53 (1- (max 1 (window-hscroll (selected-window))))))
52 (what-line))))) 54 (what-line)))))
53 55
54 (defun mouse-eval-last-sexpr (event) 56 (defun mouse-eval-last-sexpr (event)
55 (interactive "@e") 57 (interactive "@e")
56 (save-excursion 58 (save-excursion