Mercurial > emacs
changeset 550:3072b38789a7
*** empty log message ***
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Sat, 15 Feb 1992 22:18:37 +0000 |
| parents | 4c9c887ccec7 |
| children | 36827ee0a6df |
| files | Makefile.in build-ins.in src/buffer.c src/fileio.c |
| diffstat | 4 files changed, 49 insertions(+), 16 deletions(-) [+] |
line wrap: on
line diff
--- a/Makefile.in Fri Feb 14 01:57:37 1992 +0000 +++ b/Makefile.in Sat Feb 15 22:18:37 1992 +0000 @@ -23,7 +23,7 @@ # 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 @@ # 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.
--- a/build-ins.in Fri Feb 14 01:57:37 1992 +0000 +++ b/build-ins.in Sat Feb 15 22:18:37 1992 +0000 @@ -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).
--- a/src/buffer.c Fri Feb 14 01:57:37 1992 +0000 +++ b/src/buffer.c Sat Feb 15 22:18:37 1992 +0000 @@ -715,10 +715,10 @@ 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 @@ 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;
--- a/src/fileio.c Fri Feb 14 01:57:37 1992 +0000 +++ b/src/fileio.c Sat Feb 15 22:18:37 1992 +0000 @@ -1911,6 +1911,37 @@ 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 @@ 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);