- 主题:这个函数咋不起作用？
我想吧region中的数字n变成[^n]
;; (defun r1 ()
;; (interactive)
;; (if (region-active-p)
;; (replace-regexp "\([0-9][0-9]*\)" "[^\1]"
;; nil (region-beginning) (region-end))
;; (replace-regexp "\([0-9][0-9]*\)" "[^\1]")
;; ))
咋是0替换？
求指教。
--
FROM 42.234.95.*
搞定了
(defun r1 ()
(interactive)
(if (region-active-p)
(replace-regexp "\\([0-9][0-9]*\\)" "[^\\1]"
nil (region-beginning) (region-end))
(replace-regexp "\\([0-9][0-9]*\\)" "[^\\1]")
))
不知道为啥需要多余的\\
不过替换完之后，光标为什么跑到最后一个替换那了？
--
FROM 42.234.95.*
"\\"在字符串里第一个字符是转义，实际的字符就是'\'
光标问题用save-excursion
【 在 txgx (纸上谈医) 的大作中提到: 】
: 搞定了
: (defun r1 ()
: (interactive)
: ...................
--
FROM 103.219.185.*