While I appreciate that it is better to try not too hard here, I run into #.foo not completing often enough.
This:
(defun slime-beginning-of-symbol () "Move to the beginning of the CL-style symbol at point." (while (re-search-backward "\(\sw\|\s_\|\s\.\|\s\\|[#@|]\)\=" nil t)) (re-search-forward "\=#[<|]" nil t) (when (and (looking-at "@") (eq (char-before) ?,)) (forward-char)) (when (and (looking-at "#\.")) (forward-char 2)))
addresses the issue. Normally I would just commit this, but given the recent work on slime-symbol I was not sure if could be controversial?
Cheers,
-- Nikodemus
Helmut Eller heller@common-lisp.net writes:
- Nikodemus Siivola [2009-06-26 23:19+0200] writes:
Normally I would just commit this, but given therecent work on slime-symbol I was not sure if could be controversial?
Looks fine to me. I committed, it along with some tests.
I'd prefer an implementation involving query-replace-regexp and _<THE-SYMBOL-NAME_> because it involves the query-replace machinery and its goodies.
-T.
* Tobias C. Rittweiler [2009-06-27 17:15+0200] writes:
Helmut Eller heller@common-lisp.net writes:
- Nikodemus Siivola [2009-06-26 23:19+0200] writes:
Normally I would just commit this, but given therecent work on slime-symbol I was not sure if could be controversial?
Looks fine to me. I committed, it along with some tests.
I'd prefer an implementation involving query-replace-regexp and _<THE-SYMBOL-NAME_> because it involves the query-replace machinery and its goodies.
Are we talking about slime-symbol-at-point or Nikodemus' symbol rename code? If the latter then I agree: query-replace-regexp seems worth using. If the former then I don't understand what you mean.
Helmut
Helmut Eller heller@common-lisp.net writes:
Are we talking about slime-symbol-at-point or Nikodemus' symbol rename code? If the latter then I agree: query-replace-regexp seems worth using. If the former then I don't understand what you mean.
Err, yes I meant the latter.
-T.
-
Helmut Eller -
Nikodemus Siivola -
Tobias C. Rittweiler