Mercurial > emacs
changeset 2416:cd01176e9dc5
*** empty log message ***
| author | Eric S. Raymond <esr@snark.thyrsus.com> |
|---|---|
| date | Mon, 29 Mar 1993 04:58:31 +0000 |
| parents | 8c4f5a05b65f |
| children | 8c07933beed9 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 28 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Mon Mar 29 04:35:00 1993 +0000 +++ b/lisp/simple.el Mon Mar 29 04:58:31 1993 +0000 @@ -1675,6 +1675,34 @@ With argument, do this that many times." (interactive "p") (kill-word (- arg))) + +(defun current-word () + "Return the word point is on as a string, if it's between two +word-constituent characters. If not, but it immediately follows one, +move back first. Otherwise, if point precedes a word constituent, +move forward first. Otherwise, move backwards until a word constituent +is found and get that word; if you reach a newline first, move forward +instead." + (interactive) + (save-excursion + (let ((oldpoint (point)) (start (point)) (end (point))) + (skip-syntax-backward "w_") (setq start (point)) + (goto-char oldpoint) + (skip-syntax-forward "w_") (setq end (point)) + (if (and (eq start oldpoint) (eq end oldpoint)) + (progn + (skip-syntax-backward "^w_" + (save-excursion (beginning-of-line) (point))) + (if (eq (preceding-char) ?\n) + (progn + (skip-syntax-forward "^w_") + (setq start (point)) + (skip-syntax-forward "w_") + (setq end (point))) + (setq end (point)) + (skip-syntax-backward "w_") + (setq start (point))))) + (buffer-substring start end)))) (defconst fill-prefix nil "*String for filling to insert at front of new line, or nil for none.