/[emacs]/emacs/lisp/emacs-lisp/find-func.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/find-func.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.36 by rms, Tue Aug 13 01:49:40 2002 UTC revision 1.37 by monnier, Thu Aug 15 00:08:48 2002 UTC
# Line 127  If VARIABLE-P is nil, `find-function-reg Line 127  If VARIABLE-P is nil, `find-function-reg
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)

Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26