home *** CD-ROM | disk | FTP | other *** search
/ Dream 52 / Amiga_Dream_52.iso / OS2 / gnuinfo.zip / bin / info-19.diff < prev    next >
Lisp/Scheme  |  1993-08-08  |  3KB  |  79 lines
  1. *** Standard Input    Thu Jan 01 00:00:00 1970
  2. --- info-19.el    Thu Jul 29 20:40:18 1993
  3. ***************
  4. *** 335,341 ****
  5.       (let ((list nil)
  6.              idx)
  7.         (while (> (length path) 0)
  8. !         (setq idx (or (string-match ":" path) (length path))
  9.             list (cons (substring path 0 idx) list)
  10.             path (substring path (min (1+ idx)
  11.                           (length path)))))
  12. --- 335,341 ----
  13.       (let ((list nil)
  14.              idx)
  15.         (while (> (length path) 0)
  16. !         (setq idx (or (string-match ";" path) (length path))
  17.             list (cons (substring path 0 idx) list)
  18.             path (substring path (min (1+ idx)
  19.                           (length path)))))
  20. ***************
  21. *** 347,356 ****
  22.   
  23.   (defvar Info-suffix-list '( (".info" . nil)
  24.                   (".info.gz" . "gzip -dc %s")
  25. !                 (".info-z" . "gzip -dc %s")
  26. !                 (".info.Z" . "uncompress -c %s")
  27.                   (".gz" . "gzip -dc %s")
  28. !                 (".Z" . "uncompress -c %s") )
  29.     "List of file name suffixes and associated decoding commands.
  30.   Each entry should be (SUFFIX . STRING); if STRING contains %s, that is
  31.   changed to name of the file to decode, otherwise the file is given to
  32. --- 347,357 ----
  33.   
  34.   (defvar Info-suffix-list '( (".info" . nil)
  35.                   (".info.gz" . "gzip -dc %s")
  36. !                 (".info.z" . "gzip -dc %s")
  37. !                 (".info.Z" . "compress -dc %s")
  38.                   (".gz" . "gzip -dc %s")
  39. !                 (".z" . "gzip -dc %s")
  40. !                 (".Z" . "compress -dc %s") )
  41.     "List of file name suffixes and associated decoding commands.
  42.   Each entry should be (SUFFIX . STRING); if STRING contains %s, that is
  43.   changed to name of the file to decode, otherwise the file is given to
  44. ***************
  45. *** 736,742 ****
  46.         (message "%s..." command)
  47.         (if (eq system-type 'vax-vms)
  48.             (call-process command nil t nil)
  49. !         (call-process shell-file-name nil t nil "-c" command))
  50.         (message "")
  51.         (if visit
  52.             (progn
  53. --- 737,743 ----
  54.         (message "%s..." command)
  55.         (if (eq system-type 'vax-vms)
  56.             (call-process command nil t nil)
  57. !         (call-process shell-file-name nil t nil "/c" command))
  58.         (message "")
  59.         (if visit
  60.             (progn
  61. ***************
  62. *** 788,794 ****
  63.         Info-fontify
  64.         (Info-fontify-node))
  65.        (run-hooks 'Info-select-hook)
  66. !      (if Info-enable-active-nodes (eval active-expression)))))
  67.   
  68.   (defun Info-set-mode-line ()
  69.     (setq mode-line-buffer-identification
  70. --- 789,796 ----
  71.         Info-fontify
  72.         (Info-fontify-node))
  73.        (run-hooks 'Info-select-hook)
  74. !      (if Info-enable-active-nodes (eval active-expression)))
  75. !    (run-hooks 'Info-select-hook)))
  76.   
  77.   (defun Info-set-mode-line ()
  78.     (setq mode-line-buffer-identification
  79.