[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 33667e0 1/2: Move project--value-in-dir to a different section
From: |
Dmitry Gutov |
Subject: |
master 33667e0 1/2: Move project--value-in-dir to a different section |
Date: |
Sun, 26 Jul 2020 20:05:24 -0400 (EDT) |
branch: master
commit 33667e02e6fa23a2933fe0a7de488db7015d896e
Author: Dmitry Gutov <dgutov@yandex.ru>
Commit: Dmitry Gutov <dgutov@yandex.ru>
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 c0cb691..27974b2 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")