current-string-to で日本語を

~/.emacs.el

(require 'current-string-to)
(setq current-string-to-delimiter-regexp current-string-to-delimiter-regexp-jp)
(defun kotonoko ()
        "Open kotonoko"
        (interactive)
        (shell-command "open -g -a /Applications/kotonoko.app")
        (current-string-to-copy)
        (shell-command "sleep 0.3")
        (shell-command "open -a /Applications/kotonoko.app"))
(global-set-key [?\s-k] 'kotonoko)

と書いておくと、[command]+[k] でカーソル位置の単語を調べることが出来ますが、残念ながら日本語に対しては機能しません、ということを Emacs.app の設定例に書きましたが、current-string-to.el の以下の部分を変更すると、改善するようです。

;; 修正前
(defvar current-string-to-delimiter-regexp-jp
	"[\][\t\(\)\"\|\\ /`',;:<>{}「」= -;‖|‘“-】<>≪≫─-╂]"
        "A regular expressions to search ASCII and Japanese delimiters.")
;; 修正後
(defvar current-string-to-delimiter-regexp-jp
	"[\][\t\(\)\"\|\\ /`',;:<>{}「」= ;‖|‘“-】<>≪≫─-╂]"
        "A regular expressions to search ASCII and Japanese delimiters.")

中程にあるハイフン(マイナス)「-」を削除しただけです。ついでに、ひらがなとカタカナを全て区切り文字に入れておくと、漢字のみを取得でき、使い勝手がよくなるかもしれません。

;; 修正後
(defvar current-string-to-delimiter-regexp-jp
	"[\][\t\(\)\"\|\\ /`',;:<>{}「」= ;‖|‘“-】<>≪≫─-╂ぁあぃいぅうぇえぉおかがきぎくぐけげこごさざしじすずせぜそぞただちぢっつづてでとどなにぬねのはばぱひびぴふぶぷへべぺほぼぽまみむめもゃやゅゆょよらりるれろゎわゐゑをんァアィイゥウェエォオカガキギクグケゲコゴサザシジスズセゼソゾタダチヂッツヅテデトドナニヌネノハバパヒビピフブプヘベペホボポマミムメモャヤュユョヨラリルレロヮワヰヱヲンヴヵヶヷヸヹヺ・ー、。?]"
        "A regular expressions to search ASCII and Japanese delimiters.")