xemacs-beta: src/editfns.c comparison

comparison src/editfns.c @ 185:3d6bfa290dbd r20-3b19

Import from CVS: tag r20-3b19

author	cvs
date	Mon, 13 Aug 2007 09:55:28 +0200
parents	6075d714658b
children	a2f645c6b9f8

comparison

equal deleted inserted replaced

-:bcd2674570bf
+:3d6bfa290dbd
 slow_down_interrupts ();
 pw = (struct passwd *)
 	getpwnam ((char *) XSTRING_DATA (Vuser_login_name));
 speed_up_interrupts ();
 }
 p = (Bufbyte *) ((pw) ? USER_FULL_NAME : "unknown"); /* don't gettext here */
 q = (Bufbyte *) strchr ((char *) p, ',');
 Vuser_full_name = make_ext_string (p, (q ? q - p : strlen ((char *) p)),
 				     FORMAT_OS);
 #ifdef AMPERSAND_FULL_NAME
 p = XSTRING_DATA (Vuser_full_name);
 q = (Bufbyte *) strchr ((char *) p, '&');
 /* Substitute the login name for the &, upcasing the first character.  */
 if (q)
 	 if that was true previously.  That avoids some anomalies.
 	 But it creates others, and it wasn't documented, and it is simpler
 	 and cleaner never to alter the window/buffer connections.  */
 /* #### I'm certain some code somewhere depends on this behavior. --jwz */
 if (visible
 && (current_buffer != XBUFFER (XWINDOW (selected_window)->buffer)))
 switch_to_buffer (Fcurrent_buffer (), Qnil);
 #endif
 UNGCPRO;
 {
 /* This function can GC */
 int speccount = specpdl_depth ();
 record_unwind_protect (save_excursion_restore, save_excursion_save ());
 return unbind_to (speccount, Fprogn (args));
 }
 Lisp_Object
 save_current_buffer_restore (Lisp_Object buffer)
 struct buffer *b = decode_buffer (buffer, 1);
 Bufpos n = ((NILP (pos) ? BUF_PT (b) :
 	       get_buffer_pos_char (b, pos, GB_NO_ERROR_IF_BAD)));
 n--;
 if (n < BUF_BEGV (b))
 return Qnil;
 return make_char (BUF_FETCH_CHAR (b, n));
 }
 {
 Lisp_Object user_name = (STRINGP (user) ? user : Fuser_login_name (user));
 struct passwd *pw = NULL;
 Lisp_Object tem;
 char *p, *q;
 if (!NILP (user_name))	/* nil when nonexistent UID passed as arg */
 {
 CONST char *user_name_ext;
 /* Fuck me.  getpwnam() can call select() and (under IRIX at least)
 	 things get wedged if a SIGIO arrives during this time. */
 GET_C_STRING_OS_DATA_ALLOCA (user_name, user_name_ext);
 slow_down_interrupts ();
 pw = (struct passwd *) getpwnam (user_name_ext);
 FORMAT-STRING may contain %-sequences to substitute parts of the time.
 %a is replaced by the abbreviated name of the day of week.
 %A is replaced by the full name of the day of week.
 %b is replaced by the abbreviated name of the month.
 %B is replaced by the full name of the month.
-%c is a synonym for \"%x %X\".
+%c is a synonym for "%x %X".
-%C is a locale-specific synonym, which defaults to \"%A, %B %e, %Y\" in the C locale.
+%C is a locale-specific synonym, which defaults to "%A, %B %e, %Y" in the C locale.
 %d is replaced by the day of month, zero-padded.
-%D is a synonym for \"%m/%d/%y\".
+%D is a synonym for "%m/%d/%y".
 %e is replaced by the day of month, blank-padded.
-%h is a synonym for \"%b\".
+%h is a synonym for "%b".
 %H is replaced by the hour (00-23).
 %I is replaced by the hour (00-12).
 %j is replaced by the day of the year (001-366).
 %k is replaced by the hour (0-23), blank padded.
 %l is replaced by the hour (1-12), blank padded.
 %m is replaced by the month (01-12).
 %M is replaced by the minute (00-59).
-%n is a synonym for \"\\n\".
+%n is a synonym for "\\n".
 %p is replaced by AM or PM, as appropriate.
-%r is a synonym for \"%I:%M:%S %p\".
+%r is a synonym for "%I:%M:%S %p".
-%R is a synonym for \"%H:%M\".
+%R is a synonym for "%H:%M".
 %S is replaced by the second (00-60).
-%t is a synonym for \"\\t\".
+%t is a synonym for "\\t".
-%T is a synonym for \"%H:%M:%S\".
+%T is a synonym for "%H:%M:%S".
 %U is replaced by the week of the year (00-53), first day of week is Sunday.
 %w is replaced by the day of week (0-6), Sunday is day 0.
 %W is replaced by the week of the year (00-53), first day of week is Monday.
-%x is a locale-specific synonym, which defaults to \"%D\" in the C locale.
+%x is a locale-specific synonym, which defaults to "%D" in the C locale.
-%X is a locale-specific synonym, which defaults to \"%T\" in the C locale.
+%X is a locale-specific synonym, which defaults to "%T" in the C locale.
 %y is replaced by the year without century (00-99).
 %Y is replaced by the year with century.
 %Z is replaced by the time zone abbreviation.
 The number of options reflects the `strftime' function.
 {
 time_t time_spec;
 struct tm save_tm;
 struct tm *decoded_time;
 Lisp_Object list_args[9];
 if (! lisp_to_time (specified_time, &time_spec))
 error ("Invalid time specification");
 decoded_time = localtime (&time_spec);
 XSETINT (list_args[0], decoded_time->tm_sec);
 else
 {
 char tzbuf[100];
 char *tzstring;
 char **oldenv = environ, **newenv;
 if (STRINGP (zone))
 	tzstring = (char *) XSTRING_DATA (zone);
 else if (INTP (zone))
 	{
 	  int abszone = abs (XINT (zone));
 	  tzstring = tzbuf;
 	}
 else
 	error ("Invalid time zone specification");
 /* Set TZ before calling mktime; merely adjusting mktime's returned
 	 value doesn't suffice, since that would mishandle leap seconds.  */
 set_time_zone_rule (tzstring);
 _time = mktime (&tm);
 charlen = set_charptr_emchar (str, XCHAR (chr));
 n = cou * charlen;
 if (n <= 0)
 return Qnil;
 slen = min (n, 768);
-string = (Bufbyte *) alloca (slen * sizeof (Bufbyte));
+string = alloca_array (Bufbyte, slen);
 /* Write as many copies of the character into the temp string as will fit. */
 for (i = 0; i + charlen <= slen; i += charlen)
 for (j = 0; j < charlen; j++)
 string[i + j] = str[j];
 slen = i;
 Bufpos start, end;
 Bytind bi_start, bi_end;
 start = BUF_BEG (buf) + newhead;
 end = BUF_Z (buf) - newtail;
 bi_start = bufpos_to_bytind (buf, start);
 bi_end = bufpos_to_bytind (buf, end);
 if (BUF_BEGV (buf) != start)
 {
 %X uppercase hex).
 %c means print as a single character.
 %f means print as a floating-point number in fixed notation (e.g. 785.200).
 %e or %E means print as a floating-point number in scientific notation
 (e.g. 7.85200e+03).
-%g or %G means print as a floating-point number in \"pretty format\";
+%g or %G means print as a floating-point number in "pretty format";
 depending on the number, either %f or %e/%E format will be used, and
 trailing zeroes are removed from the fractional part.
 The argument used for all but %s and %S must be a number.  It will be
 converted to an integer or a floating-point number as necessary.
 differ in size).
 Traverses the entire marker list of the buffer to do so, adding an
 appropriate amount to some, subtracting from some, and leaving the
 rest untouched.  Most of this is copied from adjust_markers in insdel.c.
 It's the caller's job to see that (start1 <= end1 <= start2 <= end2).  */
 void
 transpose_markers (Bufpos start1, Bufpos end1, Bufpos start2, Bufpos end2)
 {
 position is between GPT and GPT + GAP_SIZE, so it's simpler to leave
 the dirty work to Fmarker_position, below.  */
 /* The difference between the region's lengths */
 diff = (end2 - start2) - (end1 - start1);
 /* For shifting each marker in a region by the length of the other
 * region plus the distance between the regions.
 */
 amt1 = (end2 - start2) + (start2 - end1);
 amt2 = (end1 - start1) + (start2 - end1);
 staticpro (&Vsystem_name);
 #if 0
 staticpro (&Vuser_full_name);
 staticpro (&Vuser_name);
 staticpro (&Vuser_real_name);
 #endif
 DEFVAR_BOOL ("zmacs-regions", &zmacs_regions /*
 *Whether LISPM-style active regions should be used.
 This means that commands which operate on the region (the area between the
 point and the mark) will only work while the region is in the ``active''
 state, which is indicated by highlighting.  Executing most commands causes
 - Commands which operate on the region only work if the region is active.
 - Only a very small set of commands cause the region to become active:
 Those commands whose semantics are to mark an area, like mark-defun.
 - The region is deactivated after each command that is executed, except that:
-- \"Motion\" commands do not change whether the region is active or not.
+- "Motion" commands do not change whether the region is active or not.
 set-mark-command (C-SPC) pushes a mark and activates the region.  Moving the
 cursor with normal motion commands (C-n, C-p, etc) will cause the region
 between point and the recently-pushed mark to be highlighted.  It will
 remain highlighted until some non-motion command is executed.

Mercurial > hg > xemacs-beta

comparison src/editfns.c @ 185:3d6bfa290dbd r20-3b19