Apple event handling (Carbon port)

Apple event handling (Carbon port)

[David Reitter]

Emacs should understand the "open document" Apple event, as far as  
the code goes.
However, this little AppleScript

tell application "Emacs"
	activate
	open (file "Lucy:private:tmp:hello.txt")	
end tell

just leads to the following error:

--Lisp error: (error "Parameter for \"----\" is not a list")
   signal(error ("Parameter for \"----\" is not a list"))
   error("Parameter for \"%s\" is not a list" "----")
   mac-ae-list(("aevt" ("----" "obj " . "dle2\0\0\0\0obj \0\0\0 
Z\0\0\0\x04\0\0\0\0formenum\0\0\0\x04namewanttype\0\0\0\x04fileseldTEXT\0\0\0\x1aLucy:private:tmp:he 
llo.txtfromnull\0\0\0\0")) nil undecoded-file-name)
   mac-ae-open-documents((mac-apple-event [core-event open-documents]  
("aevt" ("----" "obj " . "dle2\0\0\0\0obj \0\0\0 
Z\0\0\0\x04\0\0\0\0formenum\0\0\0\x04namewanttype\0\0\0\x04fileseldTEXT\0\0\0\x1aLucy:private:tmp:he 
llo.txtfromnull\0\0\0\0"))))
   call-interactively(mac-ae-open-documents)
   mac-dispatch-apple-event((mac-apple-event [core-event open- 
documents] ("aevt" ("----" "obj " . "dle2\0\0\0\0obj \0\0\0 
Z\0\0\0\x04\0\0\0\0formenum\0\0\0\x04namewanttype\0\0\0\x04fileseldTEXT\0\0\0\x1aLucy:private:tmp:he 
llo.txtfromnull\0\0\0\0"))))
   call-interactively(mac-dispatch-apple-event)

Re: Apple event handling (Carbon port)

[YAMAMOTO Mitsuharu]

>>>>> On Mon, 2 Jan 2006 13:02:25 +0000, David Reitter <david.reitter@gmail.com> said:

> Emacs should understand the "open document" Apple event, as far as  
> the code goes.
> However, this little AppleScript

> tell application "Emacs"
> 	activate
> 	open (file "Lucy:private:tmp:hello.txt")	
> end tell

> just leads to the following error:

Coercion to AEList seems to be needed in this case.  I installed the
following change:

Index: lisp/term/mac-win.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/term/mac-win.el,v
retrieving revision 1.60
diff -c -r1.60 mac-win.el
*** lisp/term/mac-win.el	19 Dec 2005 08:29:06 -0000	1.60
--- lisp/term/mac-win.el	5 Jan 2006 05:07:53 -0000
***************
*** 1409,1422 ****
        (error "Not an Apple event: %S" ae)
      (let ((type-data (cdr (assoc keyword (cdr ae))))
  	  data)
!       (when (and type type-data)
  	(setq data (mac-coerce-ae-data (car type-data) (cdr type-data) type))
  	(setq type-data (if data (cons type data) nil)))
        type-data)))
  
  (defun mac-ae-list (ae &optional keyword type)
    (or keyword (setq keyword "----")) ;; Direct object.
!   (let ((desc (mac-ae-parameter ae keyword)))
      (cond ((null desc)
  	   nil)
  	  ((not (equal (car desc) "list"))
--- 1409,1422 ----
        (error "Not an Apple event: %S" ae)
      (let ((type-data (cdr (assoc keyword (cdr ae))))
  	  data)
!       (when (and type type-data (not (equal type (car type-data))))
  	(setq data (mac-coerce-ae-data (car type-data) (cdr type-data) type))
  	(setq type-data (if data (cons type data) nil)))
        type-data)))
  
  (defun mac-ae-list (ae &optional keyword type)
    (or keyword (setq keyword "----")) ;; Direct object.
!   (let ((desc (mac-ae-parameter ae keyword "list")))
      (cond ((null desc)
  	   nil)
  	  ((not (equal (car desc) "list"))

				     YAMAMOTO Mitsuharu
				mituharu@math.s.chiba-u.ac.jp