home *** CD-ROM | disk | FTP | other *** search
/ Mega CD-ROM 1 / megacd_rom_1.zip / megacd_rom_1 / FREEMACS / CONTRIB.ZIP / MATPAREN.MIN < prev    next >
Text File  |  1990-03-09  |  1KB  |  44 lines
  1. Show the parenthesis that match the one under the cursor in blue.
  2. Kind of cute.  If you position the cursor to a parenthesis character,
  3. and wait one second, then the matching parenthesis will be found and
  4. colored aqua.  If the cursor is off the screen, then the matching line
  5. is displayed at the top or bottom of the screen, as appropriate.  This
  6. might be useful if it were integrated better into the rest of
  7. Freemacs.
  8.  
  9. #(F:vip-match-paren) would have to be replaced by code that returns a value
  10. on no paren, rather than displaying a message on no paren.
  11.  
  12. abcd--[#(F:test)]--efgh
  13.  
  14.  
  15. Name:F:test
  16. [*]#(k)
  17. #(ds,temp,#(it,100))
  18. #(==,##(temp),Timeout,(
  19.     #(pm,1)
  20.     #(F:vip-match-paren)
  21.     #(sv,fc,3)
  22.     #(g?,##(lv,rs),##(lv,bl),(
  23.         #(xy,0,##(lv,bl))
  24.         #(ow,##(rm,^)##(rm,$)())
  25.     ),(
  26.         #(g?,##(lv,tl),##(lv,rs),(
  27.             #(xy,0,#(--,##(lv,tl),1))
  28.             #(ow,##(rm,^)##(rm,$)())
  29.         ),(
  30.             #(xy,##(--,##(lv,cs),1),##(--,##(lv,rs),1))
  31.             #(ow,##(rm,>))
  32.         ))
  33.     ))
  34.     #(sp,0)
  35.     #(xy,##(--,##(lv,cs),1),##(--,##(lv,rs),1))
  36.     #(sv,fc,#(F-fore-color))
  37.     #(pm)
  38.     #(d,#(g))
  39. ),(
  40.     #(d,##(temp))
  41. ))
  42. #(SELF)
  43. [*]
  44.