From lucid-emacs-19.1 to lucid-emacs-19.2 popup-menu was rewritten.
The doc-string was improved but backward compatibility was not
provided and since the info.el was not updated it was not longer
possible to use the popup-menu (on the right button).

Another thing: In the info-page:
* Menu: The list of major topics begins on the next line.

* Info: (info).	Documentation browsing system.

* Emacs-info: (emacs).  The extensible self-documenting text editor.
* Elisp: (elisp).	Gnu Emacs Lisp Reference Manual.
* Emacs::		Documentation for Emacs utilities.

It was not possible to select the node * Emacs:: since the search was
just done on "* Emacs". Not first on "* Emacs:".

I have fixed these problems and also rewritten the popup-menu function
as to make sub-menus instead of concatenating everything in one menu.

A bug I have not fixed is that the info-mode highlighting/italic and
bold info is connected to one screen only, the screen that was current
when loading the file. This should of course follow the buffer on any
screen.

Here is my patch. If you don't want the submenus thing then just don't
use the third (last and longest) part of the patch.
-- 
	/Linus
*****	Wherever I exec my `which emacs`, is my $HOME.	*****
Linus Tolke				SM7OUU, linus@lysator.liu.se
Student at the				member of SK5EU LiTHSA
Link|ping institute of technology, LiTH	LiTH S{ndare Amat|rer (Ham-club)
================================================================
diff -u info.el.19.1 info.el
--- info.el.19.1	Tue May 19 22:03:10 1992
+++ info.el	Tue Jul 28 23:50:29 1992
@@ -518,7 +518,8 @@
     (goto-char (point-min))
     (or (search-forward "\n* menu:" nil t)
 	(error "No menu in this node"))
-    (or (search-forward (concat "\n* " menu-item) nil t)
+    (or (search-forward (concat "\n* " menu-item ":") nil t)
+	(search-forward (concat "\n* " menu-item) nil t)
 	(error "No such item in menu"))
     (beginning-of-line)
     (forward-char 2)
@@ -902,7 +903,7 @@
       (if (looking-at ".*\\bNext:") (setq next-p t))
       (if (looking-at ".*\\bPrev:") (setq prev-p t))
       (if (looking-at ".*Up:") (setq up-p t))
-      (setq menu (nconc (list nil "Info Commands:" "----")
+      (setq menu (nconc (list "Info Commands:" "----")
 			(if (setq in (Info-indicated-node event))
 			    (list (vector (car (cdr in)) in t)))
 			(list
@@ -930,20 +931,25 @@
       (if (> (length subnodes) 21) (setcdr (nthcdr 20 subnodes) '(more)))
       )
     (if xrefs
-	(nconc menu (list "----" "Cross-References:" "----")
-	       (mapcar (function (lambda (xref)
-				   (if (eq xref 'more)
-				       "...more..."
-				     (vector xref
-					     (list 'Info-follow-reference xref)
-					     t))))
-		       xrefs)))
+	(nconc menu
+	       (list
+		(apply 'list "Cross-References:" "----"
+		       (mapcar (function
+				(lambda (xref)
+				  (if (eq xref 'more)
+				      "...more..."
+				    (vector xref
+					    (list 'Info-follow-reference xref)
+					    t))))
+			       xrefs)))))
     (if subnodes
-	(nconc menu (list "----" "Sub-Nodes:" "----")
-	       (mapcar (function (lambda (node)
-				   (if (eq node 'more)
-				       "...more..."
-				     (vector node (list 'Info-menu node)
-					     t))))
-		       subnodes)))
+	(nconc menu 
+	       (list
+		(apply 'list "Sub-Nodes:" "----"
+		       (mapcar (function (lambda (node)
+					   (if (eq node 'more)
+					       "...more..."
+					     (vector node (list 'Info-menu node)
+						     t))))
+			       subnodes)))))
     (popup-menu menu)))
Newsgroups: alt.lucid-emacs.bug
Date:  Thu, 30 Jul 92 14:13:22 -0500
From: frain@cis.ksu.edu (Jerry Frain)
Subject: Permission denied when running compile.
Reply-To: frain@cis.ksu.edu
X-Organization: KSU Dept. of Computing and Information Sciences
X-Office: Nichols 117
X-Phone: (913) 532-6350 - ext. 45
X-Fax:   (913) 532-7353