🚀 go-pugleaf

This isn't a bug, but a small enhancement to info.el, to reduce the
amount of redundancy present in the info "dir" file.  I like having
the info files with a suffix of .info, but having that suffix in the
dir file is a waste of space, e.g.:

* g++: (g++.info):  	The GNU C++ Compiler

as opposed to

* g++: (g++).		The GNU C++ Compiler


I personally would like to hack more on the info.el, so that this can
be reduced to the form of

* G++:: 		The GNU C++ compiler


for these cases where the convenient name for the menu is the same as
the basename for the info file.  This is something I'll work on if
no-one else has done this.  

In any case, this patch to info.el searches for the info filename with
the name given in the dir file, and if that isn't found, the name plus
the extension ".info".  If that isn't found, then an error results.
This causes problems with some of the FSF distributed .texinfo files,
which have a default filename of foo-info, not foo.info.  But since
GNU make has a %.info : %.texinfo rule, I used the .info suffix.

In any case, the patch follows the signature

david d [zoo] zuhn		Univ. of Minnesota Dept. of Astronomy
zoo@aps1.spa.umn.edu		      Automated Plate Scanner Project


*** info.el.orig	Wed Oct 31 18:08:03 1990
--- info.el	Wed Oct 31 18:10:59 1990
***************
*** 1,2 ****
--- 1,7 ----
+ ;;
+ ;; modifed 10/31/90 by David D Zuhn, zoo@aps1.spa.umn.edu, to search for
+ ;; info filenames after adding a ".info" extension
+ ;;;
+ 
  ;; Info package for Emacs  -- could use a "create node" feature.
  ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
***************
*** 75,80 ****
  	  (if (file-exists-p temp)
  	      (setq filename temp)
! 	    (error "Info file %s does not exist"
! 		   (expand-file-name filename Info-directory))))))
    ;; Record the node we are leaving.
    (if (and Info-current-file (not no-going-back))
--- 80,90 ----
  	  (if (file-exists-p temp)
  	      (setq filename temp)
! 	    ;; add this check so that the menu only needs to have the
! 	    ;; base filename, without the .info extension
! 	    ;; (david d zuhn, zoo@aps1.spa.umn.edu - 10/31/90)
! 	    (if (file-exists-p (concat temp ".info"))
! 		(setq filename (concat temp ".info"))
! 	      (error "Info file %s does not exist"
! 		     (expand-file-name filename Info-directory)))))))
    ;; Record the node we are leaving.
    (if (and Info-current-file (not no-going-back))