diff options
author | Dmitry Gutov <dgutov@yandex.ru> | 2020-07-27 03:04:09 +0300 |
---|---|---|
committer | Dmitry Gutov <dgutov@yandex.ru> | 2020-07-27 03:04:09 +0300 |
commit | 33667e02e6fa23a2933fe0a7de488db7015d896e (patch) | |
tree | 8d757a91e85fc44fd63d9b8aace35fa3f3f98fab | |
parent | 7551aff22cd81dbdf68fbd223f4a6ef7e842c2dd (diff) | |
download | emacs-33667e02e6fa23a2933fe0a7de488db7015d896e.tar.gz |
Move project--value-in-dir to a different section
* lisp/progmodes/project.el (project--value-in-dir):
Move closer to its uses.
-rw-r--r-- | lisp/progmodes/project.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el index c0cb691b368..27974b28f10 100644 --- a/lisp/progmodes/project.el +++ b/lisp/progmodes/project.el @@ -568,6 +568,13 @@ DIRS must contain directory names." ;; Sidestep the issue of expanded/abbreviated file names here. (cl-set-difference files dirs :test #'file-in-directory-p)) +(defun project--value-in-dir (var dir) + (with-temp-buffer + (setq default-directory dir) + (let ((enable-local-variables :all)) + (hack-dir-local-variables-non-file-buffer)) + (symbol-value var))) + ;;; Project commands @@ -660,13 +667,6 @@ The following commands are available: ;;;###autoload (define-key tab-prefix-map "p" #'project-other-tab-command) -(defun project--value-in-dir (var dir) - (with-temp-buffer - (setq default-directory dir) - (let ((enable-local-variables :all)) - (hack-dir-local-variables-non-file-buffer)) - (symbol-value var))) - (declare-function grep-read-files "grep") (declare-function xref--show-xrefs "xref") (declare-function xref--find-ignores-arguments "xref") |