[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/term/mac-win.el
From: |
YAMAMOTO Mitsuharu |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/term/mac-win.el |
Date: |
Fri, 19 May 2006 09:09:38 +0000 |
Index: emacs/lisp/term/mac-win.el
diff -u emacs/lisp/term/mac-win.el:1.70 emacs/lisp/term/mac-win.el:1.71
--- emacs/lisp/term/mac-win.el:1.70 Wed May 10 08:22:39 2006
+++ emacs/lisp/term/mac-win.el Fri May 19 09:09:37 2006
@@ -1585,17 +1585,6 @@
(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 @@
(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)
- [Emacs-diffs] Changes to emacs/lisp/term/mac-win.el, YAMAMOTO Mitsuharu, 2006/05/05
- [Emacs-diffs] Changes to emacs/lisp/term/mac-win.el, YAMAMOTO Mitsuharu, 2006/05/06
- [Emacs-diffs] Changes to emacs/lisp/term/mac-win.el, YAMAMOTO Mitsuharu, 2006/05/07
- [Emacs-diffs] Changes to emacs/lisp/term/mac-win.el, YAMAMOTO Mitsuharu, 2006/05/10
- [Emacs-diffs] Changes to emacs/lisp/term/mac-win.el,
YAMAMOTO Mitsuharu <=
- [Emacs-diffs] Changes to emacs/lisp/term/mac-win.el, YAMAMOTO Mitsuharu, 2006/05/20
- [Emacs-diffs] Changes to emacs/lisp/term/mac-win.el, YAMAMOTO Mitsuharu, 2006/05/24