home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / functions / curr-word.el < prev    next >
Encoding:
Text File  |  1990-07-22  |  1010 b   |  28 lines
  1. ;From ark1!uakari.primate.wisc.edu!zaphod.mps.ohio-state.edu!uwm.edu!ux1.cso.uiuc.edu!ux1.cso.uiuc.edu!m.cs.uiuc.edu!reingold Fri May 18 20:05:27 EDT 1990
  2. ;Article 1961 of comp.emacs:
  3. ;Path: ark1!uakari.primate.wisc.edu!zaphod.mps.ohio-state.edu!uwm.edu!ux1.cso.uiuc.edu!ux1.cso.uiuc.edu!m.cs.uiuc.edu!reingold
  4. ;>From: reingold@m.cs.uiuc.edu
  5. ;Newsgroups: comp.emacs
  6. ;Subject: Webster.elFix
  7. ;Message-ID: <4300072@m.cs.uiuc.edu>
  8. ;Date: 17 May 90 18:09:00 GMT
  9. ;Lines: 13
  10. ;Nf-ID: #N:m.cs.uiuc.edu:4300072:000:435
  11. ;Nf-From: m.cs.uiuc.edu!reingold    May 17 13:09:00 1990
  12. ;
  13. ;
  14. ;The function webster-current-word in webster.el is slightly brain damaged:
  15. ;when on the first character of a word, it returns the PREVIOUS word!  It's
  16. ;also poorly written.  Here is a correct version.
  17.  
  18. (defun webster-current-word ()
  19.    "Word cursor is over, as a string."
  20.    (save-excursion
  21.       (let (beg)
  22.         (re-search-backward "\\<")
  23.         (setq beg (point))
  24.         (forward-word 1)
  25.         (buffer-substring beg (point)))))
  26.  
  27.  
  28.