/[emacs]/emacs/lisp/simple.el
ViewVC logotype

Diff of /emacs/lisp/simple.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.614 by rms, Mon Jul 7 21:00:26 2003 UTC revision 1.615 by jpw, Fri Jul 18 22:43:52 2003 UTC
# Line 3159  The function, belying its name, normally Line 3159  The function, belying its name, normally
3159  If optional arg REALLY-WORD is non-nil, it finds just a word."  If optional arg REALLY-WORD is non-nil, it finds just a word."
3160    (save-excursion    (save-excursion
3161      (let* ((oldpoint (point)) (start (point)) (end (point))      (let* ((oldpoint (point)) (start (point)) (end (point))
3162             (syntaxes (if really-word "w_" "w"))             (syntaxes (if really-word "w" "w_"))
3163             (not-syntaxes (concat "^" syntaxes)))             (not-syntaxes (concat "^" syntaxes)))
3164        (skip-syntax-backward syntaxes) (setq start (point))        (skip-syntax-backward syntaxes) (setq start (point))
3165        (goto-char oldpoint)        (goto-char oldpoint)

Legend:
Removed from v.1.614  
changed lines
  Added in v.1.615

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26