projects
/
chise
/
xemacs-chise.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Reformatted.
[chise/xemacs-chise.git-]
/
lisp
/
lib-complete.el
diff --git
a/lisp/lib-complete.el
b/lisp/lib-complete.el
index
69d5554
..
ea0bc69
100644
(file)
--- a/
lisp/lib-complete.el
+++ b/
lisp/lib-complete.el
@@
-128,8
+128,8
@@
Display MESSAGE and evaluate FORMS, returning value of the last one."
;;=== Completion caching ==================================================
(defconst lib-complete:cache nil
;;=== Completion caching ==================================================
(defconst lib-complete:cache nil
- "Used within read-library and read-library-internal to prevent
-costly repeated calls to library-all-completions.
+ "Used within `read-library' and `read-library-internal' to prevent
+costly repeated calls to `library-all-completions'.
Format is a list of lists of the form
([<path> <subdir>] <cache-record> <cache-record> ...)
Format is a list of lists of the form
([<path> <subdir>] <cache-record> <cache-record> ...)
@@
-306,10
+306,7
@@
and CODESYS. The default for DISPLAY-FUNCTION is `find-file'."
(let ((path (if (or (null library) (equal library ""))
nil
(locate-file library load-path
(let ((path (if (or (null library) (equal library ""))
nil
(locate-file library load-path
- ;; decompression doesn't work with Mule -slb
- (if (featurep 'mule)
- ":.el:.elc"
- ":.el:.el.gz:.el.Z:.elc")))))
+ ":.el:.el.gz:.el.Z:.elc"))))
(if path (funcall (if (fboundp display-function)
display-function 'find-file)
path codesys)
(if path (funcall (if (fboundp display-function)
display-function 'find-file)
path codesys)