home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / bug-lucid-emacs / text0024.txt < prev    next >
Encoding:
Text File  |  1993-07-04  |  3.6 KB  |  125 lines
  1. Hi there,
  2. the problem the RS6000 has with inserting slashes in funny places is
  3. due to the buggy insert_char function.  It has a char parameter to
  4. which a pointer is passed on to insert_raw_string.  Of course, this
  5. parameter is really an int, so this only works if the actual character
  6. is stored in the lower byte of 32-bit-words.  Since this is not the
  7. case on RS6000s, the whole thing goes berserk.  The following diff
  8. corrects the problem.  It also fixes the problem with
  9. undigestify-rmail-message, for instance.
  10.  
  11. Also, the AIX conditionals in the systime.h file are somewhat
  12. misplaced.  (They are inside other #ifdef's which don't get touched
  13. for the AIX config.)  So the patch for that is also included.  After
  14. this, things work just fine.
  15.  
  16. IMHO, these patches should make it into the standard distributions.
  17. The problems they fix are really bugs in Lucid Emacs.
  18.  
  19. Cheers =8-} Chipsy
  20.  
  21. --- snip, snip ---
  22.  
  23. *** insdel.c    Tue Apr 13 14:55:51 1993
  24. --- insdel.c.~1~    Mon Jan 11 19:41:15 1993
  25. ***************
  26. *** 515,522 ****
  27.   void
  28.   insert_char (char c)
  29.   {
  30. !   char tmp = c;
  31. !   insert_raw_string (&tmp, 1);
  32.   }
  33.   
  34.   /* Like `insert_raw_string' except that all markers pointing at the place where
  35. --- 515,521 ----
  36.   void
  37.   insert_char (char c)
  38.   {
  39. !   insert_raw_string (&c, 1);
  40.   }
  41.   
  42.   /* Like `insert_raw_string' except that all markers pointing at the place where
  43. *** systime.h    Mon Apr 12 20:51:14 1993
  44. --- systime.h.~1~    Mon Mar 15 10:36:40 1993
  45. ***************
  46. *** 33,45 ****
  47.   #include <time.h>
  48.   #endif /* _h_BSDTYPES */
  49.   
  50. - #endif
  51. - 
  52.   /* AIX needs both <sys/time.h> and <time.h>.  */
  53. ! #ifdef AIX
  54.   #include <time.h>
  55.   #endif
  56.   
  57.   
  58.   /* EMACS_TIME is the type to use to represent temporal intervals -
  59.      struct timeval on some systems, int on others.  It can be passed as
  60. --- 33,45 ----
  61.   #include <time.h>
  62.   #endif /* _h_BSDTYPES */
  63.   
  64.   /* AIX needs both <sys/time.h> and <time.h>.  */
  65. ! #ifdef _AIX
  66.   #include <time.h>
  67.   #endif
  68.   
  69. + #endif
  70. + 
  71.   
  72.   /* EMACS_TIME is the type to use to represent temporal intervals -
  73.      struct timeval on some systems, int on others.  It can be passed as
  74. ***************
  75. *** 194,201 ****
  76.       gettimeofday (&dummy, &zoneinfo);                    \
  77.       *(offset) = -zoneinfo.tz_minuteswest;                \
  78.     } while (0)
  79. ! #else /* ! defined (HAVE_TIMEVAL) */
  80.   
  81.   /* System V derivatives have a timezone global variable.  */
  82.   #ifdef USG
  83.   #define EMACS_GET_TZ_OFFSET(offset)                    \
  84. --- 194,202 ----
  85.       gettimeofday (&dummy, &zoneinfo);                    \
  86.       *(offset) = -zoneinfo.tz_minuteswest;                \
  87.     } while (0)
  88. ! #endif /* ! defined (HAVE_TIMEVAL) */
  89.   
  90. + 
  91.   /* System V derivatives have a timezone global variable.  */
  92.   #ifdef USG
  93.   #define EMACS_GET_TZ_OFFSET(offset)                    \
  94. ***************
  95. *** 205,212 ****
  96.     } while (0)
  97.   #endif
  98.   
  99. - #endif
  100. - 
  101.   /* The following sane systems have a tzname array.  The timezone() function
  102.      is a stupid idea; timezone names can only be determined geographically,
  103.      not by Greenwich offset.  */
  104. --- 206,211 ----
  105. ***************
  106. *** 249,256 ****
  107.                                       \
  108.       EMACS_GET_TIME (t);                            \
  109.       secs = EMACS_SECS (t);                        \
  110. !     tmp = localtime (&secs);                                            \
  111. !     *(savings_flag) = tmp->tm_isdst;                                \
  112.                                       \
  113.       EMACS_GET_TZ_OFFSET (offset);                    \
  114.       EMACS_GET_TZ_NAMES (standard, savings);                \
  115. --- 248,255 ----
  116.                                       \
  117.       EMACS_GET_TIME (t);                            \
  118.       secs = EMACS_SECS (t);                        \
  119. !     tmp = localtime (&secs);                        \
  120. !     *(savings_flag) = tmp->tm_isdst;                    \
  121.                                       \
  122.       EMACS_GET_TZ_OFFSET (offset);                    \
  123.       EMACS_GET_TZ_NAMES (standard, savings);                \
  124.  
  125.