Mercurial > emacs
changeset 24710:bcb0ee72502c
(help-make-xrefs): Handle more cases when looking for
commands in a keymap description.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Mon, 10 May 1999 12:49:39 +0000 |
| parents | 6cfda8d96aea |
| children | 365644d49998 |
| files | lisp/help.el |
| diffstat | 1 files changed, 7 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/help.el Mon May 10 11:44:03 1999 +0000 +++ b/lisp/help.el Mon May 10 12:49:39 1999 +0000 @@ -1034,20 +1034,19 @@ (while ;; Ignore single blank lines in table, but not ;; double ones, which should terminate it. - (and (looking-at "^\n?[^\n\t ]") + (and (not (looking-at "\n\n")) (progn - (if (and (> (move-to-column col) 0) - (looking-at "\\(\\sw\\|-\\)+$")) + (and (eolp) (forward-line)) + (end-of-line) + (skip-chars-backward "^\t\n") + (if (and (>= (current-column) col) + +(looking-at "\\(\\sw\\|-\\)+$")) ;; (let ((sym (intern-soft (match-string 0)))) (if (fboundp sym) (help-xref-button 0 #'describe-function sym)))) - t) - (progn - (end-of-line) - (zerop (forward-line))) - (move-to-column 0))))))) + (zerop (forward-line))))))))) (set-syntax-table stab)) ;; Make a back-reference in this buffer if appropriate. (when help-xref-stack