127 |
(setq library (substring library 0 (match-beginning 1)))) |
(setq library (substring library 0 (match-beginning 1)))) |
128 |
(let* ((path find-function-source-path) |
(let* ((path find-function-source-path) |
129 |
(compression (or (rassq 'jka-compr-handler file-name-handler-alist) |
(compression (or (rassq 'jka-compr-handler file-name-handler-alist) |
130 |
(member 'crypt-find-file-hook find-file-hooks))) |
(member 'crypt-find-file-hook find-file-hook))) |
131 |
(filename (progn |
(filename (progn |
132 |
;; use `file-name-sans-extension' here? (if it gets fixed) |
;; use `file-name-sans-extension' here? (if it gets fixed) |
133 |
(if (string-match "\\(\\.el\\)\\'" library) |
(if (string-match "\\(\\.el\\)\\'" library) |