Emacs搜索确切的单词

时间:2015-05-19 14:09:18

标签: emacs xemacs

我大部分时间都在verilog工作,而我最喜欢的编辑是emacs。

我喜欢vi(vim)中的一个功能,但我不知道如何在emacs中做到这一点

我想做一个精确的单词搜索,例如 - 让我说我有这样的文字:

1. wire                   axi_bvalid = bvalid;
2. wire                   axi_bready; // assigned later
3. assign                 axi_cross_fifo_pop = axi_bvalid & axi_bready 
4. wire                   axi = 1'b1;

搜索axi时,我想仅在第4行获得匹配。  今天,Ctrl-S搜索将匹配axi的每个实例。

在vim中,这样做的方法是在单词或/ \上按*。

emacs中有类似内容吗?

感谢分配,Jony

3 个答案:

答案 0 :(得分:6)

我认为您正在搜索Word Search功能,已使用M-s w激活。

您可以通过两种方式使用它:只需发出*,然后输入要搜索的字词即可。 或者为了在vim中获得与C-s C-w类似的内容,您可以使用isearch开始搜索,M-s w(这会搜索光标下的单词),然后exim -bp|grep frozen|awk '{print $3}' |xargs exim -Mrm 将搜索切换为整体字模式。

答案 1 :(得分:5)

需要基于正则表达式的搜索,例如

M-x isearch-forward-regexp RET \_<axi\_> RET

请参阅Emacs Lisp信息文件, 节点34.3.1.3:正则表达式中的反斜杠构造

作为命令运行:

(defun my-re-search-forward (&optional word)
  "Searches for the last copied solitary WORD, unless WORD is given. "
  (interactive)
  (let ((word (or word (car kill-ring))))
    (re-search-forward (concat "\\_<" word "\\_>") nil t 1)
    (set-mark (point))
    (goto-char (match-beginning 0))
    (exchange-point-and-mark)))

将其绑定到 C-c:,例如:

(global-set-key [(control c) (\:)] 'my-re-search-forward)

答案 2 :(得分:2)

我没有在Emacs中找到与vim的 * 相同的内置函数,但我确实设法编写了这两个可能适合你的命令:

(defun my-isearch-forward-word-at-point ()
  "Search for word at point."
  (interactive)
  (let ((word (thing-at-point 'word t))
        (bounds (bounds-of-thing-at-point 'word)))
    (if word
        (progn
          (isearch-mode t nil nil nil t)
          (when (< (car bounds) (point))
            (goto-char (car bounds)))
          (isearch-yank-string word))
      (user-error "No word at point"))))

(defun my-isearch-forward-symbol-at-point ()
  "Search for symbol at point."
  (interactive)
  (let ((symbol (thing-at-point 'symbol t))
        (bounds (bounds-of-thing-at-point 'symbol)))
    (if symbol
        (progn
          (isearch-mode t nil nil nil 'isearch-symbol-regexp)
          (when (< (car bounds) (point))
            (goto-char (car bounds)))
          (isearch-yank-string symbol))
      (user-error "No symbol at point"))))

(global-set-key (kbd "M-s ,") 'my-isearch-forward-word-at-point)
(global-set-key (kbd "M-s .") 'my-isearch-forward-symbol-at-point)

如您所见,我将这些命令绑定到 M-s, M-s。。 根据您的Emacs版本,您可以使用内置命令isearch-forward-symbol-at-point(默认绑定到 M-s。)。