From a71ca4d3400c9bb33e747fbf2573e99df4c0193e Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Sat, 15 Apr 2017 01:28:38 -0400 Subject: [PATCH] feature/evil: abbreviate :P filename modifier --- modules/feature/evil/autoload/evil.el | 2 +- test/modules/feature/test-evil.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/modules/feature/evil/autoload/evil.el b/modules/feature/evil/autoload/evil.el index 8eada6638..065654e1d 100644 --- a/modules/feature/evil/autoload/evil.el +++ b/modules/feature/evil/autoload/evil.el @@ -87,7 +87,7 @@ flags. See http://vimdoc.sourceforge.net/htmldoc/cmdline.html#filename-modifiers (unless global 1))))) ("P" (let ((default-directory (file-name-directory (expand-file-name path)))) - (doom-project-root))) + (abbreviate-file-name (doom-project-root)))) (_ path)) ""))) ;; strip trailing slash, if applicable diff --git a/test/modules/feature/test-evil.el b/test/modules/feature/test-evil.el index bb8809d0b..b4ca26898 100644 --- a/test/modules/feature/test-evil.el +++ b/test/modules/feature/test-evil.el @@ -19,7 +19,7 @@ (should (equal (do-it "%:~") "~/.emacs.d/test/modules/feature/test-evil.el")) (should (equal (do-it "%:s?e?x?") "fxature/test-evil.el")) (should (equal (do-it "%:gs?e?x?") "fxaturx/txst-xvil.xl")) - (should (equal (do-it "%:P/") (doom-project-root))) + (should (equal (do-it "%:P/") (abbreviate-file-name (doom-project-root)))) (should (equal (file-truename (do-it "%:p")) (file-truename buffer-file-name)))))