Доброго времени суток! Помогите плиз команду поправить. Она поинмает только латиницу в идентификаторах лиспа, а мне нужна кириллица. Вот исходники:
(defun slime-beginning-of-symbol ()
"Move to the beginning of the CL-style symbol at point."
(while (re-search-backward "\\(\\sw\\|\\s_\\|\\s\\.\\|\\s\\\\|[#@|]\\)\\="
(when (> (point) 2000) (- (point) 2000))
t))
(re-search-forward "\\=#[-+.<|]" nil t)
(when (and (looking-at "@") (eq (char-before) ?\,))
(forward-char)))
(defun slime-end-of-symbol ()
"Move to the end of the CL-style symbol at point."
(re-search-forward "\\=\\(\\sw\\|\\s_\\|\\s\\.\\|#:\\|[@|]\\)*"
))
