home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / unix / volume11 / test.el / part02 / hooks.el < prev    next >
Lisp/Scheme  |  1987-09-08  |  452b  |  20 lines
  1. ;;; hooks.el -- A number of example hooks
  2. ;;;             for testing gnutest
  3.  
  4. (setq tst-equ-point-hook 'ignore-point)
  5. (setq tst-equ-contents-hook 'less-white)
  6.  
  7. ; return t if point2 > point1
  8. (defun ignore-point ()
  9.   (setq tst-equ-result (> tst-equ-point2 tst-equ-point1))
  10. )
  11.  
  12.  
  13. ; if contents fails then compare again but less whitespace
  14. (defun     less-white ()
  15.   (setq tst-equ-result 
  16.     (string-equal-less-white tst-equ-contents1 tst-equ-contents2))
  17. )
  18.  
  19.  
  20.