projects
/
chise
/
xemacs-chise.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
This commit was manufactured by cvs2svn to create branch 'utf-2000'.
[chise/xemacs-chise.git]
/
lisp
/
info.el
diff --git
a/lisp/info.el
b/lisp/info.el
index
bc245ff
..
6d4e22f
100644
(file)
--- a/
lisp/info.el
+++ b/
lisp/info.el
@@
-1542,6
+1542,7
@@
annotation for any node of any file. (See `a' and `x' commands.)"
(let ((compl (Info-build-annotation-completions)))
(save-excursion
(save-restriction
(let ((compl (Info-build-annotation-completions)))
(save-excursion
(save-restriction
+ (widen)
(if (marker-buffer Info-tag-table-marker)
(progn
(set-buffer (marker-buffer Info-tag-table-marker))
(if (marker-buffer Info-tag-table-marker)
(progn
(set-buffer (marker-buffer Info-tag-table-marker))
@@
-1551,7
+1552,6
@@
annotation for any node of any file. (See `a' and `x' commands.)"
(cons (list (buffer-substring (match-beginning 1)
(match-end 1)))
compl))))
(cons (list (buffer-substring (match-beginning 1)
(match-end 1)))
compl))))
- (widen)
(goto-char (point-min))
(while (search-forward "\n\^_" nil t)
(forward-line 1)
(goto-char (point-min))
(while (search-forward "\n\^_" nil t)
(forward-line 1)
@@
-2074,9
+2074,9
@@
A positive or negative prefix argument moves by multiple screenfuls."
(not (eq Info-auto-advance t))
(not (eq last-command this-command)))
(message "Hit %s again to go to previous node"
(not (eq Info-auto-advance t))
(not (eq last-command this-command)))
(message "Hit %s again to go to previous node"
- (if (= last-command-char 0)
+ (if (mouse-event-p last-command-event)
"mouse button"
"mouse button"
- (key-description (char-to-string last-command-char))))
+ (key-description (event-key last-command-event))))
(Info-page-prev)
(setq this-command 'Info))
(scroll-down arg)))
(Info-page-prev)
(setq this-command 'Info))
(scroll-down arg)))