Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-20 11:57:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(help-make-xrefs): Handle more cases when looking for

Browse source 
commands in a keymap description.
This commit is contained in:
Andreas Schwab 1999-05-10 12:49:39 +00:00
parent aea543b450
commit 657cca97be
1 changed files with 7 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/help.el
View file

@ -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