(provide (quote info)) (defvar Info-history nil "\ List of info nodes user has visited. Each element of list is a list (FILENAME NODENAME BUFFERPOS).") (defvar Info-enable-edit nil "\ Non-nil means the \\[Info-edit] command in Info can edit the current node.") (defvar Info-enable-active-nodes t "\ Non-nil allows Info to execute Lisp code associated with nodes. The Lisp code is executed when the node is selected.") (defvar Info-directory nil "\ Default directory for Info documentation files.") (defvar Info-current-file nil "\ Info file that Info is now looking at, or nil.") (defvar Info-current-subfile nil "\ Info subfile that is actually in the *info* buffer now, or nil if current info file is not split into subfiles.") (defvar Info-current-node nil "\ Name of node that Info is now looking at, or nil.") (defvar Info-tag-table-marker (make-marker) "\ Marker pointing at beginning of current Info file's tag table. Marker points nowhere if file has no tag table.") (defun info nil "\ Enter Info, the documentation browser." (interactive) (byte-code "! ! " [nil get-buffer "*info*" switch-to-buffer Info-directory] 4)) (defun Info-find-node (filename nodename &optional no-going-back) (byte-code "D !\"? \" !'