浏览代码

Exit when no symbol at current point

master
10sr 7 年前
父节点
当前提交
55a8c6ed25
签署人:: 10sr GPG 密钥 ID: 7BEC428194130EB2
共有 1 个文件被更改,包括 3 次插入2 次删除
  1. +3
    -2
      emacs.el

+ 3
- 2
emacs.el 查看文件

@@ -1496,7 +1496,8 @@ and search from projectile root (if projectile is available)."
(command-args (command-args
(if cmd (if cmd
(concat cmd (concat cmd
(thing-at-point 'symbol t))
(or (thing-at-point 'symbol t)
(error "No symbol at point")))
(error "My-Rgrep: Command for rgrep not found")))) (error "My-Rgrep: Command for rgrep not found"))))
(if (safe-require-or-eval 'projectile) (if (safe-require-or-eval 'projectile)
(projectile-with-default-dir (projectile-project-root) (projectile-with-default-dir (projectile-project-root)
@@ -1626,7 +1627,7 @@ This mode is a simplified version of `adoc-mode'."
`(,@result ,(buffer-substring-no-properties start `(,@result ,(buffer-substring-no-properties start
(point)))))) (point))))))
result))) result)))
;; (apply 'concat (car (my-file-head "./emacs.el"))
;; (apply 'concat (my-file-head "./emacs.el" 10))


(set-variable 'dumb-jump-prefer-searcher 'rg) (set-variable 'dumb-jump-prefer-searcher 'rg)




正在加载...
取消
保存