Mercurial > hg > xemacs-beta

comparison lisp/packages/mode-motion+.el @ 82:6a378aca36af r20-0b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b91
author cvs
date Mon, 13 Aug 2007 09:07:36 +0200
parents 131b0175ea99
children 360340f9fd5f
comparison
equal deleted inserted replaced
81:ebca3d831cea 82:6a378aca36af
1132 (if mode-motion-highlight-lines-when-behind 1132 (if mode-motion-highlight-lines-when-behind
1133 (unwind-protect 1133 (unwind-protect
1134 (progn 1134 (progn
1135 ;; (message "%s" (event-window event)) 1135 ;; (message "%s" (event-window event))
1136 (move-to-window-line 1136 (move-to-window-line
1137 (if (< emacs-minor-version 12) 1137 (if (and (= emacs-major-version 19)
1138 (- (event-y event) 1138 (< emacs-minor-version 12))
1139 (- (event-y event)
1139 (nth 1 (window-edges window))) 1140 (nth 1 (window-edges window)))
1140 (event-y event))) 1141 (event-y event)))
1141 (beginning-of-line) 1142 (beginning-of-line)
1142 (if (= (following-char) ?\n) 1143 (if (= (following-char) ?\n)
1143 ;; empty line 1144 ;; empty line