home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MISC / GNU / EMACSPAT.ZIP / INFOFIX.MIN next >
Encoding:
Text File  |  1990-04-10  |  3.4 KB  |  137 lines
  1. Sincerely,            |     Mail:  LtCol James A. Lupo
  2.                 |         AFOSR/NP, Bldg 410
  3.     Jim Lupo        |         Bolling AFB, DC   20332-6448
  4.                 |    Phone:  (202) 767-4908
  5.                 | Internet:  lupo@hqafsc-vax.af.mil
  6.                 |         (26.2.0.67)
  7.  
  8.  
  9. { INFO }
  10.  
  11. Problems:
  12.  
  13.     MAJOR Bugs (?): Info constantly reloads .eli files
  14.             Only looked for .eli files in current directory.
  15.  
  16.     Minor Bugs (?): Returned to top buffer rather than buffer Info was
  17.                 called from.
  18.             Local key map function names not updated to 1.6a
  19.                 (down-page -> scroll-up, etc)
  20.             K.Del replaced with K.Delete
  21.  
  22. Fixes:
  23.  
  24.     New variable info-entered-from added.
  25.  
  26. Name:I:info
  27. [*]#(Ffind-or-make-buffer,*info*)
  28. #(ds,info-entered-from,#(==,#(Ffirst,#(last-buffer)),,@*scratch*,#(Fsecond,#(last-buffer))))
  29. #(..,##(go,info-entered-from))
  30. #(I:Info-mode)
  31. #(Ifind-node,((dir)Top))
  32. [*]
  33.  
  34.     Trailing ) added to string.
  35.  
  36. Name:I:Info-validate
  37. Ensure that every node is reachable and valid.
  38. [*]#(bl)#(an,Validate not implemented yet)[*]
  39.  
  40.     Trailing ) added to string.
  41.  
  42. Name:I:Info-search
  43. [*]#(bl)#(an,Search not implemented yet)[*]
  44.  
  45.     env.EMACS prepended to .eli file names.
  46.     Typos in first Ffind-buffer call fixed.
  47.         ~,#(value),,,~ -> ~,,##(value),,~
  48.  
  49. Name:Ifind-node
  50. Copy a node to the *info* buffer.  All .eli files are assumed to be
  51. on the path given by the EMACS environment variable.
  52. [*]#(ds,-SELF,(arg1))
  53. #(==,##(go,-SELF),##(bc,40,d,a),(
  54.     #(ds,value,#(env.EMACS)##(fm,-SELF,##(bc,41,d,a)).eli)
  55.     #(Ffind-buffer,,##(value),,(
  56.         #(Ffind-unused-buffer,##(value))
  57.         #(==,##(ff,##(value)),,(
  58.             #(Ferror,Cannot find ##(value))
  59.         ),(
  60.             #(Fvisit-do)
  61.         ))
  62.     ))
  63.     #(ds,info-buffer,##(ba,-1))
  64. ),(
  65.     #(..,##(ba,##(info-buffer)))
  66.     #(rs,-SELF)
  67. ))
  68. #(sp,[)
  69. #(==,##(-SELF),,(
  70.     #(ds,-SELF,Top)
  71. ))
  72. #(pm,2)
  73. #(SELF-do,##(-SELF),(
  74.     #(ds,info-history,
  75.         ##(info-current)
  76.         #(==,##(info-current),,,((,)))
  77.         ##(info-history)
  78.     )
  79.     #(ds,info-current,##(-SELF))
  80.     #(..,##(ba,##(buffer-name.*info*)))
  81.     #(Fenter-local-modes)
  82.     #(sp,[)
  83.     #(dm,])
  84.     #(bi,##(info-buffer),0)
  85.     #(sv,mb,0)
  86.     #(sp,[)
  87. ),(
  88.     #(an,Node "(arg1)" not found)
  89. ))
  90. #(pm)
  91. #(es,-SELF)
  92. [*]
  93.  
  94.     On exit, switch to info-entered-from buffer.
  95.  
  96. Name:I:Info-quit
  97. Exit Info by simply returning to the buffer we entered from.
  98. [*]#(Fswitch-to-buffer,#(info-entered-from))[*]
  99.  
  100.     Fixed K.  and K.Delete aka K.del (functions were renamed in 1.6a to
  101.     be more compatible with GNU Emacs)
  102.  
  103. Name:I:Info-mode
  104. Set up local key maps for Info Mode.
  105. [*]#(Fexit-mode)
  106. #(Flocal-bind-key,K.n,I:Info-next)
  107. #(Flocal-bind-key,K.p,I:Info-prev)
  108. #(Flocal-bind-key,K.q,I:Info-quit)
  109. #(Flocal-bind-key,K.u,I:Info-up)
  110. #(Flocal-bind-key,K.m,I:Info-menu)
  111. #(Flocal-bind-key,K.d,I:Info-dir)
  112. #(Flocal-bind-key,K.f,I:Info-follow)
  113. #(Flocal-bind-key,K.l,I:Info-last)
  114. #(Flocal-bind-key,K.g,I:Info-goto)
  115. #(Flocal-bind-key,K.s,I:Info-search)
  116. #(Flocal-bind-key,K.b,I:Info-begin)
  117. #(Flocal-bind-key,K.1,(I:Info-number,1))
  118. #(Flocal-bind-key,K.2,(I:Info-number,2))
  119. #(Flocal-bind-key,K.3,(I:Info-number,3))
  120. #(Flocal-bind-key,K.4,(I:Info-number,4))
  121. #(Flocal-bind-key,K.5,(I:Info-number,5))
  122. #(Flocal-bind-key,K. ,F:scroll-up)
  123. #(Flocal-bind-key,K.Delete,F:scroll-down)
  124. #(Flocal-bind-key,K.Del,F:scroll-down)
  125. #(Flocal-bind-key,K.?,I:Info-help)
  126. #(Flocal-bind-key,K.h,I:Info-goto-help)
  127. #(Fmv,Fself-insert,F!self-insert)
  128. #(Fmv,Iinsert,Fself-insert)
  129. #(ds,local-mode-changes,##(local-mode-changes)(
  130.     #(Fmv,Fself-insert,Iinsert)
  131.     #(Fmv,F!self-insert,Fself-insert)
  132. ))
  133. #(Fset-modename,Info)
  134. [*]
  135.  
  136.  
  137.