[Emacs-diffs] Changes to emacs/lisp/help-fns.el [lexbind]

[Miles Bader]

Index: emacs/lisp/help-fns.el
diff -c emacs/lisp/help-fns.el:1.9.2.17 emacs/lisp/help-fns.el:1.9.2.18
*** emacs/lisp/help-fns.el:1.9.2.17     Thu Nov  4 13:12:40 2004
--- emacs/lisp/help-fns.el      Fri Nov 12 04:21:13 2004
***************
*** 230,238 ****
        (if (eobp)
          (insert-file-contents-literally
           (expand-file-name internal-doc-file-name doc-directory)))
!       (search-forward (concat "" name "\n"))
        (re-search-backward "S\\(.*\\)")
        (let ((file (match-string 1)))
        (if (string-match "\\.\\(o\\|obj\\)\\'" file)
            (setq file (replace-match ".c" t t file)))
        (if (string-match "\\.c\\'" file)
--- 230,243 ----
        (if (eobp)
          (insert-file-contents-literally
           (expand-file-name internal-doc-file-name doc-directory)))
!       (let ((file (catch 'loop
!                   (while t
!                     (let ((pnt (search-forward (concat "" name "\n"))))
        (re-search-backward "S\\(.*\\)")
        (let ((file (match-string 1)))
+                         (if (member file build-files)
+                             (throw 'loop file)
+                           (goto-char pnt))))))))
        (if (string-match "\\.\\(o\\|obj\\)\\'" file)
            (setq file (replace-match ".c" t t file)))
        (if (string-match "\\.c\\'" file)