Mercurial > emacs
comparison lisp/help-fns.el @ 90533:8a8e69664178
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 343-356)
- Update from CVS
- Update for ERC 5.1.3.
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 113-115)
- Merge from emacs--devo--0
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-90
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Wed, 19 Jul 2006 00:42:56 +0000 |
| parents | a5812696f7bf 2227a7e3b7eb |
| children | 7eeafaaa9eab |
comparison
equal
deleted
inserted
replaced
| 90532:e22cf6d2400c | 90533:8a8e69664178 |
|---|---|
| 532 (condition-case nil | 532 (condition-case nil |
| 533 (find-variable-noselect variable file-name) | 533 (find-variable-noselect variable file-name) |
| 534 (error nil)))) | 534 (error nil)))) |
| 535 (when location | 535 (when location |
| 536 (with-current-buffer (car location) | 536 (with-current-buffer (car location) |
| 537 (goto-char (cdr location)) | 537 (when (cdr location) |
| 538 (goto-char (cdr location))) | |
| 538 (when (re-search-backward | 539 (when (re-search-backward |
| 539 "^;;; Generated autoloads from \\(.*\\)" nil t) | 540 "^;;; Generated autoloads from \\(.*\\)" nil t) |
| 540 (setq file-name (match-string 1))))))) | 541 (setq file-name (match-string 1))))))) |
| 541 (when (and (null file-name) | 542 (when (and (null file-name) |
| 542 (integerp (get variable 'variable-documentation))) | 543 (integerp (get variable 'variable-documentation))) |