18762


`narrow-to-region`を使ってregionを単語の先頭から現在のカーソルの位置まで縮めたいんですが、やり方がわかりませんでした。

一旦変数に現在地を保存してから設定すれば設定すれば narrow することはできますが、カーソル位置が変わってしまい、それを直すために `save-
excursion`を使うと、たったこれだけの動作にコードが非常に長くなってしまいます。

[code]

      (let* ((current-point (point)))
        (narrow-to-region (progn (backward-word) (point)) current-point))
    
[/code]

`backward-word-point`のように単に単語先頭の場所を数値で返す関数はないのでしょうか？


CC BY-SA 3.0
2015-11-12T21:12:05.983
18760
2015-11-12T23:44:33.653
3271
question
elisp
現在のカーソル位置から単語の先頭までをregionに収める方法


`thingatpt.el` に `bounds-of-thing-at-point` という関数があって(`autoloaded
function`)、それを使うと以下の様に書けます。

[code]

    (narrow-to-region (car (bounds-of-thing-at-point 'word)) (point))
    
[/code]

# これも長いですけどね…


CC BY-SA 3.0
2015-11-12T23:44:33.653
18762
2015-11-12T23:44:33.653
18760
answer