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

[Jan Djärv]

Index: emacs/lisp/help-fns.el
diff -c emacs/lisp/help-fns.el:1.57 emacs/lisp/help-fns.el:1.58
*** emacs/lisp/help-fns.el:1.57 Sat Oct 30 01:06:58 2004
--- emacs/lisp/help-fns.el      Tue Nov  9 08:20:44 2004
***************
*** 228,236 ****
        (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)
--- 228,241 ----
        (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)