Function: Info-history-find-node

Info-history-find-node is a byte-compiled function defined in info.el.gz.

Signature

(Info-history-find-node FILENAME NODENAME &optional NO-GOING-BACK)

Documentation

History-specific implementation of Info-find-node-2.

Source Code

;; Defined in /usr/src/emacs/lisp/info.el.gz
(defun Info-history-find-node (filename nodename &optional _no-going-back)
  "History-specific implementation of `Info-find-node-2'."
  (insert (format "\n\^_\nFile: %s,  Node: %s,  Up: (dir)\n\n"
		  (or filename Info-current-file) nodename))
  (insert "History of Visited Nodes\n")
  (insert "************************\n\n")
  (insert "* Menu:\n\n")
  (let ((hl (remove '("*History*" "Top") Info-history-list)))
    (while hl
      (let ((file (nth 0 (car hl)))
	    (node (nth 1 (car hl))))
	(if (stringp file)
	    (insert "* " node ": ("
		    (propertize (or (file-name-directory file) "") 'invisible t)
		    (file-name-nondirectory file)
		    ")" node ".\n")))
      (setq hl (cdr hl)))))