diff options
| author | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> | 2006-05-19 09:09:37 +0000 |
|---|---|---|
| committer | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> | 2006-05-19 09:09:37 +0000 |
| commit | 7b39356d19367ebfa56b5de3f466542c72124890 (patch) | |
| tree | 2dc6a94986793d2290cc676b5d04710c719d416c /lisp/term/mac-win.el | |
| parent | 45380d4259f266d79674c1586e7ff09a167c0b02 (diff) | |
| download | emacs-7b39356d19367ebfa56b5de3f466542c72124890.tar.gz | |
(mac-bytes-to-digits): Remove function.
(mac-handle-toolbar-switch-mode): Use coercion instead of it.
Diffstat (limited to 'lisp/term/mac-win.el')
| -rw-r--r-- | lisp/term/mac-win.el | 14 |
1 files changed, 2 insertions, 12 deletions
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) |