diff --git a/mac/ChangeLog b/mac/ChangeLog index 149f62838a3..1570a6cbea1 100644 --- a/mac/ChangeLog +++ b/mac/ChangeLog @@ -1,3 +1,20 @@ +2001-05-15 Andrew Choi + + * src/Emacs.r: Change About box message. + + * makefile.MPW: Add md5.c.x to EmacsObjects. + + * src/mac.c (select): Call WaitNextEvent instead of Delay. + (pause): Ditto. + (sleep): Ditto. + + * src/macterm.c (do_app_resume): Set cursor to arrow. + (clear_mouse_face): check for NIL Lisp object instead of null + pointer. + + * INSTALL: Delete note on compiling Lisp files on a Unix system. + Add note on turning off end of line conversion. + 2001-02-27 Andrew Choi * src/macfns.c: Rename everything containing *busy_cursor* and diff --git a/mac/INSTALL b/mac/INSTALL index 3ea6ab6f392..dd620995077 100644 --- a/mac/INSTALL +++ b/mac/INSTALL @@ -41,6 +41,11 @@ distribution converted to NFNT format can be obtained from ftp://mac-emacs.sourceforge.net/pub/mac-emacs/GNU-fonts.smi.bin +### IMPORTANT ### If you use StuffIf Expander to decompress and untar +the distribution, you *must* set the radio button in the +Preferences->Cross Platform->Convert text files to Macintosh format to +"Never". Otherwise the compiled Lisp files will be corrupted. + * BUILDING EMACS To build Emacs in the MPW Shell, simply set the directory to @@ -72,23 +77,6 @@ To build optimized or debugging version of Emacs in MPW, follow the comment in makefile.MPW to enable the -opt speed or -sym on option (see note below). -The Mac version requires compiled Lisp files to be present in the lisp -directory to run properly. It is cumbersome to bootstrap from only -the Lisp source files. One way of getting the compiled Lisp files is -to build Emacs once on, say, a Unix system and transfer that directory -to the Mac. Note that linefeed conversion must be disabled when -transferring compiled Lisp files. - -An alternative is to unzip and untar the archive lisp-elc.tgz. An -older version of frame.elc in the archive may cause a problem when the -Mac version starts up. If this is the case, simply remove or rename -that file. Then once Emacs runs, you can invoke -byte-recompile-directory on the lisp directory to byte-compile all -out-of-date Lisp files. - -You may also need to run update-autoloads-from-directories on the lisp -directory to bring loaddefs.el up-to-date. - * NOTES Emacs should build and run on a PowerMac running Mac OS 8.1 - 9.0. diff --git a/mac/makefile.MPW b/mac/makefile.MPW index f460f5a1735..f339ed30481 100644 --- a/mac/makefile.MPW +++ b/mac/makefile.MPW @@ -101,6 +101,7 @@ EmacsObjects = "{Src}lread.c.x" ¶ "{Src}macros.c.x" ¶ "{Src}marker.c.x" ¶ + "{Src}md5.c.x" ¶ "{Src}minibuf.c.x" ¶ "{Src}mktime.c.x" ¶ "{Src}mocklisp.c.x" ¶ diff --git a/mac/src/Emacs.r b/mac/src/Emacs.r index 12ed6562744..475bce62f3c 100644 --- a/mac/src/Emacs.r +++ b/mac/src/Emacs.r @@ -139,9 +139,7 @@ resource 'DITL' (128, purgeable) { {10, 60, 72, 278}, StaticText { disabled, - "GNU Emacs 21.0.99 for Mac OS\n" - "(27 February 2001 release)\n" - "Report bugs to emacs-pretest-bug@gnu.org" + "GNU Emacs 21 for Mac OS" } } }; diff --git a/mac/src/mac.c b/mac/src/mac.c index 08d2aa2d8bb..1e468a308d7 100644 --- a/mac/src/mac.c +++ b/mac/src/mac.c @@ -808,7 +808,6 @@ select(n, rfds, wfds, efds, timeout) { EMACS_TIME end_time, now; EventRecord e; - unsigned long final_tick; /* Can only handle wait for keyboard input. */ if (n > 1 || wfds || efds) @@ -840,7 +839,7 @@ select(n, rfds, wfds, efds, timeout) } } - Delay (1UL, &final_tick); + WaitNextEvent (0, &e, 1UL, NULL); /* Accept no event; wait 1 tic. by T.I.*/ EMACS_GET_TIME (now); EMACS_SUB_TIME (now, end_time, now); @@ -856,13 +855,14 @@ select(n, rfds, wfds, efds, timeout) int pause () { - unsigned long final_tick; + EventRecord e; + unsigned long tick; if (!target_ticks) /* no alarm pending */ return -1; - while (TickCount () <= target_ticks) - Delay (1UL, &final_tick); /* wait 1/60 second before retrying */ + if ( (tick = TickCount ()) < target_ticks ) + WaitNextEvent (0, &e, target_ticks - tick, NULL); /* Accept no event; just wait. by T.I.*/ target_ticks = 0; if (alarm_signal_func) @@ -964,9 +964,10 @@ gettimeofday (tp) unsigned int sleep (unsigned int seconds) { - unsigned long final_tick; + EventRecord e; + + WaitNextEvent (0, &e, seconds * 60UL, NULL); /* Accept no event; just wait. by T.I.*/ - Delay (seconds * 60UL, &final_tick); return (0); } #endif /* __MRC__ */ diff --git a/mac/src/macterm.c b/mac/src/macterm.c index a6f979ed7b4..3df7ae32ea5 100644 --- a/mac/src/macterm.c +++ b/mac/src/macterm.c @@ -7532,7 +7532,7 @@ void clear_mouse_face (dpyinfo) struct mac_display_info *dpyinfo; { - if (tip_frame) + if (!NILP (tip_frame)) return; if (! NILP (dpyinfo->mouse_face_window)) @@ -11260,6 +11260,8 @@ do_app_resume () mac_output *mwp = (mac_output *) GetWRefCon (FrontWindow ()); struct frame *f = mwp->mFP; + SetCursor (&qd.arrow); + if (f) { x_new_focus_frame (FRAME_MAC_DISPLAY_INFO (f), f);