summaryrefslogtreecommitdiff
path: root/lisp/cedet/semantic/symref/grep.el
diff options
context:
space:
mode:
authorDmitry Gutov <dgutov@yandex.ru>2021-06-07 04:52:30 +0300
committerDmitry Gutov <dgutov@yandex.ru>2021-06-07 04:52:30 +0300
commit45bdc37c8127142504f5f93bcb1327a635f6da1b (patch)
treea5a1f1b084f09f7d48a08da9bd8cfb1f3650b6af /lisp/cedet/semantic/symref/grep.el
parent6329e70460137e34abbc7590c5892623547f9b26 (diff)
downloademacs-45bdc37c8127142504f5f93bcb1327a635f6da1b.tar.gz
Support old BSD find and "root dir symlink" better
* lisp/progmodes/grep.el (grep-compute-defaults): Add '-H' to grep-find-template (bug#48471). * lisp/cedet/semantic/symref/grep.el (semantic-symref-perform-search): Pass the root directory name without the trailing slash. * lisp/progmodes/xref.el (xref-matches-in-directory): Ditto. * test/lisp/progmodes/xref-tests.el (xref--xref-file-name-display-is-abs) (xref--xref-file-name-display-is-relative-to-project-root): Make tests more strict again.
Diffstat (limited to 'lisp/cedet/semantic/symref/grep.el')
-rw-r--r--lisp/cedet/semantic/symref/grep.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/cedet/semantic/symref/grep.el b/lisp/cedet/semantic/symref/grep.el
index 46027f1f91e..180d779a780 100644
--- a/lisp/cedet/semantic/symref/grep.el
+++ b/lisp/cedet/semantic/symref/grep.el
@@ -168,7 +168,7 @@ This shell should support pipe redirect syntax."
(erase-buffer)
(setq default-directory rootdir)
(let ((cmd (semantic-symref-grep-use-template
- (file-name-as-directory (file-local-name rootdir))
+ (directory-file-name (file-local-name rootdir))
filepattern grepflags greppat)))
(process-file semantic-symref-grep-shell nil b nil
shell-command-switch cmd)))