* 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.

diff --git a/mac/ChangeLog b/mac/ChangeLog
index 149f62838a39dea3e148800a23c43d632a99fd91..1570a6cbea136e68565687e53bc8ef71578e21ad 100644 (file)
--- a/mac/ChangeLog
+++ b/mac/ChangeLog
@@ -1,3 +1,20 @@
+2001-05-15  Andrew Choi  <akochoi@i-cable.com>
+
+       * 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  <akochoi@i-cable.com>
 
        * src/macfns.c: Rename everything containing *busy_cursor* and

diff --git a/mac/INSTALL b/mac/INSTALL
index 3ea6ab6f39252967b23df45214ee37ecc3e90f89..dd620995077a398f222ac947d9a55f76261037e0 100644 (file)
--- 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 f460f5a17352d6114ab5c7263df9cb5b813194d5..f339ed30481687ffa693c660a6cbfa3f6b640101 100644 (file)
--- 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 12ed6562744c2b6e81b5b3421f3aca5610b17584..475bce62f3c011d0e58ad7479a04ef7377cc75be 100644 (file)
--- 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 08d2aa2d8bbb0998c650f00b8e14ccd6a76e0179..1e468a308d71872a98a2b72ad9168f0d9718511f 100644 (file)
--- 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 a6f979ed7b4f8e85faec407c06a3709e5e298aee..3df7ae32ea560d64ce10ef7e99b4cd5fb294fb29 100644 (file)
--- 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);