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
Open sidebar
emacs
emacs
Commits
8c0e7b73
Commit
8c0e7b73
authored
Apr 04, 1992
by
Jim Blandy
Browse files
*** empty log message ***
parent
08564963
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
84 additions
and
43 deletions
+84
-43
configure1.in
configure1.in
+60
-30
lisp/files.el
lisp/files.el
+23
-12
src/search.c
src/search.c
+1
-1
No files found.
configure1.in
View file @
8c0e7b73
...
...
@@ -43,7 +43,7 @@ These options have reasonable defaults (in []s), and may not be needed:
-cc=COMPILER - Which compiler to use. Defaults to gcc if available.
-libdir=DIR - where to look for arch-dependent library files
-datadir=DIR - where to look for architecture-independent library files
-
install
bin=DIR - where to install the Emacs executable, and some friends
-bin
dir
=DIR - where to install the Emacs executable, and some friends
-lisppath=PATH - colon-separated list of Elisp directories
-lockdir=DIR - where Emacs should do its file-locking stuff
-window_system=none or [x11, if it is installed] - what window system to use
...
...
@@ -51,7 +51,7 @@ These options have reasonable defaults (in []s), and may not be needed:
-gnu_malloc=[yes] or no - use the GNU memory allocator
-rel_alloc=[yes] or no - use compacting allocator for buffers
-highpri=N - run at N points higher-than-normal priority
-lisp_float_type=[yes] or no - Support floating point in Elisp
-lisp_float_type=[yes] or no - Support
native
floating point in Elisp
If successful,
${
progname
}
leaves its status in config.status. If
unsuccessful after disturbing the status quo, config.status is removed."
...
...
@@ -65,7 +65,7 @@ options=":\
usage:help:
\
machine:opsystem:
\
g:O:cc:
\
libroot:datadir:libdir:
install
bin:lisppath:lockdir:
\
libroot:datadir:libdir:bin
dir
:lisppath:lockdir:
\
gnu_malloc:rel_alloc:highpri:lisp_float_type:
\
window_system:have_x_menu:
\
"
...
...
@@ -82,7 +82,7 @@ c_switch_site:sigtype:\
"
libroot
=
install
bin
=
/usr/local/bin
bin
dir
=
/usr/local/bin
gnu_malloc
=
yes
lisp_float_type
=
yes
...
...
@@ -406,7 +406,7 @@ echo "Editing ./Makefile..."
tempMakefile
=
"tempMakefile"
$$
/bin/sed < Makefile
>
${
tempMakefile
}
\
-e
's;^\(LIBROOT=\).*$;\1'
"
${
libroot
}
;"
\
-e
's;^\(
INSTALL
BIN=\).*$;\1'
"
${
in
stallbin
}
;"
\
-e
's;^\(BIN
DIR
=\).*$;\1'
"
${
b
in
dir
}
;"
\
-e
's;^\(LISPPATH=\).*$;\1'
"
${
lisppath
}
;"
\
-e
's;^\(DATADIR=\).*$;\1'
"
${
datadir
}
;"
\
-e
's;^\(LOCKDIR=\).*$;\1'
"
${
lockdir
}
;"
\
...
...
@@ -418,7 +418,7 @@ echo "Editing ./build-install..."
tempbi
=
"tempbi"
$$
/bin/sed < build-install
>
${
tempbi
}
\
-e
's;^\(LIBROOT=\).*$;\1'
"
${
libroot
}
;"
\
-e
's;^\(BINDIR=\).*$;\1'
"
${
install
bin
}
;"
\
-e
's;^\(BINDIR=\).*$;\1'
"
${
bin
dir
}
;"
\
-e
's;^\(LISPPATH=\).*$;\1'
"
${
lisppath
}
;"
\
-e
's;^\(DATADIR=\).*$;\1'
"
${
datadir
}
;"
\
-e
's;^\(LOCKDIR=\).*$;\1'
"
${
lockdir
}
;"
\
...
...
@@ -442,30 +442,60 @@ tempMakefile="tempMakefile"$$
-e
's;^\(CC=\).*$;\1'
"
${
cc
}
;"
mv
${
tempMakefile
}
lib-src/Makefile
# Document the damage we have done.
# Create a verbal description of what we have done.
message
=
"# Configured for machine
\`
${
machine
}
' running
\`
${
opsystem
}
'.
# The following values have been set in ./Makefile and ./build-install:
# Executables will be placed in
#
${
bindir
}
.
# Emacs's lisp search path will be
#
\`
${
lisppath
}
'.
# Emacs will look for its architecture-independent data in
#
${
datadir
}
.
# Emacs will look for its utility programs and other architecture-
# dependent data in
#
${
libdir
}
.
# Emacs will keep track of file-locking in
#
${
lockdir
}
.
# The following values have been set in src/config.h:
# At how much higher than normal priority should Emacs run?
${
highpri
-none
}
# Should Emacs use the GNU version of malloc?
${
gnu_malloc
}${
gnu_malloc_reason
}
# Should Emacs use the relocating allocator for buffers?
${
rel_alloc
}
# Should Emacs support a floating point Elisp type?
${
lisp_float_type
}
# What window system should Emacs use?
${
window_system
}
# Should Emacs support mouse menus, which require X11?
${
have_x_menu
}
# What compiler should emacs be built with?
${
cc
}
# Should the compilation use
\`
-g' and/or
\`
-O'?
${
c_switch_site
- neither
}
"
# Document the damage we have done by writing config.status.
echo
'#!/bin/sh'
>
config.status
echo
"# This file is generated by
\`
${
progname
}
.'
# If you are thinking about editing it, you should seriously consider
# running
\`
${
progname
}
' instead.
"
>>
config.status
echo
"
${
message
}
"
>>
config.status
echo
"'
${
progname
}
'
\\
-machine='
${
machine
}
'
\\
-opsystem='
${
opsystem
}
'
\\
-g=
${
g
}
\\
-O=
${
O
}
\\
-cc=
${
cc
}
\\
-libdir='
${
libdir
}
'
\\
-datadir='
${
datadir
}
'
\\
-bindir='
${
bindir
}
'
\\
-lisppath='
${
lisppath
}
'
\\
-lockdir='
${
lockdir
}
'
\\
-window_system='
${
window_system
}
'
\\
-have_x_menu='
${
have_x_menu
}
'
\\
-gnu_malloc='
${
gnu_malloc
}
'
-rel_malloc='
${
rel_alloc
}
'
\\
-highpri='
${
highpri
}
'
\\
-lisp_float_type='
${
lisp_float_type
}
'"
>>
config.status
chmod
+x config.status
# Print the description.
echo
echo
"Configured for machine
\`
${
machine
}
' running
\`
${
opsystem
}
'.
The following values have been set in ./Makefile and ./build-install:
Executables will be placed in
${
installbin
}
.
Emacs's lisp search path will be
\`
${
lisppath
}
'.
Emacs will look for its architecture-independent data in
${
datadir
}
.
Emacs will look for its utility programs and other architecture-
dependent data in
${
libdir
}
.
Emacs will keep track of file-locking in
${
lockdir
}
.
The following values have been set in src/config.h:
At how much higher than normal priority should Emacs run?
${
highpri
-none
}
Should Emacs use the GNU version of malloc?
${
gnu_malloc
}${
gnu_malloc_reason
}
Should Emacs use the relocating allocator for buffers?
${
rel_alloc
}
Should Emacs support a floating point Elisp type?
${
lisp_float_type
}
What window system should Emacs use?
${
window_system
}
Should Emacs support mouse menus, which require X11?
${
have_x_menu
}
What compiler should emacs be built with?
${
cc
}
Should the compilation use
\`
-g' and/or
\`
-O'?
${
c_switch_site
- neither
}
"
\
|
tee
config.status 1>&2
echo
"
${
message
}
"
|
sed
-e
's/^# //'
exit
0
lisp/files.el
View file @
8c0e7b73
;; File input and output commands for Emacs
;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
;; Copyright (C) 1985, 1986, 1987
, 1992
Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
...
...
@@ -147,7 +147,19 @@ functions are called.")
(
defvar
write-file-hooks
nil
"List of functions to be called before writing out a buffer to a file.
If one of them returns non-nil, the file is considered already written
and the rest are not called."
)
and the rest are not called.
These hooks are considered to pertain to the visited file.
So this list is cleared if you change the visited file name.
See also `write-contents-hooks'."
)
(
defvar
write-contents-hooks
nil
"List of functions to be called before writing out a buffer to a file.
If one of them returns non-nil, the file is considered already written
and the rest are not called.
These hooks are considered to pertain to the buffer's contents,
not to the particular visited file; thus, `set-visited-file-name' does
not clear this variable, but changing the major mode does clear it.
See also `write-file-hooks'."
)
(
defconst
enable-local-variables
t
"*Control use of local-variables lists in files you visit.
...
...
@@ -932,7 +944,7 @@ the last real save, but optional arg FORCE non-nil means delete anyway."
(
save-excursion
(
goto-char
(
point-max
))
(
insert
?\n
)))
(
let
((
hooks
write-file-hooks
)
(
let
((
hooks
(
append
write-contents-hooks
write-file-hooks
)
)
(
done
nil
))
(
while
(
and
hooks
(
not
(
setq
done
(
funcall
(
car
hooks
)))))
...
...
@@ -1127,22 +1139,21 @@ or multiple mail buffers, etc."
Gets two args, first the nominal file name to use,
and second, t if reading the auto-save file."
)
(
defun
revert-buffer
(
&optional
arg
noconfirm
)
(
defun
revert-buffer
(
&optional
check-auto
noconfirm
)
"Replace the buffer text with the text of the visited file on disk.
This undoes all changes since the file was visited or saved.
If latest auto-save file is more recent than the visited file,
asks user whether to use that instead.
Optional first argument ARG means don't offer to use auto-save file.
This is the prefix arg when called interactively.
With a prefix argument, offer to revert from latest auto-save file, if
that is more recent than the visited file.
When called from lisp, this is the first argument, CHECK-AUTO; it is optional.
Optional second argument NOCONFIRM means don't ask for confirmation at all.
If `revert-buffer-function' value is non-nil, it is called to do the work."
If the value of `revert-buffer-function' is non-nil, it is called to
do the work."
(
interactive
"P"
)
(
if
revert-buffer-function
(
funcall
revert-buffer-function
arg
noconfirm
)
(
funcall
revert-buffer-function
(
not
check-auto
)
noconfirm
)
(
let*
((
opoint
(
point
))
(
auto-save-p
(
and
(
null
arg
)
(
recent-auto-save-p
)
(
auto-save-p
(
and
check-auto
(
recent-auto-save-p
)
buffer-auto-save-file-name
(
file-readable-p
buffer-auto-save-file-name
)
(
y-or-n-p
...
...
src/search.c
View file @
8c0e7b73
...
...
@@ -1254,7 +1254,7 @@ syms_of_search ()
register
int
i
;
searchbuf
.
allocated
=
100
;
searchbuf
.
buffer
=
(
char
*
)
malloc
(
searchbuf
.
allocated
);
searchbuf
.
buffer
=
(
unsigned
char
*
)
malloc
(
searchbuf
.
allocated
);
searchbuf
.
fastmap
=
search_fastmap
;
Qsearch_failed
=
intern
(
"search-failed"
);
...
...
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