Mercurial > emacs
comparison lisp/term/mac-win.el @ 70730:3cbb04c6169f
(mac-bytes-to-digits): Remove function.
(mac-handle-toolbar-switch-mode): Use coercion instead of it.
| author | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> |
|---|---|
| date | Fri, 19 May 2006 09:09:37 +0000 |
| parents | a1af34eacdb3 |
| children | e5e83c1c6fa5 ab6ab63755f7 |
comparison
equal
deleted
inserted
replaced
| 70729:9a90863c52b1 | 70730:3cbb04c6169f |
|---|---|
| 1583 (- len i 1))))))) | 1583 (- len i 1))))))) |
| 1584 (if (> extended-sign-len 0) | 1584 (if (> extended-sign-len 0) |
| 1585 (ash (lsh result extended-sign-len) (- extended-sign-len)) | 1585 (ash (lsh result extended-sign-len) (- extended-sign-len)) |
| 1586 result))) | 1586 result))) |
| 1587 | 1587 |
| 1588 (defun mac-bytes-to-digits (bytes &optional from to) | |
| 1589 (or from (setq from 0)) | |
| 1590 (or to (setq to (length bytes))) | |
| 1591 (let ((len (- to from)) | |
| 1592 (val 0.0)) | |
| 1593 (dotimes (i len) | |
| 1594 (setq val (+ (* val 256.0) | |
| 1595 (aref bytes (+ from (if (eq (byteorder) ?B) i | |
| 1596 (- len i 1))))))) | |
| 1597 (format "%.0f" val))) | |
| 1598 | |
| 1599 (defun mac-ae-selection-range (ae) | 1588 (defun mac-ae-selection-range (ae) |
| 1600 ;; #pragma options align=mac68k | 1589 ;; #pragma options align=mac68k |
| 1601 ;; typedef struct SelectionRange { | 1590 ;; typedef struct SelectionRange { |
| 1602 ;; short unused1; // 0 (not used) | 1591 ;; short unused1; // 0 (not used) |
| 1603 ;; short lineNum; // line to select (<0 to specify range) | 1592 ;; short lineNum; // line to select (<0 to specify range) |
| 1691 (let* ((ae (mac-event-ae event)) | 1680 (let* ((ae (mac-event-ae event)) |
| 1692 (modifiers (cdr (mac-ae-parameter ae "kmod")))) | 1681 (modifiers (cdr (mac-ae-parameter ae "kmod")))) |
| 1693 (if (and modifiers (not (string= modifiers "\000\000\000\000"))) | 1682 (if (and modifiers (not (string= modifiers "\000\000\000\000"))) |
| 1694 ;; Globally toggle tool-bar-mode if some modifier key is pressed. | 1683 ;; Globally toggle tool-bar-mode if some modifier key is pressed. |
| 1695 (tool-bar-mode) | 1684 (tool-bar-mode) |
| 1696 (let ((window-id (mac-bytes-to-digits (cdr (mac-ae-parameter ae)))) | 1685 (let ((window-id |
| 1686 (mac-coerce-ae-data "long" (cdr (mac-ae-parameter ae)) "TEXT")) | |
| 1697 (rest (frame-list)) | 1687 (rest (frame-list)) |
| 1698 frame) | 1688 frame) |
| 1699 (while (and (null frame) rest) | 1689 (while (and (null frame) rest) |
| 1700 (if (string= (frame-parameter (car rest) 'window-id) window-id) | 1690 (if (string= (frame-parameter (car rest) 'window-id) window-id) |
| 1701 (setq frame (car rest))) | 1691 (setq frame (car rest))) |