(goto-address-mail-regexp): Allow = in username.

[gnu-emacs] / lisp / xt-mouse.el

diff --git a/lisp/xt-mouse.el b/lisp/xt-mouse.el
index 9fad35fb850c8cddebf1d18c6347d155aa773c6a..19b58475a93403f8897da1f508db0fcb1a4ac5bf 100644 (file)
--- a/lisp/xt-mouse.el
+++ b/lisp/xt-mouse.el
@@ -139,12 +139,13 @@
                                                  default-header-line-format)
                                              1
                                            0)))
-                   (move-to-column (+ (car where) (current-column)
+                   (move-to-column (- (+ (car where) (current-column)
                                       (if (string-match "\\` \\*Minibuf"
                                                         (buffer-name))
                                           (- (minibuffer-prompt-width))
                                         0)
-                                      (max 0 (1- (window-hscroll)))))
+                                      (max 0 (1- (window-hscroll))))
+                                      left-margin-width))
                    (point))
                where))
         (mouse (intern
@@ -198,4 +199,5 @@ Turn it on to use emacs mouse commands, and off to use xterm mouse commands."
 
 (provide 'xt-mouse)
 
+;;; arch-tag: 84962d4e-fae9-4c13-a9d7-ef4925a4ac03
 ;;; xt-mouse.el ends here