Changeset 4089 for vendor/emacs-CVS_HEAD/lisp/term/mac-win.el

Timestamp:

05/27/06 09:57:08 (3 years ago)

Author:

miyoshi

Message:

Load emacs-to-svn into vendor/emacs-CVS_HEAD.

Files:

• vendor/emacs-CVS_HEAD/lisp/term/mac-win.el (modified) (7 diffs)

vendor/emacs-CVS_HEAD/lisp/term/mac-win.el

@@ -1586 +1586 @@
-      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
@@ -1628 +1617 @@
-    (dolist (file-name (mac-ae-list ae nil 'undecoded-file-name))
-      (if file-name
-
+
+
+
+
-    (let ((selection-range (mac-ae-selection-range ae))
-          (search-text (mac-ae-text-for-search ae)))
@@ -1658 +1650 @@
-    (if (string= (url-type parsed-url) "mailto")
-        (url-mailto parsed-url)
-error "Unsupported URL scheme: %s" (url-type parsed-url)
+mac-resume-apple-event ae t
-
-(setq mac-apple-event-map (make-sparse-keymap))
@@ -1694 +1686 @@
-        ;; Globally toggle tool-bar-mode if some modifier key is pressed.
-        (tool-bar-mode)
-
+
+
-            (rest (frame-list))
-            frame)
@@ -1808 +1801 @@
-  (interactive "e")
-  (let* ((binding (lookup-key mac-apple-event-map (mac-event-spec event)))
-service-message
-
-       (cdr (mac-ae-parameter (mac-event-ae event)
+ae (mac-event-ae event))
+(service-message
+                      (cdr (mac-ae-parameter ae
-    (when service-message
-      (setq service-message
@@ -1818 +1811 @@
-    ;; returns it.
-    (setcar (cdr event) (list (selected-window) (point) '(0 . 0) 0))
-
+
+
+
+
+
+
+
+
+
+
-
-(global-set-key [mac-apple-event] 'mac-dispatch-apple-event)
@@ -1827 +1829 @@
-;; the files should be opened.
-(add-hook 'after-init-hook 'mac-process-deferred-apple-events)
+
+(run-with-idle-timer 5 t 'mac-cleanup-expired-apple-events)
-
-