Mercurial > emacs
comparison lisp/simple.el @ 5944:022fbe742832
(current-word): Remove (interactive).
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Mon, 14 Feb 1994 19:51:22 +0000 |
| parents | a2b7fc4645d9 |
| children | 5a40bc311e2f |
comparison
equal
deleted
inserted
replaced
| 5943:35526ee8b790 | 5944:022fbe742832 |
|---|---|
| 1957 word-constituent characters. If not, but it immediately follows one, | 1957 word-constituent characters. If not, but it immediately follows one, |
| 1958 move back first. Otherwise, if point precedes a word constituent, | 1958 move back first. Otherwise, if point precedes a word constituent, |
| 1959 move forward first. Otherwise, move backwards until a word constituent | 1959 move forward first. Otherwise, move backwards until a word constituent |
| 1960 is found and get that word; if you reach a newline first, move forward | 1960 is found and get that word; if you reach a newline first, move forward |
| 1961 instead." | 1961 instead." |
| 1962 (interactive) | |
| 1963 (save-excursion | 1962 (save-excursion |
| 1964 (let ((oldpoint (point)) (start (point)) (end (point))) | 1963 (let ((oldpoint (point)) (start (point)) (end (point))) |
| 1965 (skip-syntax-backward "w_") (setq start (point)) | 1964 (skip-syntax-backward "w_") (setq start (point)) |
| 1966 (goto-char oldpoint) | 1965 (goto-char oldpoint) |
| 1967 (skip-syntax-forward "w_") (setq end (point)) | 1966 (skip-syntax-forward "w_") (setq end (point)) |