From: YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
Date: Fri, 19 May 2006 09:09:37 +0000 (+0000)
Subject: (mac-bytes-to-digits): Remove function.
X-Git-Tag: emacs-pretest-22.0.90~2499
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7b39356d19367ebfa56b5de3f466542c72124890;p=emacs.git

(mac-bytes-to-digits): Remove function.
(mac-handle-toolbar-switch-mode): Use coercion instead of it.
---

diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el
index 6adbdd11274..77a1533ef9a 100644
--- a/lisp/term/mac-win.el
+++ b/lisp/term/mac-win.el
@@ -1585,17 +1585,6 @@ in `selection-converter-alist', which see."
 	(ash (lsh result extended-sign-len) (- extended-sign-len))
       result)))
 
-(defun mac-bytes-to-digits (bytes &optional from to)
-  (or from (setq from 0))
-  (or to (setq to (length bytes)))
-  (let ((len (- to from))
-	(val 0.0))
-    (dotimes (i len)
-      (setq val (+ (* val 256.0)
-		   (aref bytes (+ from (if (eq (byteorder) ?B) i
-					 (- len i 1)))))))
-    (format "%.0f" val)))
-
 (defun mac-ae-selection-range (ae)
 ;; #pragma options align=mac68k
 ;; typedef struct SelectionRange {
@@ -1693,7 +1682,8 @@ modifiers, it changes global tool-bar visibility setting."
     (if (and modifiers (not (string= modifiers "\000\000\000\000")))
 	;; Globally toggle tool-bar-mode if some modifier key is pressed.
 	(tool-bar-mode)
-      (let ((window-id (mac-bytes-to-digits (cdr (mac-ae-parameter ae))))
+      (let ((window-id
+	     (mac-coerce-ae-data "long" (cdr (mac-ae-parameter ae)) "TEXT"))
 	    (rest (frame-list))
 	    frame)
 	(while (and (null frame) rest)