Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
emacs
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
1
Issues
1
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Packages & Registries
Packages & Registries
Container Registry
Analytics
Analytics
CI / CD
Repository
Value Stream
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
emacs
emacs
Commits
08564963
Commit
08564963
authored
Apr 01, 1992
by
Jim Blandy
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
*** empty log message ***
parent
ca1d1d23
Changes
11
Hide whitespace changes
Inline
Side-by-side
Showing
11 changed files
with
69 additions
and
54 deletions
+69
-54
Makefile.in
Makefile.in
+12
-11
build-ins.in
build-ins.in
+5
-5
etc/MACHINES
etc/MACHINES
+4
-4
lib-src/movemail.c
lib-src/movemail.c
+18
-16
lisp/loadup.el
lisp/loadup.el
+3
-3
lisp/mail/sendmail.el
lisp/mail/sendmail.el
+3
-2
src/config.in
src/config.in
+2
-2
src/doc.c
src/doc.c
+6
-6
src/eval.c
src/eval.c
+13
-2
src/lread.c
src/lread.c
+2
-2
src/process.c
src/process.c
+1
-1
No files found.
Makefile.in
View file @
08564963
# This is the distribution Makefile for Emacs. config
.emacs
can make
# This is the distribution Makefile for Emacs. config
ure
can make
# most of the changes to this file you might want, so try that first.
# make all to compile and build Emacs
...
...
@@ -24,7 +24,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
=
/gd/gnu/emacs
LIBROOT
=
/
home/
gd/gnu/emacs
# This is where the `install' make target should place the binaries
# people will want to run directly (like etags and Emacs itself).
...
...
@@ -35,19 +35,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
=
/
gd/gnu/emacs/local-lisp:
/gd/gnu/emacs/lisp
LISPPATH
=
/
home/gd/gnu/emacs/local-lisp:/home
/gd/gnu/emacs/lisp
# Emacs will look here for its architecture-independent files (like
# the tutorial and the zippy database).
DATADIR
=
/
gd/gnu/emacs/share-lib
DATADIR
=
/
home/gd/gnu/emacs/etc
# Emacs will look here for its architecture-dependent files, like
# executables for its utilities.
LIBDIR
=
/gd/gnu/emacs/arch-lib
LIBDIR
=
/
home/
gd/gnu/emacs/arch-lib
# The locking directory, where the Emacs locking code keeps track of
# which files are currently being edited.
LOCKDIR
=
/gd/gnu/emacs/lock
LOCKDIR
=
/
home/
gd/gnu/emacs/lock
# This is where the `install' make target should place the man pages
# for the binaries it installs.
...
...
@@ -64,7 +64,7 @@ MFLAGS=
SUBDIR
=
lib-src src
# Subdirectories to install
COPYDIR
=
arch-lib
share-lib
info lisp
COPYDIR
=
arch-lib
etc
info lisp
# Subdirectories to clean
CLEANDIR
=
${COPYDIR}
lisp/term
...
...
@@ -76,7 +76,8 @@ src/paths.h: Makefile src/paths.h-dist
-e
's;\(#.*PATH_LOADSEARCH\).*$$;\1 "
$(LISPPATH)
";'
\
-e
's;\(#.*PATH_EXEC\).*$$;\1 "
$(LIBDIR)
";'
\
-e
's;\(#.*PATH_DATA\).*$$;\1 "
$(DATADIR)
";'
\
-e
's;\(#.*LOCK\).*$$;\1 "
$(LOCKDIR)
/";'
-e
's;\(#.*PATH_LOCK\).*$$;\1 "
$(LOCKDIR)
/";'
\
-e
's;\(#.*PATH_SUPERLOCK\).*$$;\1 "
$(LOCKDIR)
/!!!SuperLock!!!";'
src
:
lib-src
...
...
@@ -99,7 +100,7 @@ install: all mkdir lockdir
install
-c
-s
arch-lib/etags
${INSTALLBIN}
/etags
install
-c
-s
arch-lib/ctags
${INSTALLBIN}
/ctags
install
-c
-s
-m
1755 src/xemacs
${INSTALLBIN}
/xemacs
install
-c
-m
444
share-lib
/emacs.1
${MANDIR}
/emacs.1
install
-c
-m
444
etc
/emacs.1
${MANDIR}
/emacs.1
-
rm
-f
${INSTALLBIN}
/emacs
mv
${INSTALLBIN}
/xemacs
${INSTALLBIN}
/emacs
...
...
@@ -116,7 +117,7 @@ install.sysv: all mkdir lockdir
-
cpset arch-lib/emacsclient
${INSTALLBIN}
/emacsclient 755 bin bin
-
cpset arch-lib/etags
${INSTALLBIN}
/etags 755 bin bin
-
cpset arch-lib/ctags
${INSTALLBIN}
/ctags 755 bin bin
-
cpset
share-lib
/emacs.1
${MANDIR}
/emacs.1 444 bin bin
-
cpset
etc
/emacs.1
${MANDIR}
/emacs.1 444 bin bin
-
/bin/rm
-f
${INSTALLBIN}
/emacs
-
cpset src/xemacs
${INSTALLBIN}
/emacs 1755 bin bin
...
...
@@ -132,7 +133,7 @@ install.xenix: all mkdir lockdir
fi
cp
arch-lib/etags arch-lib/ctags arch-lib/emacsclient
${INSTALLBIN}
chmod
755
${INSTALLBIN}
/etags
${INSTALLBIN}
/ctags
${INSTALLBIN}
/emacsclient
cp
share-lib
/emacs.1
${MANDIR}
/emacs.1
cp
etc
/emacs.1
${MANDIR}
/emacs.1
chmod
444
${MANDIR}
/emacs.1
-
mv
-f
${INSTALLBIN}
/emacs
${INSTALLBIN}
/emacs.old
cp
src/xemacs
${INSTALLBIN}
/emacs
...
...
build-ins.in
View file @
08564963
...
...
@@ -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
=
/gd/gnu/emacs
LIBROOT
=
/
home/
gd/gnu/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
=
/
gd/gnu/emacs/local-lisp:
/gd/gnu/emacs/lisp
LISPPATH
=
/
home/gd/gnu/emacs/local-lisp:/home
/gd/gnu/emacs/lisp
# Emacs will look here for its architecture-independent files (like
# the tutorial and the zippy database).
DATADIR
=
/
gd/gnu/emacs/share-lib
DATADIR
=
/
home/gd/gnu/emacs/etc
# Emacs will look here for its architecture-dependent files, like
# executables for its utilities.
LIBDIR
=
/gd/gnu/emacs/arch-lib
LIBDIR
=
/
home/
gd/gnu/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
=
/gd/gnu/emacs/lock
LOCKDIR
=
/
home/
gd/gnu/emacs/lock
# This is where build-install should place the binaries people will
# want to run directly (like etags and Emacs itself).
...
...
etc/MACHINES
View file @
08564963
...
...
@@ -2,7 +2,7 @@ This is a list of the status of GNU Emacs on various machines and systems.
Last updated 10 Feb 1992.
For each system and machine, we give the `-opsystem' and `-machine'
options you should pass to config
.emacs
to prepare to build Emacs for
options you should pass to config
ure
to prepare to build Emacs for
that system/machine.
These options tell Emacs which machine- and system-descriptive files
...
...
@@ -128,7 +128,7 @@ Xenix
If you want Emacs to work with Smail (installed as /usr/bin/smail)
then add the line #define SMAIL to config.h.
The file
share-lib
/XENIX suggests some useful things to do to Xenix
The file
etc
/XENIX suggests some useful things to do to Xenix
to make the Emacs meta key work.
Machines:
...
...
@@ -668,7 +668,7 @@ Sun 1, 2 and 3 (-machine=sun1, -machine=sun2, -machine=sun3;
For SunOS release 4 on a Sun 3, use -machine=sun3 and
-opsystem=sunos4-0 or -opsystem=sunos4-1.
See the file
share-lib
/SUNBUG for how to solve problems caused by
See the file
etc
/SUNBUG for how to solve problems caused by
bugs in the "export" version of SunOS 4.
If you have trouble using open-network-stream, get the
...
...
@@ -707,7 +707,7 @@ Sun 4 (-machine=sparc;
Use -opsystem=sunos4-0 for operating system version 4.0, and
-opsystem=sunos4-1 for later versions.
See the file
share-lib
/SUNBUG for how to solve problems caused by
See the file
etc
/SUNBUG for how to solve problems caused by
bugs in the "export" version of SunOS 4.
Sun Roadrunner (-machine=sun386; -opsystem=sunos4-0 or -opsystem=sunos4-1)
...
...
lib-src/movemail.c
View file @
08564963
...
...
@@ -96,7 +96,6 @@ main (argc, argv)
{
char
*
inname
,
*
outname
;
int
indesc
,
outdesc
;
char
buf
[
1024
];
int
nread
;
#ifndef MAIL_USE_FLOCK
...
...
@@ -182,8 +181,7 @@ main (argc, argv)
to bug-gnu-emacs@prep.ai.mit.edu so we can fix it. */
lockname
=
concat
(
inname
,
".lock"
,
""
);
tempname
=
(
char
*
)
xmalloc
(
strlen
(
inname
)
+
20
);
strcpy
(
tempname
,
inname
);
tempname
=
strcpy
(
xmalloc
(
strlen
(
inname
)
+
1
),
inname
);
p
=
tempname
+
strlen
(
tempname
);
while
(
p
!=
tempname
&&
p
[
-
1
]
!=
'/'
)
p
--
;
...
...
@@ -249,19 +247,23 @@ main (argc, argv)
#endif
#endif
/* MAIL_USE_FLOCK */
while
(
1
)
{
nread
=
read
(
indesc
,
buf
,
sizeof
buf
);
if
(
nread
!=
write
(
outdesc
,
buf
,
nread
))
{
int
saved_errno
=
errno
;
unlink
(
outname
);
errno
=
saved_errno
;
pfatal_with_name
(
outname
);
}
if
(
nread
<
sizeof
buf
)
break
;
}
{
char
buf
[
1024
];
while
(
1
)
{
nread
=
read
(
indesc
,
buf
,
sizeof
buf
);
if
(
nread
!=
write
(
outdesc
,
buf
,
nread
))
{
int
saved_errno
=
errno
;
unlink
(
outname
);
errno
=
saved_errno
;
pfatal_with_name
(
outname
);
}
if
(
nread
<
sizeof
buf
)
break
;
}
}
#ifdef BSD
if
(
fsync
(
outdesc
)
<
0
)
...
...
lisp/loadup.el
View file @
08564963
;;Load up standardly loaded Lisp files for Emacs.
;; This is loaded into a bare Emacs to make a dumpable one.
;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
;; Copyright (C) 1985, 1986
, 1992
Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
...
...
@@ -94,8 +94,8 @@
(
setq
name
(
concat
(
downcase
(
substring
name
0
(
match-beginning
0
)))
"-"
(
substring
name
(
match-end
0
)))))
(
copy-file
(
expand-file-name
"../
share-lib
/DOC"
)
(
concat
(
expand-file-name
"../
share-lib
/DOC-"
)
name
)
(
copy-file
(
expand-file-name
"../
etc
/DOC"
)
(
concat
(
expand-file-name
"../
etc
/DOC-"
)
name
)
t
)
(
Snarf-documentation
(
concat
"DOC-"
name
)))
(
Snarf-documentation
"DOC"
))
...
...
lisp/mail/sendmail.el
View file @
08564963
...
...
@@ -447,7 +447,7 @@ the user from the mailer."
(let (end
(case-fold-search t))
(goto-char (point-min))
(
search-forward (concat "
^
" mail-header-separator
"
\n
"))
(
re-search-forward (concat "
^
" (regexp-quote mail-header-separator)
"
\n
"))
(setq end (match-beginning 0))
(goto-char (point-min))
(if (re-search-forward (concat "
^
" (regexp-quote field) "
:
") end t)
...
...
@@ -459,7 +459,8 @@ the user from the mailer."
(or soft
(progn (goto-char end)
(skip-chars-backward "
\n
")
(insert "
\n
" field "
:
")))
(insert field "
:
\n
")
(skip-chars-backward "
\n
")))
nil)))
(defun mail-text ()
...
...
src/config.in
View file @
08564963
...
...
@@ -95,14 +95,14 @@ and this notice must be preserved on all copies. */
/* The configuration script links system.h to a s- file that describes
the system type you are using.
See the file ../
share-lib
/MACHINES for a list of systems and
See the file ../
etc
/MACHINES for a list of systems and
the names of the s- files to use for them.
See s-template.h for documentation on writing s- files. */
#include "@opsystem@"
/* The configuration script links machine.h to a m- file that
describes the machine and system you use.
See the file ../
share-lib
/MACHINES for a list of machines and
See the file ../
etc
/MACHINES for a list of machines and
the names of the m- files to use for them.
See m-template.h for info on what m- files should define. */
#include "@machine@"
...
...
src/doc.c
View file @
08564963
...
...
@@ -102,8 +102,8 @@ get_doc_string (filepos)
}
DEFUN
(
"documentation"
,
Fdocumentation
,
Sdocumentation
,
1
,
2
,
0
,
"Return the documentation string of FUNCTION.
Unless a non-nil second argument is given, the
"Return the documentation string of FUNCTION.
\n
\
Unless a non-nil second argument is given, the
\n
\
string is passed through `substitute-command-keys'."
)
(
fun1
,
raw
)
Lisp_Object
fun1
,
raw
;
...
...
@@ -182,7 +182,7 @@ subcommands.)");
DEFUN
(
"documentation-property"
,
Fdocumentation_property
,
Sdocumentation_property
,
2
,
2
,
0
,
"Return the documentation string that is SYMBOL's PROP property.
\n
\
This is like `get', but it can refer to strings stored in the
\n
\
`
share-lib
/DOC' file; and if the value is a string, it is passed through
\n
\
`
etc
/DOC' file; and if the value is a string, it is passed through
\n
\
`substitute-command-keys'. A non-nil third argument avoids this
\n
\
translation."
)
(
sym
,
prop
,
raw
)
...
...
@@ -201,10 +201,10 @@ translation.")
DEFUN
(
"Snarf-documentation"
,
Fsnarf_documentation
,
Ssnarf_documentation
,
1
,
1
,
0
,
"Used during Emacs initialization, before dumping runnable Emacs,
\n
\
to find pointers to doc strings stored in `
share-lib
/DOC...' and
\n
\
to find pointers to doc strings stored in `
etc
/DOC...' and
\n
\
record them in function definitions.
\n
\
One arg, FILENAME, a string which does not include a directory.
\n
\
The file is found in `../
share-lib
' now; found in the `data-directory'
\n
\
The file is found in `../
etc
' now; found in the `data-directory'
\n
\
when doc strings are referred to later in the dumped Emacs."
)
(
filename
)
Lisp_Object
filename
;
...
...
@@ -222,7 +222,7 @@ when doc strings are referred to later in the dumped Emacs.")
#ifndef CANNOT_DUMP
name
=
(
char
*
)
alloca
(
XSTRING
(
filename
)
->
size
+
14
);
strcpy
(
name
,
"../
share-lib
/"
);
strcpy
(
name
,
"../
etc
/"
);
#else
/* CANNOT_DUMP */
CHECK_STRING
(
Vdata_directory
,
0
);
name
=
(
char
*
)
alloca
(
XSTRING
(
filename
)
->
size
+
...
...
src/eval.c
View file @
08564963
...
...
@@ -624,6 +624,10 @@ Each VALUEFORM can refer to the symbols already bound by this VARLIST.")
elt
=
Fcar
(
varlist
);
if
(
XTYPE
(
elt
)
==
Lisp_Symbol
)
specbind
(
elt
,
Qnil
);
else
if
(
!
NILP
(
Fcdr
(
Fcdr
(
elt
))))
Fsignal
(
Qerror
,
Fcons
(
build_string
(
"`let' bindings can have only one value-form"
),
elt
));
else
{
val
=
Feval
(
Fcar
(
Fcdr
(
elt
)));
...
...
@@ -668,6 +672,10 @@ All the VALUEFORMs are evalled before any symbols are bound.")
elt
=
Fcar
(
varlist
);
if
(
XTYPE
(
elt
)
==
Lisp_Symbol
)
temps
[
argnum
++
]
=
Qnil
;
else
if
(
!
NILP
(
Fcdr
(
Fcdr
(
elt
))))
Fsignal
(
Qerror
,
Fcons
(
build_string
(
"`let' bindings can have only one value-form"
),
elt
));
else
temps
[
argnum
++
]
=
Feval
(
Fcar
(
Fcdr
(
elt
)));
gcpro2
.
nvars
=
argnum
;
...
...
@@ -1499,8 +1507,11 @@ DEFUN ("eval", Feval, Seval, 1, 1, 0,
goto
done
;
default:
error
(
"Ffuncall doesn't handle that number of arguments."
);
goto
done
;
/* Someone has created a subr that takes more arguments than
is supported by this code. We need to either rewrite the
subr to use a different argument protocol, or add more
cases to this switch. */
abort
();
}
}
if
(
XTYPE
(
fun
)
==
Lisp_Compiled
)
...
...
src/lread.c
View file @
08564963
/* Lisp parsing and input streams.
Copyright (C) 1985, 1986, 1987, 1988, 1989 Free Software Foundation, Inc.
Copyright (C) 1985, 1986, 1987, 1988, 1989
, 1992
Free Software Foundation, Inc.
This file is part of GNU Emacs.
...
...
@@ -858,7 +858,7 @@ read1 (readcharfun)
/* If purifying, and string starts with \ newline,
return zero instead. This is for doc strings
that we are really going to find in
share-lib
/DOC.nn.nn */
that we are really going to find in
etc
/DOC.nn.nn */
if
(
!
NILP
(
Vpurify_flag
)
&&
NILP
(
Vdoc_file_name
)
&&
cancel
)
return
make_number
(
0
);
...
...
src/process.c
View file @
08564963
...
...
@@ -2794,7 +2794,7 @@ init_process ()
proc_buffered_char
[
i
]
=
-
1
;
}
}
#if
def
0
#if 0
DEFUN ("process-connection", Fprocess_connection, Sprocess_connection, 0, 1, 0,
"Return the connection type of `PROCESS'. This can be nil (pipe),\n\
t or pty (pty) or stream (socket connection).")
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment