home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MISC / GNU / EMACSPAT.ZIP / PATCH3.MIN < prev    next >
Encoding:
Internet Message Format  |  1990-04-15  |  4.8 KB
  1. From: Richard Stanton <PSTANTON@GSB-WHAT.STANFORD.EDU>
  2.  
  3. [ eliminated a MINT kludge that fixed a bug in emacs.exe.  Better to
  4. really fix in emacs.exe. -russ ]
  5.  
  6. Name:F:shrink-window
  7. Make the current window smaller.
  8. [*]
  9. #(Fr,(
  10.     #(==,##(lv,tl),1,(
  11.         #(sv,bl,##(--,##(lv,bl),ARG1))
  12.     ),(
  13.         #(sv,tl,##(++,##(lv,tl),ARG1))
  14.     ))
  15. ),#(==,#(++,arg1),0,1,arg1))
  16. [*]
  17.  
  18. From: Russell Nelson <nelson@clutx.clarkson.edu>
  19.  
  20. Use Fget-key-with-prefixes, so that ESC p works the same way as M-p in
  21. readline mode.
  22.  
  23.  
  24. Name:Freadline
  25. Read a line of text from the minibuffer.
  26. On entry, #(value) is the default string.
  27. arg1=prompt
  28. arg2=string to execute if input is confirmed with return.  The users input
  29.      is in #(value)
  30. arg3=mode.
  31. The mode variable lets keys be redefined in readline mode.  For example,
  32. isearch defines ^S and ^R specially, and extended-command defines space and
  33. escape specially.
  34. [*]#(ds,2nd-half)
  35. #(Freadline-an,(arg1))
  36. #(SELF-do,#(Fget-key-with-prefixes),(arg1),(arg2),
  37.     #(==,arg3,,Freadline.,arg3),##(F-delete-or-append))
  38. #(es,2nd-half)[*]
  39.  
  40.  
  41.  
  42. Name:Freadline-do
  43. [*]#(==,
  44.     #(n?,arg4.arg1,(
  45.         #(arg4.arg1,(arg3),arg5,(arg2))
  46.     ),(
  47.         #(n?,Freadline.arg1,(
  48.             #(Freadline.arg1,(arg3),arg5)
  49.         ),(
  50.             #(Freadline.other,arg1,arg5)
  51.         ))
  52.     ))
  53. ,again,(
  54.     #(Freadline-an,(arg2))
  55.     #(SELF,#(Fget-key-with-prefixes),(arg2),(arg3),arg4)
  56. ))[*]
  57.  
  58. Missing pair of parens around #(++,arg1,1).  Didn't hurt anything, but
  59. it made recenter a tiny bit little slower.
  60.  
  61. Name:F:recenter
  62. Reposition the line containing the cursor at the middle of the window.  If
  63. an argument is given, place the cursor at that line.
  64. Changed to make M-0 C-L do the same thing a GNU emacs.
  65. [*]    
  66. #(==,arg1,,(
  67.     #(sv,rs,##(++,##(//,#(--,##(lv,bl),##(lv,tl)),2),##(lv,tl)))
  68. ),(
  69.     #(sv,rs,
  70.         #(g?,#(++,arg1,1),0,(#(++,arg1,1)),(#(++,arg1,##(lv,bl))))
  71.     )
  72. ))[*]
  73.  
  74.  
  75. Return-Path: <@clutx.clarkson.edu:KOHONEN@csc.fi>
  76. Date: Sat, 14 Apr 90 17:26 EET
  77. From: Teuvo Kohonen <KOHONEN@csc.fi>
  78. Subject: RE: Freemacs 1.6a is now available.
  79. To: nelson@clutx.clarkson.edu
  80. X-Vms-To: IN%"nelson@clutx.clarkson.edu"
  81.  
  82. Hi!
  83.  
  84. Here are a few minor fixes and additions to 1.6a.
  85.  
  86.  
  87.  
  88. When given a numerical argument, C-q should ask once for a character and
  89. then insert many copies of it, instead of asking many times.
  90. This makes it work right (the Gnu Emacs way).
  91.  
  92. Name:F:quoted-insert
  93. Insert a control character.
  94. [*]    
  95. #(ds,temp,#(Fquoted-char))
  96. #(Floop,(#(is,##(temp))),#(==,arg1,,1,arg1))
  97. [*]
  98.  
  99.  
  100. Escape is 27, not 29!
  101. Added Back Space.
  102.  
  103. Name:Fquoted-char
  104. Prompt the user for a control character, and return the character.
  105. [*]#(an,Enter control character (\ for octal) ?)
  106. #(ds,temp,#(g))
  107. #(an)
  108. #(==,##(gn,temp,1),\,(
  109.     #(ds,value)
  110.     #(Freadline,Octal code:,foo)
  111.     #(bc,#(value),o,a)
  112. ),(
  113.     #(rs,temp)
  114.     #(==,##(gn,temp,2),C-,(
  115.         ##(bc,##(--,##(bc,#(si,Fxlat-upper,##(gs,temp))),64),d,a)
  116.     ),(
  117.         #(rs,temp)
  118.         #(Fcase,##(temp),
  119.             (Back Space,(##(bc,8,d,a))),
  120.             (Return,(##(bc,13,d,a))),
  121.             (LPar,(##(bc,40,d,a))),
  122.             (RPar,(##(bc,41,d,a))),
  123.             (Comma,((,))),
  124.             (Tab,((    ))),
  125.             (Escape,(##(bc,27,d,a))),
  126.             (Del,(##(bc,127,d,a))),
  127.             (#(==,##(nc,##(temp)),1,(##(temp)),(#(bl))))
  128.         )
  129.     ))
  130. ))[*]
  131.  
  132.  
  133.  
  134.  
  135. This makes the mode line contain a % sign after the percentage,
  136. which is more like Gnu Emacs (and looks nicer).
  137.  
  138. Name:Fwhere
  139. [*]--#(g?,#(lv,nl),#(++,#(--,#(lv,bl),##(lv,tl)),1),(
  140.     #(==,#(lv,cl),1,Top,(
  141.         #(==,#(lv,cl),#(lv,nl),Bot,(#(lv,pb)%))
  142.     ))
  143. ),All)
  144. --[*]
  145.  
  146.  
  147.  
  148.  
  149. Added the comment strings ";" and "".
  150.  
  151. Name:Lset-lisp-local-keys
  152. [*]
  153. #(Flocal-bind-key,K.C-j,L:lisp-newline-and-indent)
  154. #(Flocal-bind-key,K.Tab,L:lisp-indent)
  155. #(Flocal-bind-key,K.C-i,L:lisp-indent)
  156. #(Flocal-bind-key,K.M-C-k,L:kill-sexp)
  157. #(Flocal-bind-key,K.M-C-w,L:mark-sexp)
  158. #(Flocal-bind-key,K.M-C-t,L:transpose-sexp)
  159. #(Flocal-bind-key,K.PF1,L:backward-sexp)
  160. #(Flocal-bind-key,K.PF2,L:forward-sexp)
  161. #(Flocal-bind-key,K.M-C-f,L:forward-sexp)
  162. #(Flocal-bind-key,K.M-C-b,L:backward-sexp)
  163. #(Flocal-bind-key,K.M-q,L:lisp-fill-paragraph)
  164. #(Flocal-bind-key,K.M-C-q,L:lisp-fill-paragraph)
  165. #(Flocal-bind-key,K.M-Left Arrow,L:backward-sexp)
  166. #(Flocal-bind-key,K.M-Right Arrow,L:forward-sexp)
  167. #(Flocal-bind-key,F-left-comment,;)
  168. #(Flocal-bind-key,F-right-comment,)
  169. [*]
  170.  
  171. Scroll-left didn't work if you were within #(lv,rc) - 2 of the left
  172. margin.
  173.  
  174.  
  175. Name:F:scroll-left
  176. Scroll selected window display ARG columns left.
  177. Default for ARG is window width minus 2.
  178. [*]    
  179. #(sv,lc,
  180.     #(Fmax,1,
  181.         ##(--,##(lv,lc),
  182.             #(==,arg1,,##(--,#(lv,rc),2),arg1)
  183.         )
  184.     )
  185. )[*]
  186.  
  187. M-< (beginning-of-buffer) didn't move the cursor to the left margin
  188. if it was already on the target line.
  189.  
  190. Name:F:beginning-of-buffer
  191. Use arg1 to move a given number of tenths through the buffer.
  192. [*]    
  193. #(F:set-mark-command)
  194. #(sv,cl,#(//,#(**,#(lv,nl),arg1),10))
  195. #(sp,^)
  196. [*]
  197.  
  198.  
  199.