Commit 36a8c287 authored by Jim Blandy's avatar Jim Blandy
Browse files

*** empty log message ***

parent 35e46c62
......@@ -23,7 +23,7 @@ SHELL = /bin/sh
# already, the `install' targets will move or copy it there. The
# default definitions for the variables below are expressed in terms
# of this one, so you may not need to change them.
LIBROOT=/u/src/emacs/19.0
LIBROOT=/usr/local/emacs
# This is where the `install' make target should place the binaries
# people will want to run directly (like etags and Emacs itself).
......@@ -34,19 +34,19 @@ INSTALLBIN=/usr/local/bin
# elisp files should go under DATADIR (below), since both elisp source
# and compiled elisp are completely portable, but it's traditional to
# give the lisp files their own subdirectory.
LISPPATH=/u/src/emacs/19.0/lisp
LISPPATH=/usr/local/emacs/local-lisp:/usr/local/emacs/lisp
# Emacs will look here for its architecture-independent files (like
# the tutorial and the zippy database).
DATADIR=/u/src/emacs/19.0/share-lib
DATADIR=/usr/local/emacs/share-lib
# Emacs will look here for its architecture-dependent files, like
# executables for its utilities.
LIBDIR=/u/src/emacs/19.0/arch-lib
LIBDIR=/usr/local/emacs/arch-lib
# The locking directory, where the Emacs locking code keeps track of
# which files are currently being edited.
LOCKDIR=/u/src/emacs/19.0/lock
LOCKDIR=/usr/local/emacs/lock
# This is where the `install' make target should place the man pages
# for the binaries it installs.
......
......@@ -7,27 +7,27 @@
# libaries. The default definitions for the variables below are
# expressed in terms of this one, so you may not need to change them.
# set LIBROOT=/usr/local/lib/emacs-19.0
LIBROOT=/u/src/emacs/19.0
LIBROOT=/usr/local/emacs
# Emacs will search this path to find its elisp files. This should be
# a colon-separated list of directories. Strictly speaking, all the
# elisp files should go under DATADIR (below), since both elisp source
# and compiled elisp are completely portable, but it's traditional to
# give the lisp files their own subdirectory.
LISPPATH=/u/src/emacs/19.0/lisp
LISPPATH=/usr/local/emacs/local-lisp:/usr/local/emacs/lisp
# Emacs will look here for its architecture-independent files (like
# the tutorial and the zippy database).
DATADIR=/u/src/emacs/19.0/share-lib
DATADIR=/usr/local/emacs/share-lib
# Emacs will look here for its architecture-dependent files, like
# executables for its utilities.
LIBDIR=/u/src/emacs/19.0/arch-lib
LIBDIR=/usr/local/emacs/arch-lib
# The locking directory, where the Emacs locking code keeps track of
# which files are currently being edited.
# set LOCKDIR=${LIBROOT}/lock
LOCKDIR=/u/src/emacs/19.0/lock
LOCKDIR=/usr/local/emacs/lock
# This is where build-install should place the binaries people will
# want to run directly (like etags and Emacs itself).
......
......@@ -715,10 +715,10 @@ with `delete-process'.")
return Qt;
}
/* Put the element for buffer BUF at the front of buffer-alist.
This is done when a buffer is selected "visibly".
It keeps buffer-alist in the order of recency of selection
so that other_buffer will return something nice. */
/* Move the assoc for buffer BUF to the front of buffer-alist. Since
we do this each time BUF is selected visibly, the more recently
selected buffers are always closer to the front of the list. This
means that other_buffer is more likely to choose a relevant buffer. */
record_buffer (buf)
Lisp_Object buf;
......@@ -733,8 +733,8 @@ record_buffer (buf)
prev = link;
}
/* Effectively do Vbuffer_alist = Fdelq (link, Vbuffer_alist)
but cannot use Fdelq here it that allows quitting. */
/* Effectively do Vbuffer_alist = Fdelq (link, Vbuffer_alist);
we cannot use Fdelq itself here because it allows quitting. */
if (NILP (prev))
Vbuffer_alist = XCONS (Vbuffer_alist)->cdr;
......
......@@ -1911,6 +1911,37 @@ Only the 12 low bits of MODE are used.")
return Qnil;
}
DEFUN ("set-umask", Fset_umask, Sset_umask, 1, 1, 0,
"Select which permission bits to disable in newly created files.\n\
MASK should be an integer; if a permission's bit in MASK is 1,\n\
subsequently created files will not have that permission enabled.\n\
Only the low 9 bits are used.\n\
This setting is inherited by subprocesses.")
(mask)
Lisp_Object mask;
{
CHECK_NUMBER (mask, 0);
umask (XINT (mask) & 0777);
return Qnil;
}
DEFUN ("umask", Fumask, Sumask, 0, 0, 0,
"Return the current umask value.\n\
The umask value determines which permissions are enabled in newly\n\
created files. If a permission's bit in the umask is 1, subsequently\n\
created files will not have that permission enabled.")
()
{
Lisp_Object mask;
XSET (mask, Lisp_Int, umask (0));
umask (XINT (mask));
return mask;
}
DEFUN ("file-newer-than-file-p", Ffile_newer_than_file_p, Sfile_newer_than_file_p, 2, 2, 0,
"Return t if file FILE1 is newer than file FILE2.\n\
If FILE1 does not exist, the answer is nil;\n\
......@@ -2842,6 +2873,8 @@ nil means use format `var'. This variable is meaningful only on VMS.");
defsubr (&Sfile_accessible_directory_p);
defsubr (&Sfile_modes);
defsubr (&Sset_file_modes);
defsubr (&Sset_umask);
defsubr (&Sumask);
defsubr (&Sfile_newer_than_file_p);
defsubr (&Sinsert_file_contents);
defsubr (&Swrite_region);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment