diff options
Diffstat (limited to 'lisp/info.el')
| -rw-r--r-- | lisp/info.el | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/lisp/info.el b/lisp/info.el index 20e031c1347..695d67c3647 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -20,8 +20,8 @@ ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. +;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. ;;; Commentary: @@ -38,22 +38,22 @@ (eval-when-compile (require 'jka-compr)) (defgroup info nil - "Info subsystem" + "Info subsystem." :group 'help :group 'docs) (defvar Info-history nil "Stack of info nodes user has visited. -Each element of list is a list (FILENAME NODENAME BUFFERPOS).") +Each element of the stack is a list (FILENAME NODENAME BUFFERPOS).") (defvar Info-history-forward nil "Stack of info nodes user has visited with `Info-history-back' command. -Each element of list is a list (FILENAME NODENAME BUFFERPOS).") +Each element of the stack is a list (FILENAME NODENAME BUFFERPOS).") (defvar Info-history-list nil "List of all info nodes user has visited. -Each element of list is a list (FILENAME NODENAME).") +Each element of the list is a list (FILENAME NODENAME).") (defcustom Info-enable-edit nil "*Non-nil means the \\<Info-mode-map>\\[Info-edit] command in Info can edit the current node. @@ -2868,7 +2868,7 @@ Build a menu of the possible matches." (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)))) + (if (not (eq ?\s (setq ch (read-event)))) (progn (setq unread-command-events (list ch)) nil) flag)) (scroll-up))) @@ -3196,6 +3196,8 @@ With a zero prefix arg, put the name inside a function call to `info'." (put 'Info-mode 'mode-class 'special) (put 'Info-mode 'no-clone-indirect t) +(defvar tool-bar-map) + (defun Info-mode () "Info mode provides commands for browsing through the Info documentation tree. Documentation in Info is divided into \"nodes\", each of which discusses @@ -3607,7 +3609,6 @@ Preserve text properties." keymap) "Keymap to put on the Prev link in the text or the header line.") - (defvar Info-up-link-keymap (let ((keymap (make-sparse-keymap))) (define-key keymap [header-line mouse-1] 'Info-up) @@ -4092,8 +4093,7 @@ INDENT is the current indentation depth." (defun Info-speedbar-fetch-file-nodes (nodespec) "Fetch the subnodes from the info NODESPEC. -NODESPEC is a string of the form: (file)node. -Optional THISFILE represends the filename of" +NODESPEC is a string of the form: (file)node." (save-excursion ;; Set up a buffer we can use to fake-out Info. (set-buffer (get-buffer-create "*info-browse-tmp*")) |