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
450a90e2
Commit
450a90e2
authored
Aug 31, 1992
by
Roland McGrath
Browse files
*** empty log message ***
parent
6ec3899e
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
4 deletions
+6
-4
lisp/loadup.el
lisp/loadup.el
+6
-4
No files found.
lisp/loadup.el
View file @
450a90e2
...
...
@@ -116,12 +116,14 @@
(
setq
name
(
concat
(
downcase
(
substring
name
0
(
match-beginning
0
)))
"-"
(
substring
name
(
match-end
0
)))))
(
delete-file
(
concat
(
expand-file-name
"../etc/DOC-"
)
name
))
(
setq
name
(
concat
(
expand-file-name
"../etc/DOC-"
)
name
))
(
if
(
file-exists-p
name
)
(
delete-file
name
))
(
copy-file
(
expand-file-name
"../etc/DOC"
)
(
concat
(
expand-file-name
"../etc/DOC-"
)
name
)
name
t
)
(
Snarf-documentation
(
concat
"DOC-"
name
)))
(
Snarf-documentation
"DOC"
))
(
Snarf-documentation
(
file-name-nondirectory
name
)))
(
Snarf-documentation
"DOC"
))
(
message
"Finding pointers to doc strings...done"
)
;Note: You can cause additional libraries to be preloaded
...
...
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