From d1268e529b9e762a61e895d99788257b25afd7f3 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Sun, 15 Oct 2000 16:46:09 +0000 Subject: (Info-mouse-follow-nearest-node): Use mouse-set-point. (Info-fontify-node, Info-goto-node, Info-mode-menu) (Info-fontify-node): `Goto' goes to `Go to'. (Info-fontify-node): Add help-echo to xref links. --- lisp/info.el | 22 +++++++++------------- 1 file changed, 9 insertions(+), 13 deletions(-) (limited to 'lisp/info.el') diff --git a/lisp/info.el b/lisp/info.el index af7a9b1028..7f93555644 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -966,7 +966,7 @@ Bind this in case the user sets it to nil." If FORK is non-nil (interactively with a prefix arg), show the node in a new info buffer. If FORK is a string, it is the name to use for the new buffer." - (interactive (list (Info-read-node-name "Goto node: ") current-prefix-arg)) + (interactive (list (Info-read-node-name "Go to node: ") current-prefix-arg)) (info-initialize) (if fork (set-buffer @@ -1880,11 +1880,7 @@ ERRORSTRING optional fourth argument, controls action on no match Like \\[Info-menu], \\[Info-follow-reference], \\[Info-next], \\[Info-prev] or \\[Info-up] command, depending on where you click. At end of the node's text, moves to the next node, or up if none." (interactive "e") - (let* ((start (event-start click)) - (window (car start)) - (pos (car (cdr start)))) - (select-window window) - (goto-char pos)) + (mouse-set-point click) (and (not (Info-try-follow-nearest-node)) (save-excursion (forward-line 1) (eobp)) (Info-next-preorder))) @@ -2001,7 +1997,7 @@ If no reference to follow, moves to the next node, or up if none." ("Reference" ["You should never see this" report-emacs-bug t]) ["Search..." Info-search :help "Search for regular expression in this Info file"] - ["Goto Node..." Info-goto-node + ["Go to Node..." Info-goto-node :help "Go to a named node"] ["Last" Info-last :active Info-history :help "Go to the last node you were at"] @@ -2399,7 +2395,7 @@ the variable `Info-file-list-for-emacs'." (put-text-property nbeg nend 'mouse-face 'highlight) (put-text-property tbeg nend 'help-echo - (concat "Goto node " + (concat "Go to node " (buffer-substring nbeg nend))) (let ((fun (cdr (assoc tag '(("Prev" . Info-prev) ("Next" . Info-next) @@ -2430,10 +2426,10 @@ the variable `Info-file-list-for-emacs'." (while (re-search-forward "\\*Note[ \n\t]+\\([^:]*\\):" nil t) (if (= (char-after (1- (match-beginning 0))) ?\") ; hack nil - (put-text-property (match-beginning 1) (match-end 1) - 'face 'info-xref) - (put-text-property (match-beginning 1) (match-end 1) - 'mouse-face 'highlight))) + (add-text-properties (match-beginning 1) (match-end 1) + '(face info-xref + mouse-face highlight + help-echo "mouse-2: go to this node")))) (goto-char (point-min)) (if (and (search-forward "\n* Menu:" nil t) (not (string-match "\\" Info-current-node)) @@ -2555,7 +2551,7 @@ specific node to expand." nil)))) (defun Info-speedbar-goto-node (text node indent) - "When user clicks on TEXT, goto an info NODE. + "When user clicks on TEXT, go to an info NODE. The INDENT level is ignored." (select-frame speedbar-attached-frame) (let* ((buff (or (get-buffer "*info*") -- cgit v1.2.3