xemacs-beta: src/editfns.c comparison

comparison src/editfns.c @ 371:cc15677e0335 r21-2b1

Import from CVS: tag r21-2b1

author	cvs
date	Mon, 13 Aug 2007 11:03:08 +0200
parents	a4f53d9b3154
children	d883f39b8495

comparison

equal deleted inserted replaced

-:bd866891f083
+:cc15677e0335
 	 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 */
 /* Even if it did, it certainly doesn't matter anymore, because
-this has been the behavior for countless XEmacs releases
+this has been the behaviour for countless XEmacs releases
 now.  --hniksic */
 if (visible
 	  && (current_buffer != XBUFFER (XWINDOW (selected_window)->buffer)))
 	switch_to_buffer (Fcurrent_buffer (), Qnil);
 #endif
 if (n < BUF_BEGV (b))
 return Qnil;
 return make_char (BUF_FETCH_CHAR (b, n));
 }
-#if !defined(WINDOWSNT) && !defined(MSDOS)
-#include <sys/stat.h>
-#include <fcntl.h>
-#include <errno.h>
-#include <limits.h>
-#endif
 DEFUN ("temp-directory", Ftemp_directory, 0, 0, 0, /*
 Return the pathname to the directory to use for temporary files.
 On NT/MSDOS, this is obtained from the TEMP or TMP environment variables,
 defaulting to / if they are both undefined.
 if (!tmpdir)
 tmpdir = "/";
 #else /* WINDOWSNT || MSDOS */
 tmpdir = getenv ("TMPDIR");
 if (!tmpdir)
-{
-struct stat st;
-char * logname = user_login_name(NULL);
-int myuid      = getuid();
-static char path[1+_POSIX_PATH_MAX];
-strcpy(path, "/tmp/"); strncat(path, logname, _POSIX_PATH_MAX);
-if (lstat(path, &st) < 0 && errno == ENOENT)
-	{
-	  mkdir(path, 0700);	/* ignore retval -- checked next anyway. */
-	}
-if (lstat(path, &st) == 0 && st.st_uid == myuid && S_ISDIR(st.st_mode))
-	{
-	  tmpdir = path;
-	}
-else
-	{
-	  strcpy(path, getenv("HOME")); strncat(path, "/tmp/", _POSIX_PATH_MAX);
-	  if (stat(path, &st) < 0 && errno == ENOENT)
-	    {
-	      int fd;
-	      char warnpath[1+_POSIX_PATH_MAX];
-	      mkdir(path, 0700);	/* ignore retvals */
-	      strcpy(warnpath, path);
-	      strncat(warnpath, ".created_by_xemacs", _POSIX_PATH_MAX);
-	      if ((fd = open(warnpath, O_WRONLY|O_CREAT, 0644)) > 0)
-		{
-		  write(fd, "XEmacs created this directory because /tmp/<yourname> was unavailable -- \nPlease check !\n", 89);
-		  close(fd);
-		}
-	    }
-	  if (stat(path, &st) == 0 && S_ISDIR(st.st_mode))
-	    {
-	      tmpdir = path;
-	    }
-	  else
-	    {
 tmpdir = "/tmp";
-	    }
-	}
-}
 #endif
 return build_ext_string (tmpdir, FORMAT_FILENAME);
 }
 %M is replaced by the minute (00-59).
 %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 "%H:%M".
-%s is replaced by the time in seconds since 00:00:00, Jan 1, 1970 (a
-nonstandard extension)
 %S is replaced by the second (00-60).
 %t is a synonym for "\\t".
 %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.
 executing each command that did not explicitly turn it on with the function
 zmacs-activate-region. Setting this to true lets a command be non-intrusive.
 See the variable `zmacs-regions'.
 The same effect can be achieved using the `_' interactive specification.
-`zmacs-region-stays' is reset to nil before each command is executed.
 */ );
 zmacs_region_stays = 0;
 DEFVAR_BOOL ("atomic-extent-goto-char-p", &atomic_extent_goto_char_p /*
 Do not use this -- it will be going away soon.

Mercurial > hg > xemacs-beta

comparison src/editfns.c @ 371:cc15677e0335 r21-2b1