home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume8 / sp / part02 / sp.ml < prev   
Encoding:
Text File  |  1987-02-19  |  1.6 KB  |  70 lines
  1. ; 
  2. ; Written by Donald Acton and Barry Brachman with help from Marc Majka
  3. ;  March 11/85
  4. ;
  5. ; Dept. of Computer Science
  6. ; University of British Columbia
  7. ; 
  8.  
  9. (defun 
  10.     (sp spword
  11.       (setq spword (get-tty-string "Word: " ))
  12.       (do-sp spword)
  13.     )
  14. )
  15.  
  16. (defun                        ; bjb
  17.     (sp-from-buffer spword
  18.     (setq spword (get-next-word))
  19.     (message (concat "Word: " spword))
  20.     (sit-for 0)
  21.     (do-sp spword)
  22.     )
  23. )
  24.  
  25. (defun
  26.     (do-sp curr found tmp
  27.       (setq curr (current-buffer-name))
  28.       (pop-to-buffer "sp")
  29.       (setq needs-checkpointing 0)
  30.       (erase-buffer)
  31.       (set-mark)
  32.       (filter-region (concat "sp " spword))
  33.       (beginning-of-file)
  34.       (setq found " *not found*")
  35.       (setq tmp case-fold-search)
  36.       (setq case-fold-search 1)
  37.       (error-occurred (re-search-forward (concat "\. " spword "$"))
  38.                        (beginning-of-line)
  39.                        (line-to-top-of-window)
  40.                        (setq found " *found*"))
  41.       (setq case-fold-search tmp)
  42.       (setq mode-line-format " %b - %m      %p")
  43.       (setq mode-string (concat spword found))
  44.       (pop-to-buffer curr)
  45.       (novalue)))
  46.  
  47. ;
  48. ; Return the word the cursor is pointing at
  49. ; or the word immediately to the left of the
  50. ; cursor if it is between words
  51. ;
  52. ; April 15/85 - bjb
  53. ;
  54. (defun
  55.     (get-next-word original-dot rb spword
  56.     (save-excursion
  57.         (setq original-dot (dot))
  58.         (backward-word) (forward-word) (setq rb (dot))
  59.         (if (> original-dot rb)
  60.         (progn (forward-word) (backward-word))
  61.         (backward-word))
  62.         (set-mark)
  63.         (forward-word)
  64.         (setq spword (region-to-string))
  65.     )
  66.     spword
  67.    )
  68. ) 
  69.  
  70.