291 |
;; Now convert that back to a file name and see if we get |
;; Now convert that back to a file name and see if we get |
292 |
;; the original one. If so, they are equivalent. |
;; the original one. If so, they are equivalent. |
293 |
(if (equal file (locate-file libname load-path '(""))) |
(if (equal file (locate-file libname load-path '(""))) |
294 |
(if (string-match "[.]elc?\\'" libname) |
(if (string-match "[.]elc\\'" libname) |
295 |
(substring libname 0 -1) |
(substring libname 0 -1) |
296 |
libname) |
libname) |
297 |
file)))) |
file)))) |