aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorAndrew Choi2002-07-01 20:02:33 +0000
committerAndrew Choi2002-07-01 20:02:33 +0000
commitbc21bf11c1770f87b8e6a2472bfcfbac4209076f (patch)
treea4497cc1d17efeae1e154ba691d54787d8c561ae /src
parent7abc9addc7501da288dd0af9fd2bdcf8bcca0c6d (diff)
downloademacs-bc21bf11c1770f87b8e6a2472bfcfbac4209076f.tar.gz
emacs-bc21bf11c1770f87b8e6a2472bfcfbac4209076f.zip
In mac:
2002-07-01 Andrew Choi <akochoi@shaw.ca> * Emacs.app/Contents/Resources/Emacs.icns: New file. * Emacs.app/Contents/Info.plist: Add CFBundleDocumentTypes and CFBundleIconFile entries. In src: 2002-07-01 Andrew Choi <akochoi@shaw.ca> * macterm.c (do_ae_open_documents) [MAC_OSX]: Call FSpMakeFSRef and FSRefMakePath to convert FSSpec returned with Apple Event to Posix pathname. (mac_initialize) [TARGET_API_MAC_CARBON]: Call init_required_apple_events and disable the `Quit' menu item provided automatically by the Carbon Toolbox.
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog11
-rw-r--r--src/macterm.c45
2 files changed, 41 insertions, 15 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index 12a056e92bb..f2ebcdd5b30 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,12 @@
12002-07-01 Andrew Choi <akochoi@shaw.ca>
2
3 * macterm.c (do_ae_open_documents) [MAC_OSX]: Call FSpMakeFSRef
4 and FSRefMakePath to convert FSSpec returned with Apple Event to
5 Posix pathname.
6 (mac_initialize) [TARGET_API_MAC_CARBON]: Call
7 init_required_apple_events and disable the `Quit' menu item
8 provided automatically by the Carbon Toolbox.
9
12002-07-01 Dave Love <fx@gnu.org> 102002-07-01 Dave Love <fx@gnu.org>
2 11
3 * keyboard.c (kbd_buffer_store_event): Fix interrupt_signal decl 12 * keyboard.c (kbd_buffer_store_event): Fix interrupt_signal decl
@@ -135,7 +144,7 @@
135 * w32fns.c (file_dialog_callback): New function. 144 * w32fns.c (file_dialog_callback): New function.
136 (Fx_file_dialog): Allow selecting directories as well as files. 145 (Fx_file_dialog): Allow selecting directories as well as files.
137 146
1382002-06-21 Pavel Jan,Bm(Bk <Pavel@Janik.cz> 1472002-06-21 Pavel Jan,Am(Bk <Pavel@Janik.cz>
139 148
140 * m/pmax.h (START_FILES): Define START_FILES for NetBSD and 149 * m/pmax.h (START_FILES): Define START_FILES for NetBSD and
141 OpenBSD. Add support for mipseb-*-netbsd* machines. 150 OpenBSD. Add support for mipseb-*-netbsd* machines.
diff --git a/src/macterm.c b/src/macterm.c
index 41dfbc0c0ab..ae1d7389d19 100644
--- a/src/macterm.c
+++ b/src/macterm.c
@@ -12123,20 +12123,31 @@ do_ae_open_documents(AppleEvent *message, AppleEvent *reply, long refcon)
12123 int i; 12123 int i;
12124 12124
12125 /* AE file list is one based so just use that for indexing here. */ 12125 /* AE file list is one based so just use that for indexing here. */
12126 for (i = 1; (err == noErr) && (i <= num_files_to_open); i++) { 12126 for (i = 1; (err == noErr) && (i <= num_files_to_open); i++)
12127 FSSpec fs; 12127 {
12128 Str255 path_name, unix_path_name; 12128 FSSpec fs;
12129 12129 Str255 path_name, unix_path_name;
12130 err = AEGetNthPtr(&the_desc, i, typeFSS, &keyword, &actual_type, 12130#ifdef MAC_OSX
12131 (Ptr) &fs, sizeof (fs), &actual_size); 12131 FSRef fref;
12132 if (err != noErr) break; 12132#endif
12133 12133
12134 if (path_from_vol_dir_name (path_name, 255, fs.vRefNum, fs.parID, 12134 err = AEGetNthPtr(&the_desc, i, typeFSS, &keyword, &actual_type,
12135 fs.name) && 12135 (Ptr) &fs, sizeof (fs), &actual_size);
12136 mac_to_posix_pathname (path_name, unix_path_name, 255)) 12136 if (err != noErr) break;
12137 drag_and_drop_file_list = Fcons (build_string (unix_path_name), 12137
12138 drag_and_drop_file_list); 12138#ifdef MAC_OSX
12139 } 12139 err = FSpMakeFSRef (&fs, &fref);
12140 if (err != noErr) break;
12141
12142 if (FSRefMakePath (&fref, unix_path_name, 255) == noErr)
12143#else
12144 if (path_from_vol_dir_name (path_name, 255, fs.vRefNum, fs.parID,
12145 fs.name) &&
12146 mac_to_posix_pathname (path_name, unix_path_name, 255))
12147#endif
12148 drag_and_drop_file_list = Fcons (build_string (unix_path_name),
12149 drag_and_drop_file_list);
12150 }
12140 } 12151 }
12141 } 12152 }
12142 12153
@@ -13142,6 +13153,12 @@ mac_initialize ()
13142#endif 13153#endif
13143 13154
13144 mac_initialize_display_info (); 13155 mac_initialize_display_info ();
13156
13157#if TARGET_API_MAC_CARBON
13158 init_required_apple_events ();
13159
13160 DisableMenuCommand (NULL, kHICommandQuit);
13161#endif
13145} 13162}
13146 13163
13147 13164