From 33667e02e6fa23a2933fe0a7de488db7015d896e Mon Sep 17 00:00:00 2001 From: Dmitry Gutov Date: Mon, 27 Jul 2020 03:04:09 +0300 Subject: [PATCH] Move project--value-in-dir to a different section * lisp/progmodes/project.el (project--value-in-dir): Move closer to its uses. --- lisp/progmodes/project.el | 14 +++++++------- 1 file 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") -- 2.39.2