home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MISC / GNU / EMACSPAT.ZIP / PATCH2.MIN < prev    next >
Encoding:
Text File  |  1990-04-11  |  4.7 KB  |  240 lines
  1. (2) C-Home is bound to F:goto-beginning, which is now undefined.
  2. Should be F:beginning-of-file, and similarly for C-End.
  3.  
  4. Name:F:goto-beginning
  5. [*]***[*]
  6.  
  7.  
  8. Name:K.C-Home
  9. [*]F:beginning-of-buffer[*]
  10.  
  11.  
  12. Name:F:goto-end
  13. [*]***[*]
  14.  
  15.  
  16. Name:K.C-End
  17. [*]F:end-of-buffer[*]
  18.  
  19. Newlines should also expand abbreviations.
  20.  
  21. Name:F:indent-newline
  22. Insert a newline followed by the same whitespace as on the previous line.
  23. [*]#(Fin-minor-mode,Abbrev,(#(A:expand-abbrev)))
  24. #(Fin-minor-mode,Spell,(
  25.     #(F:spell-word,1)
  26. ))
  27. #(==,##(rc,$),0,(
  28.     #(Fin-minor-mode,Indent,(
  29.         #(sp,^)
  30.         #(Fforward-skip-white,no)
  31.         #(ds,temp,##(rm,^))
  32.         #(sp,$)
  33.         #(Fcrlf)
  34.         #(is,##(temp))
  35.     ),(
  36.         #(Fcrlf)
  37.     ))
  38. ),(
  39.     #(Fcrlf)
  40. ))[*]
  41.  
  42.  
  43. Name:F:newline
  44. Insert a newline.
  45. [*]#(Fin-minor-mode,Abbrev,(#(A:expand-abbrev)))
  46. #(Fin-minor-mode,Spell,(
  47.     #(F:spell-word,1)
  48. ))
  49. #(Fcrlf)[*]
  50.  
  51.  
  52. Name:F:newline-and-indent
  53. Insert a newline followed by the same whitespace as on the previous line.
  54. [*]#(Fin-minor-mode,Abbrev,(#(A:expand-abbrev)))
  55. #(Fin-minor-mode,Spell,(
  56.     #(F:spell-word,1)
  57. ))
  58. #(pm,1)
  59. #(sp,^)
  60. #(Fnewline-and-indent-do)
  61. #(ds,temp,##(rm,^))
  62. #(sp,0)
  63. #(Fcrlf)
  64. #(is,##(temp))
  65. #(pm)
  66. [*]
  67.  
  68.  
  69. Name:F:split-space
  70. Insert a space.  In Spell mode, spell check the word.  In Fill mode, keep
  71. line lengths less than #(F-fill-column)
  72. [*]#(Fin-minor-mode,Abbrev,(#(A:expand-abbrev)))
  73. #(Fin-minor-mode,Spell,(#(F:spell-word,1)))
  74. #(Fself-insert, )
  75. #(Fin-minor-mode,Fill,(
  76.     #(g?,##(lv,cs),##(gs,F-fill-column),(
  77.         #(pm,1)
  78.         #(sm,0,<)
  79.         #(sv,cs,##(gs,F-fill-column))
  80.         #(Fbackward-skip-nonwhite)
  81.         #(Fbackward-delete-whitespace)
  82.         #(Fcrlf)
  83.         #(n?,space-hook,(
  84.             #(space-hook)
  85.         ),(
  86.             #(is,##(F-fill-prefix))
  87.         ))
  88.         #(sp,0>)
  89.         #(pm)
  90.     ))
  91. ))[*]
  92.  
  93.  
  94. M-$ (spell-word) didn't say what word it was trying to spell check.
  95.  
  96.  
  97. Name:F:spell-word
  98. Spell check the word to the left of point.  If an argument is given and
  99. the word is mis-spelled, ring the bell.
  100. [*]    
  101. #(g?,##(sc,,2),0,(
  102.     #(ds,temp,##(rm,-))
  103.     #(mp,temp,,(,),(;),.,!,##(bc,41,d,a))
  104.     #(==,##(temp),,(
  105.         #(pm,1)
  106.         #(sm,0)
  107.         #(sp,-)
  108.         #(ds,temp,##(rm,{))
  109.         #(mp,temp,,0,1,2,3,4,5,6,7,8,9)
  110.         #(==,##(temp),,,(
  111.             #(==,arg1,,(
  112.                 #(Fmessage,##(temp) is spelled 
  113.                     #(==,#(sc,##(temp),0),-3,in)
  114.                 correctly)
  115.             ),(
  116.                 #(==,#(sc,##(temp),0),-3,(#(bl)))
  117.             ))
  118.         ))
  119.         #(sp,0)
  120.         #(pm)
  121.     ))
  122. ),(
  123.     #(Ferror,Speller not installed)
  124. ))[*]
  125.  
  126.  
  127.  
  128. Name:Fspell-word
  129. [*]***[*]
  130.  
  131.  
  132. Sentences ending with '?' weren't being recognized.  Thanks to better
  133. regexps, they now are.
  134.  
  135.  
  136. Name:Fforward-sentence
  137. Move to the beginning of the next sentence.
  138. (Was #(F:forward-sentence) in the Freemacs 1.5e distribution).
  139. [*]#(lp,[.?][##(bc,41,d,a)"]*  \|[.?][##(bc,41,d,a)"]*##(bc,13,d,a)##(bc,10,d,a),,R)
  140. #(pm,1)
  141. #(l?,>,],,0,(
  142.     #(sp,0)
  143. ),(
  144.     #(sp,])
  145. ))
  146. #(pm)
  147. [*]
  148.  
  149.  
  150. Name:Fbackward-sentence
  151. Move backward to the beginning of the previous sentence.
  152. (Was #(F:backward-sentence) in the Freemacs 1.5e distribution).
  153. [*]#(lp,[.?][##(bc,41,d,a)"]*  \|[.?][##(bc,41,d,a)"]*##(bc,13,d,a)##(bc,10,d,a),,R)
  154. #(pm,1)
  155. #(l?,<,[,,0,(
  156.     #(sp,0)
  157. ),(
  158.     #(sp,[)
  159. ))
  160. #(pm)
  161. [*]
  162.  
  163. With two windows visible, messages were merely being written then erased.
  164.  
  165.  
  166. Name:Fmode-line
  167. This shows us where we are and what we're doing.
  168. [*]#(sv,fc,#(F-mode-fore-color))
  169. #(sv,bc,#(F-mode-back-color))
  170. #(an,
  171.     --
  172.     #(Fbuffer-modified,**,--,%%)
  173.     -
  174.     Emacs: 
  175.     #(buffer-number.##(ba,-1)) 
  176.     ##(Fmode-parens,##(buffer-mode.##(ba,-1))#(mode-line-mode)##(minor-modes.##(ba,-1))#(n?,kbd-macro-d, Def))
  177.     --
  178.     C#(lv,cs) 
  179.     L#(lv,cl)/#(lv,nl) 
  180.     --
  181.     #(Fwhere)
  182.     ---------------------------------------------------------
  183. ,a
  184. )
  185. #(sv,fc,#(F-fore-color))
  186. #(sv,bc,#(F-back-color))
  187. [*]
  188.  
  189.  
  190. Name:Fredisplay
  191. This is the prototype for #(k).
  192. [*]#(rd)#(==,##(it,0),Timeout,(#(Fmode-line)
  193.     #(n?,mode-hook,(
  194.         #(mode-hook)
  195.     ))
  196. ))[*]
  197.  
  198.  
  199. Name:Fredisplay-two
  200. This is the prototype for #(k) when in two window mode.
  201. [*]#(rd)#(==,##(it,0),Timeout,(
  202.     #(ba,##(lv,ow))
  203.     #(==,##(lv,cw),1,(#(sv,cw,2)),(#(sv,cw,1)))
  204.     #(Fmode-line)
  205.     #(ba,##(lv,ow))
  206.     #(==,##(lv,cw),1,(#(sv,cw,2)),(#(sv,cw,1)))
  207.     #(Fmode-line)
  208.     #(n?,mode-hook,(
  209.         #(mode-hook)
  210.     ))
  211. ))[*]
  212.  
  213. Messages from C-x C-f used to be erased before you had a chance to read them.
  214.  
  215. Name:F:find-file
  216. Make a buffer current if already loaded, or else load it.
  217. [*]#(==,arg1,,(
  218.     #(ds,value,#(Fbuffer-has-fn,(
  219.         #(Fonly-path,#(Fbuffer-fn))
  220.     ),(
  221.         #(lv,cd)
  222.     )))
  223.     #(ds,F-delete-or-append,
  224.         ##(F-delete-or-append)
  225.         #(ds,F-delete-or-append)
  226.         #(Fread-filename,Find: ,(
  227.             #(SELF,##(value))
  228.         ),dirs okay)
  229.     )
  230. ),(
  231.     #(Fremember-buffer)
  232.     #(ds,temp,#(Fff-with-paths,arg1))
  233.     #(==,##(temp),,(
  234.         #(Ffind-file-do,arg1)
  235.     ),(
  236.         #(Fmultiple,Ffind-file-do,##(temp),SELF)
  237.     ))
  238. ))
  239. [*]
  240.