emacs下如何实现这样的删除功能?

nait

就是要删除从光标处到下一个x字符(x代表任意字符)之间的所有内容.
以前在哪看到过,忘了记下来,现在找不到了.

pluskid

1. (defun my-copy-to (to-char)
2.   (interactive "c")
3.   (save-excursion
4.     (kill-ring-save
5.      (point)
6.      (or (search-forward (string to-char) nil t)
7.          (point-max)))
8.     (message "copyed text from this point to char `%c'" to-char)))
9. (global-set-key (kbd "<f8>") 'my-copy-to)

复制代码

作为一个例子。按 F8 ，键入要 copy to 的 字符，就可以了。

nait

谢谢
但我要的是删除功能,我改了一下

1. (defun my-kill-to (to-char)
   
2.   (interactive "c")
   
3.   (save-excursion
   
4.     (kill-region
   
5.      (point)
   
6.      (or (search-forward (string to-char) nil t)
   
7.           (point-max)))
   
8.     (message "killed text from this point to char `%c'" to-char)))
   
9. (global-set-key (kbd "<f8>") 'my-kill-to)
   

复制代码

这样可以用了,但我不希望x也被删除,例如:现有字符串abcd,光标在a前,按f8d,abcd会被删掉,到我只想删除abc,把d留下,该怎么做?
不会elisp,搞了半天也没搞定

fog_proxy

(- (search-forward (string to-char) nil t) 1)

nait

呵呵,多谢多谢
这样就可以用了

sssslang

M-z
六个字……

nait

Post by sssslang
M-z
六个字……

不错不错

1. M-z runs the command zap-to-char
   
2.    which is an interactive compiled Lisp function in `/usr/local/share/emacs/23.0.0/lisp/simple.elc'.
   
3. It is bound to M-z.
   
4. (zap-to-char arg char)
   
5. 
   
6. Kill up to and [color="Magenta"]including[/color] arg'th occurrence of char.
   
7. Case is ignored if `case-fold-search' is non-nil in the current buffer.
   
8. Goes backward if arg is negative; error if char not found.

复制代码

可以exclude吗

herberteuler

不要神化自带的功能。

1. (defun zap-to-char (arg char)
   
2.   "Kill up to and including ARG'th occurrence of CHAR.
   
3. Case is ignored if `case-fold-search' is non-nil in the current buffer.
   
4. Goes backward if ARG is negative; error if CHAR not found."
   
5.   (interactive "p\ncZap to char: ")
   
6.   (if (char-table-p translation-table-for-input)
   
7.       (setq char (or (aref translation-table-for-input char) char)))
   
8.   (kill-region (point) (progn
   
9.                          (search-forward (char-to-string char) nil nil arg)
   
10. ;                         (goto-char (if (> arg 0) (1- (point)) (1+ (point))))
    
11.                          (point))))

复制代码