Index: emacs/lisp/info.el
diff -c emacs/lisp/info.el:1.433 emacs/lisp/info.el:1.434
*** emacs/lisp/info.el:1.433 Sun Jul 3 16:11:30 2005
--- emacs/lisp/info.el Mon Jul 4 02:12:31 2005
***************
*** 38,44 ****
(eval-when-compile (require 'jka-compr))
(defgroup info nil
! "Info subsystem"
:group 'help
:group 'docs)
--- 38,44 ----
(eval-when-compile (require 'jka-compr))
(defgroup info nil
! "Info subsystem."
:group 'help
:group 'docs)
***************
*** 2868,2874 ****
(while (progn (setq flag (not (pos-visible-in-window-p (point-max))))
(message (if flag "Type Space to see more"
"Type Space to return to Info"))
! (if (not (eq ?\ (setq ch (read-event))))
(progn (setq unread-command-events (list ch)) nil)
flag))
(scroll-up)))
--- 2868,2874 ----
(while (progn (setq flag (not (pos-visible-in-window-p (point-max))))
(message (if flag "Type Space to see more"
"Type Space to return to Info"))
! (if (not (eq ?\s (setq ch (read-event))))
(progn (setq unread-command-events (list ch)) nil)
flag))
(scroll-up)))
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
