*** Standard Input	Thu Jan 01 00:00:00 1970
--- info-19.el	Thu Jul 29 20:40:18 1993
***************
*** 335,341 ****
  	(let ((list nil)
   	      idx)
  	  (while (> (length path) 0)
! 	    (setq idx (or (string-match ":" path) (length path))
  		  list (cons (substring path 0 idx) list)
  		  path (substring path (min (1+ idx)
  					    (length path)))))
--- 335,341 ----
  	(let ((list nil)
   	      idx)
  	  (while (> (length path) 0)
! 	    (setq idx (or (string-match ";" path) (length path))
  		  list (cons (substring path 0 idx) list)
  		  path (substring path (min (1+ idx)
  					    (length path)))))
***************
*** 347,356 ****
  
  (defvar Info-suffix-list '( (".info" . nil)
  			    (".info.gz" . "gzip -dc %s")
! 			    (".info-z" . "gzip -dc %s")
! 			    (".info.Z" . "uncompress -c %s")
  			    (".gz" . "gzip -dc %s")
! 			    (".Z" . "uncompress -c %s") )
    "List of file name suffixes and associated decoding commands.
  Each entry should be (SUFFIX . STRING); if STRING contains %s, that is
  changed to name of the file to decode, otherwise the file is given to
--- 347,357 ----
  
  (defvar Info-suffix-list '( (".info" . nil)
  			    (".info.gz" . "gzip -dc %s")
! 			    (".info.z" . "gzip -dc %s")
! 			    (".info.Z" . "compress -dc %s")
  			    (".gz" . "gzip -dc %s")
! 			    (".z" . "gzip -dc %s")
! 			    (".Z" . "compress -dc %s") )
    "List of file name suffixes and associated decoding commands.
  Each entry should be (SUFFIX . STRING); if STRING contains %s, that is
  changed to name of the file to decode, otherwise the file is given to
***************
*** 736,742 ****
  	  (message "%s..." command)
  	  (if (eq system-type 'vax-vms)
  	      (call-process command nil t nil)
! 	    (call-process shell-file-name nil t nil "-c" command))
  	  (message "")
  	  (if visit
  	      (progn
--- 737,743 ----
  	  (message "%s..." command)
  	  (if (eq system-type 'vax-vms)
  	      (call-process command nil t nil)
! 	    (call-process shell-file-name nil t nil "/c" command))
  	  (message "")
  	  (if visit
  	      (progn
***************
*** 788,794 ****
  	  Info-fontify
  	  (Info-fontify-node))
       (run-hooks 'Info-select-hook)
!      (if Info-enable-active-nodes (eval active-expression)))))
  
  (defun Info-set-mode-line ()
    (setq mode-line-buffer-identification
--- 789,796 ----
  	  Info-fontify
  	  (Info-fontify-node))
       (run-hooks 'Info-select-hook)
!      (if Info-enable-active-nodes (eval active-expression)))
!    (run-hooks 'Info-select-hook)))
  
  (defun Info-set-mode-line ()
    (setq mode-line-buffer-identification