Mercurial > emacs
comparison lisp/help.el @ 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 | 27387f2d010c |
children | 19bd1617f9e3 |
comparison
equal
deleted
inserted
replaced
24709:6cfda8d96aea | 24710:bcb0ee72502c |
---|---|
1032 nil t) | 1032 nil t) |
1033 (let ((col (- (match-end 1) (match-beginning 1)))) | 1033 (let ((col (- (match-end 1) (match-beginning 1)))) |
1034 (while | 1034 (while |
1035 ;; Ignore single blank lines in table, but not | 1035 ;; Ignore single blank lines in table, but not |
1036 ;; double ones, which should terminate it. | 1036 ;; double ones, which should terminate it. |
1037 (and (looking-at "^\n?[^\n\t ]") | 1037 (and (not (looking-at "\n\n")) |
1038 (progn | 1038 (progn |
1039 (if (and (> (move-to-column col) 0) | 1039 (and (eolp) (forward-line)) |
1040 (looking-at "\\(\\sw\\|-\\)+$")) | 1040 (end-of-line) |
1041 (skip-chars-backward "^\t\n") | |
1042 (if (and (>= (current-column) col) | |
1043 +(looking-at "\\(\\sw\\|-\\)+$")) | |
1041 ;; | 1044 ;; |
1042 (let ((sym (intern-soft (match-string 0)))) | 1045 (let ((sym (intern-soft (match-string 0)))) |
1043 (if (fboundp sym) | 1046 (if (fboundp sym) |
1044 (help-xref-button | 1047 (help-xref-button |
1045 0 #'describe-function sym)))) | 1048 0 #'describe-function sym)))) |
1046 t) | 1049 (zerop (forward-line))))))))) |
1047 (progn | |
1048 (end-of-line) | |
1049 (zerop (forward-line))) | |
1050 (move-to-column 0))))))) | |
1051 (set-syntax-table stab)) | 1050 (set-syntax-table stab)) |
1052 ;; Make a back-reference in this buffer if appropriate. | 1051 ;; Make a back-reference in this buffer if appropriate. |
1053 (when help-xref-stack | 1052 (when help-xref-stack |
1054 (goto-char (point-max)) | 1053 (goto-char (point-max)) |
1055 (save-excursion | 1054 (save-excursion |