From 657cca97bef9100cef54e04ef6feec46ade2fcfd Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Mon, 10 May 1999 12:49:39 +0000 Subject: [PATCH] (help-make-xrefs): Handle more cases when looking for commands in a keymap description. --- lisp/help.el | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) diff --git a/lisp/help.el b/lisp/help.el index cf7a62a3437..1d6a3426b88 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -1034,20 +1034,19 @@ that." (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 -- 2.39.2