home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / freemacs / patch1.min < prev   
Text File  |  1994-03-07  |  2KB  |  88 lines
  1. Thanks to Thorsten Ole, Richard Stanton, Dale Smith for supplying bug
  2. fixes, and Wlodek Drabent for getting me to fix counted character
  3. movement and deletion.
  4.  
  5. To apply this patch, load this file (called "patch1.min") into Freemacs.
  6. Press C-c C-c.  Then run M-x save-all-libs
  7.  
  8.  
  9. Name:F:backward-char
  10. Move the point back by one character
  11. [*]    
  12. #(sp,#(Floop,#(Fsignum,(arg1),<,>),#(Fmodulus,(arg1))))[*]
  13.  
  14.  
  15. Name:F:backward-kill-word
  16. [*]    
  17. #(Fkill-do,F:backward-word,(arg1),backward-)
  18. [*]
  19.  
  20.  
  21. Name:F:delete-backward-char
  22. Delete the character before the point.
  23. [*]    
  24. #(==,arg1,,(#(dm,<)),(
  25.     #(Fkill-do,F:backward-char,(arg1),backward-)
  26. ))[*]
  27.  
  28.  
  29. Name:F:delete-char
  30. The character to the right of the point is deleted.
  31. [*]    
  32. #(==,arg1,,(#(dm,>)),(
  33.     #(Fkill-do,F:forward-char,(arg1))
  34. ))[*]
  35.  
  36.  
  37. Name:F:forward-char
  38. Move forward one character
  39. [*]    
  40. #(sp,#(Floop,#(Fsignum,(arg1),>,<),#(Fmodulus,(arg1))))[*]
  41.  
  42.  
  43. Name:Fkill-do
  44. Arg1 is the function to move over the text, and arg2 is the count.
  45. Arg3 is either "backward-" or it is null.
  46. [*]
  47. #(pm,1)
  48. #(arg1,(arg2))
  49. #(Farg3kill,0)#(pm)
  50. [*]
  51.  
  52.  
  53. The original buffer-not-modified would remove read-only status from a file
  54.  
  55. Name:F:buffer-not-modified
  56. Makes the current buffer think that it hasn't been modified (unless read-only)
  57. [*]#(==,##(lv,mb),1,(#(sv,mb,0)))[*]
  58.  
  59. A little nit..  C-Q Esc would put ^] into the buffer instead of ^[.
  60.  
  61. Name:Fquoted-char
  62. Prompt the user for a control character, and return the character.
  63. [*]#(an,Enter control character (\ for octal) ?)
  64. #(ds,temp,#(g))
  65. #(an)
  66. #(==,##(gn,temp,1),\,(
  67.     #(ds,value)
  68.     #(Freadline,Octal code:,foo)
  69.     #(bc,#(value),o,a)
  70. ),(
  71.     #(rs,temp)
  72.     #(==,##(gn,temp,2),C-,(
  73.         ##(bc,##(--,##(bc,#(si,Fxlat-upper,##(gs,temp))),64),d,a)
  74.     ),(
  75.         #(rs,temp)
  76.         #(Fcase,##(temp),
  77.             (Return,(##(bc,13,d,a))),
  78.             (LPar,(##(bc,40,d,a))),
  79.             (RPar,(##(bc,41,d,a))),
  80.             (Comma,((,))),
  81.             (Tab,((    ))),
  82.             (Escape,(##(bc,27,d,a))),
  83.             (Del,(##(bc,127,d,a))),
  84.             (#(==,##(nc,##(temp)),1,(##(temp)),(#(bl))))
  85.         )
  86.     ))
  87. ))[*]
  88.