/[emacs]/emacs/lisp/help-fns.el
ViewVC logotype

Diff of /emacs/lisp/help-fns.el

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

revision 1.77 by rfrancoise, Fri Oct 28 16:55:47 2005 UTC revision 1.78 by rfrancoise, Sat Oct 29 14:12:08 2005 UTC
# Line 291  face (according to `face-differs-from-de Line 291  face (according to `face-differs-from-de
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))))

Legend:
Removed from v.1.77  
changed lines
  Added in v.1.78

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