[Emacs-diffs] Changes to emacs/lisp/eshell/esh-test.el

[Richard M . Stallman]

Index: emacs/lisp/eshell/esh-test.el
diff -c emacs/lisp/eshell/esh-test.el:1.8 emacs/lisp/eshell/esh-test.el:1.9
*** emacs/lisp/eshell/esh-test.el:1.8   Fri May 14 01:02:37 2004
--- emacs/lisp/eshell/esh-test.el       Mon Dec 27 16:15:53 2004
***************
*** 125,131 ****
    (let ((fsym (get-text-property (point) 'test-func)))
      (when fsym
        (let* ((def (symbol-function fsym))
!            (library (locate-library (symbol-file fsym)))
             (name (substring (symbol-name fsym)
                              (length "eshell-test--")))
             (inhibit-redisplay t))
--- 125,131 ----
    (let ((fsym (get-text-property (point) 'test-func)))
      (when fsym
        (let* ((def (symbol-function fsym))
!            (library (locate-library (symbol-file fsym 'defun)))
             (name (substring (symbol-name fsym)
                              (length "eshell-test--")))
             (inhibit-redisplay t))