Mercurial > emacs
comparison lisp/help.el @ 22850:e7684a1dd417
(describe-function-1): Fix the code that uses find-function-noselect.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 29 Jul 1998 23:04:03 +0000 |
| parents | eec1f722bded |
| children | c3bbca1b6f3a |
comparison
equal
deleted
inserted
replaced
| 22849:d1d9c92ca734 | 22850:e7684a1dd417 |
|---|---|
| 617 (save-excursion | 617 (save-excursion |
| 618 (re-search-backward "`\\([^`']+\\)'" nil t) | 618 (re-search-backward "`\\([^`']+\\)'" nil t) |
| 619 (help-xref-button 1 #'(lambda (arg) | 619 (help-xref-button 1 #'(lambda (arg) |
| 620 (let ((location | 620 (let ((location |
| 621 (find-function-noselect arg))) | 621 (find-function-noselect arg))) |
| 622 (display-buffer (nth 0 location)) | 622 (pop-to-buffer (car location)) |
| 623 (goto-char (nth 1 location)))) | 623 (goto-char (cdr location)))) |
| 624 function))))) | 624 function))))) |
| 625 (if need-close (princ ")")) | 625 (if need-close (princ ")")) |
| 626 (princ ".") | 626 (princ ".") |
| 627 (terpri) | 627 (terpri) |
| 628 (let* ((inner-function (if (and (listp def) 'macro) | 628 (let* ((inner-function (if (and (listp def) 'macro) |