Mercurial > emacs
comparison lisp/help-fns.el @ 66523:7ca34a6ac6c6
(describe-simplify-lib-file-name): Fix regexp.
| author | Romain Francoise <romain@orebokech.com> |
|---|---|
| date | Sat, 29 Oct 2005 14:12:08 +0000 |
| parents | ecdadc99bf8c |
| children | 35ee6fbeca84 |
comparison
equal
deleted
inserted
replaced
| 66522:8f27de5a8c19 | 66523:7ca34a6ac6c6 |
|---|---|
| 289 ;; Try converting the absolute file name to a library name. | 289 ;; Try converting the absolute file name to a library name. |
| 290 (let ((libname (file-name-nondirectory file))) | 290 (let ((libname (file-name-nondirectory file))) |
| 291 ;; Now convert that back to a file name and see if we get | 291 ;; Now convert that back to a file name and see if we get |
| 292 ;; the original one. If so, they are equivalent. | 292 ;; the original one. If so, they are equivalent. |
| 293 (if (equal file (locate-file libname load-path '(""))) | 293 (if (equal file (locate-file libname load-path '(""))) |
| 294 (if (string-match "[.]elc?\\'" libname) | 294 (if (string-match "[.]elc\\'" libname) |
| 295 (substring libname 0 -1) | 295 (substring libname 0 -1) |
| 296 libname) | 296 libname) |
| 297 file)))) | 297 file)))) |
| 298 | 298 |
| 299 ;;;###autoload | 299 ;;;###autoload |