/[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.57 by jurta, Sat Oct 30 01:06:58 2004 UTC revision 1.58 by jhd, Tue Nov 9 08:20:44 2004 UTC
# Line 228  KIND should be `var' for a variable or ` Line 228  KIND should be `var' for a variable or `
228        (if (eobp)        (if (eobp)
229            (insert-file-contents-literally            (insert-file-contents-literally
230             (expand-file-name internal-doc-file-name doc-directory)))             (expand-file-name internal-doc-file-name doc-directory)))
231        (search-forward (concat "" name "\n"))        (let ((file (catch 'loop
232                        (while t
233                          (let ((pnt (search-forward (concat "" name "\n"))))
234        (re-search-backward "S\\(.*\\)")        (re-search-backward "S\\(.*\\)")
235        (let ((file (match-string 1)))        (let ((file (match-string 1)))
236                              (if (member file build-files)
237                                  (throw 'loop file)
238                                (goto-char pnt))))))))
239          (if (string-match "\\.\\(o\\|obj\\)\\'" file)          (if (string-match "\\.\\(o\\|obj\\)\\'" file)
240              (setq file (replace-match ".c" t t file)))              (setq file (replace-match ".c" t t file)))
241          (if (string-match "\\.c\\'" file)          (if (string-match "\\.c\\'" file)

Legend:
Removed from v.1.57  
changed lines
  Added in v.1.58

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