Changeset 4210 for trunk/lisp/xt-mouse.el

Timestamp:

2007年06月02日 09時29分41秒 (1 year ago)

Author:

miyoshi

Message:

Sync up with Emacs_22_BASE.

Files:

• trunk/lisp/xt-mouse.el (modified) (3 diffs)

trunk/lisp/xt-mouse.el

@@ -123 +123 @@
-      c)))
-
+(defun xterm-mouse-truncate-wrap (f)
+  "Truncate with wrap-around."
+  (condition-case nil
+      ;; First try the built-in truncate, in case there's no overflow.
+      (truncate f)
+    ;; In case of overflow, do wraparound by hand.
+    (range-error
+     ;; In our case, we wrap around every 3 days or so, so if we assume
+     ;; a maximum of 65536 wraparounds, we're safe for a couple years.
+     ;; Using a power of 2 makes rounding errors less likely.
+     (let* ((maxwrap (* 65536 2048))
+            (dbig (truncate (/ f maxwrap)))
+            (fdiff (- f (* 1.0 maxwrap dbig))))
+       (+ (truncate fdiff) (* maxwrap dbig))))))
+
+
-(defun xterm-mouse-event ()
-  "Convert XTerm mouse event to Emacs mouse event."
@@ -130 +146 @@
-         ;; Emulate timestamp information.  This is accurate enough
-         ;; for default value of mouse-1-click-follows-link (450msec).
-truncate
+xterm-mouse-truncate-wrap
-                     (* 1000
-                        (- (float-time)
@@ -207 +223 @@
-(provide 'xt-mouse)
-
-;
+
-;;; xt-mouse.el ends here