回答:
私の頭の上の最も近いコマンドはM-z "、ポイントから次の「」文字の出現までをすべて削除します。
またC-M-k、別名「killbalanced expression」もあります。これは、「balanced expression」の現在のモード定義と現在ポイントの下にある文字に基づいて、完全に括弧で囲まれたステートメントや二重引用符付き文字列などを削除します（つまり、カーソルがオープニング '"'または '（'など）にあります。
ジャスティンの提案と同様に、CM-SPACEは「mark-sexp」を提供し、バランス記号、引用などを選択します。その後、Cwまたはそれを無効にするものを選択できます。削除する前に削除しようとしているものを確認したい場合は...
はい！EmacsのVIM ci "コマンドに相当するものは... ci" :-)
http://www.emacswiki.org/emacs-de/Vimpulse
この質問につまずいた。ここに私のために働いたカスタムソリューションがあります：
(defun seek-backward-to-char (chr)
"Seek backwards to a character"
(interactive "cSeek back to char: ")
(while (not (= (char-after) chr))
(forward-char -1)))
(defun delete-between-pair (char)
"Delete in between the given pair"
(interactive "cDelete between char: ")
(seek-backward-to-char char)
(forward-char 1)
(zap-to-char 1 char)
(insert char)
(forward-char -1))
次に、delete-between-pairを任意のキーにバインドします。私にとっては、Cz iにバインドされています。
VIMのci機能については知らないのではないかと心配していますが、Emacsの正規表現の置き換えを見たことがありますか？私は正確なセマンティクスやそれを比較して使用するのがどれほど簡単かについて話すことはできませんが、それは私があなたが望むと思うものに使用するものです。
Magnars（EmacsRocksサイトの著者）は、まさにあなたが求めていることをするためにこのプラグインを書きました。
https://github.com/magnars/change-inner.el
明らかに、悪モードも使用できます。
これは、一致する文字のペア内（または含む）のすべてを削除する私のバージョンです。文字のペアは、一致する開始/終了文字がわかるようにリストで定義されます。変更の場合は「Cc i」に、変更の場合は「Cc a」にマッピングしました。
また、後で貼り付けるために、削除された文字をクリップボードにコピーします。
; Re-create ci" ca"...
(defun seek-backward-to-char (chr)
"Seek backwards to a character"
(interactive "cSeek back to char: ")
(while (not (= (char-after) chr))
(forward-char -1)))
(setq char-pairs
'(( ?\" . ?\" )
( ?\' . ?\' )
( ?\( . ?\) )
( ?\[ . ?\] )
( ?\{ . ?\} )
( ?< . ?> )))
(defun get-char-pair (chr)
(let ((result ()))
(dolist (x char-pairs)
(setq start (car x))
(setq end (cdr x))
(when (or (= chr start) (= chr end))
(setq result x)))
result))
(defun get-start-char (chr)
(car (get-char-pair chr)))
(defun get-end-char (chr)
(cdr (get-char-pair chr)))
(defun seek-to-matching-char (start end count)
(while (> count 0)
(if (= (following-char) end)
(setq count (- count 1))
(if (= (following-char) start)
(setq count (+ count 1))))
(forward-char 1)))
(defun seek-backward-to-matching-char (start end count)
(if (= (following-char) end)
(forward-char -1))
(while (> count 0)
(if (= (following-char) start)
(setq count (- count 1))
(if (= (following-char) end)
(setq count (+ count 1))))
(if (> count 0)
(forward-char -1))))
(defun delete-between-pair (char)
"Delete in between the given pair"
(interactive "cDelete between char: ")
(seek-backward-to-matching-char (get-start-char char) (get-end-char char) 1)
(forward-char 1)
(setq mark (point))
(seek-to-matching-char (get-start-char char) (get-end-char char) 1)
(forward-char -1)
(kill-region mark (point)))
(defun delete-all-pair (char)
"Delete in between the given pair and the characters"
(interactive "cDelete all char: ")
(seek-backward-to-matching-char (get-start-char char) (get-end-char char) 1)
(setq mark (point))
(forward-char 1)
(seek-to-matching-char (get-start-char char) (get-end-char char) 1)
(kill-region mark (point)))
(global-set-key (kbd "C-c i") 'delete-between-pair)
(global-set-key (kbd "C-c a") 'delete-all-pair)
これは私がVimで見逃していたことであり、zap-to-charうまくいかなかったようです。
「ci」と「ca」を再作成する私の謙虚な試みは次のとおりです。
(defun change-outer (str)
(interactive "sChange outer: ")
(condition-case nil
(search-backward str (line-beginning-position))
(error (search-forward str (line-end-position))
(forward-char -1)))
(kill-sexp)
)
(defun change-inner (str)
(interactive "sChange inner: ")
(condition-case nil
(search-backward str (line-beginning-position))
(error (search-forward str (line-end-position))
(forward-char -1)))
(push-mark)
(forward-sexp)
(forward-char -1)
(exchange-point-and-mark)
(forward-char 1)
(kill-region (point) (mark))
)
search-forward / search-backwardの3番目の（オプションの）パラメーターは、検索が失敗した場合の処理を示すためのものであるため、通常、条件ケースは必要ありません。しかし、何らかの理由で、最初の検索の3番目のパラメーターとして2番目の検索を配置すると、奇妙な動作が発生します。
私はここで解決策を試しましたが、それぞれが何らかの方法で望んでいることがわかったので、私はこれを思いつきました。開始または終了の区切り文字を受け入れ、組み込みのEmacs関数を使用して、区切り文字の変換テーブルが不要になるようにします。
(defun change-inner (prefix character)
"Kill region inside delimiters, using either beginning or
ending delimiter. With prefix arg, kill including delimiters."
(interactive "p\nc")
(let ((initial-point (point))
(start)
(end)
(move-point-by (if (> prefix 1) 0 1)))
(condition-case nil
(progn
;; Search forward for given char
(search-forward (char-to-string character))
(setq end (- (point) move-point-by))
(condition-case nil
(backward-sexp)
(error (backward-list)))
(setq start (+ (point) move-point-by))
(kill-region start end)
(or prefix (forward-char)))
(error (progn
;; Reset and search backward for given char
(goto-char initial-point)
(search-backward (char-to-string character))
(setq start (+ (point) move-point-by))
(condition-case nil
(forward-list)
(error (forward-sexp))))
(setq end (- (point) move-point-by))
(kill-region start end)
(or prefix (backward-char))))))
(global-set-key (kbd "M-i") 'change-inner)
(defun change-outer ()
(interactive)
(let ((current-prefix-arg '(4)))
(call-interactively 'change-inner)))
(global-set-key (kbd "M-o") 'change-outer)