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
dd557bb8
Commit
dd557bb8
authored
Oct 24, 1997
by
Karl Heuer
Browse files
(locate-library): Comment out the code that searches
for compressed files.
parent
ef5c41bd
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
17 additions
and
15 deletions
+17
-15
lisp/help.el
lisp/help.el
+17
-15
No files found.
lisp/help.el
View file @
dd557bb8
...
...
@@ -707,8 +707,7 @@ is used instead of `load-path'."
(
interactive
(
list
(
read-string
"Locate library: "
)
nil
nil
t
))
(
let
(
result
(
jka-compr-inhibit
t
))
(
let
(
result
)
(
catch
'answer
(
mapcar
(
lambda
(
dir
)
...
...
@@ -722,19 +721,22 @@ is used instead of `load-path'."
(
throw
'answer
try
)))))
(
if
nosuffix
'
(
""
)
(
let
((
basic
'
(
".elc"
".el"
""
))
(
compressed
'
(
".Z"
".gz"
""
)))
;; If autocompression mode is on,
;; consider all combinations of library suffixes
;; and compression suffixes.
(
if
(
rassq
'jka-compr-handler
file-name-handler-alist
)
(
apply
'nconc
(
mapcar
(
lambda
(
compelt
)
(
mapcar
(
lambda
(
baselt
)
(
concat
baselt
compelt
))
basic
))
compressed
))
basic
)))))
'
(
".elc"
".el"
""
)
;;; load doesn't handle this yet.
;;; (let ((basic '(".elc" ".el" ""))
;;; (compressed '(".Z" ".gz" "")))
;;; ;; If autocompression mode is on,
;;; ;; consider all combinations of library suffixes
;;; ;; and compression suffixes.
;;; (if (rassq 'jka-compr-handler file-name-handler-alist)
;;; (apply 'nconc
;;; (mapcar (lambda (compelt)
;;; (mapcar (lambda (baselt)
;;; (concat baselt compelt))
;;; basic))
;;; compressed))
;;; basic))
)))
(
or
path
load-path
)))
(
and
interactive-call
(
if
result
...
...
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