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
e4636528
Commit
e4636528
authored
Oct 11, 1994
by
Richard M. Stallman
Browse files
Write the subdirs.el file.
parent
c21882e7
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
22 additions
and
0 deletions
+22
-0
lisp/loadup.el
lisp/loadup.el
+22
-0
No files found.
lisp/loadup.el
View file @
e4636528
...
...
@@ -110,9 +110,31 @@
(
progn
; floating pt. functions if
(
garbage-collect
)
; we have float support.
(
load
"float-sup"
)))
(
garbage-collect
)
(
load
"vc-hooks"
)
;; Write a file subdirs.el into the Lisp directory
;; containing the names of the subdirs of that directory
;; which we should check for Lisp files.
(
message
"Writing subdirs.el..."
)
(
let
((
files
(
directory-files
"../lisp/"
nil
nil
t
))
(
buffer-undo-list
t
)
new
)
(
while
files
(
if
(
and
(
not
(
member
(
car
files
)
'
(
"."
".."
"term"
"RCS"
)))
(
not
(
string-match
"\\.elc?$"
(
car
files
)))
(
file-directory-p
(
expand-file-name
(
car
files
)
"../lisp/"
)))
(
setq
new
(
cons
(
car
files
)
new
)))
(
setq
files
(
cdr
files
)))
(
insert
";; In load-path, after this directory should come\n"
)
(
insert
";; certain of its subdirectories. Here we specify them.\n"
)
(
prin1
(
list
'normal-top-level-add-to-load-path
(
list
'quote
new
))
(
current-buffer
))
(
write-region
(
point-min
)
(
point-max
)
(
expand-file-name
"subdirs.el"
"../lisp/"
))
(
erase-buffer
))
;; We specify .el in case someone compiled version.el by mistake.
(
load
"version.el"
)
...
...
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