# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 926340579 0
# Node ID bcb0ee72502cf8d5372393421d120e4138816887
# Parent  6cfda8d96aea6a7e17b08d409a53f39f49cc6cdc
(help-make-xrefs): Handle more cases when looking for
commands in a keymap description.

diff -r 6cfda8d96aea -r bcb0ee72502c lisp/help.el
--- 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