यहाँ यह करने का एक अलग तरीका है।
मैं एक फ़ंक्शन को परिभाषित करता हूं जो वर्तमान निर्देशिका पदानुक्रम में सभी निर्देशिकाओं की सूची तैयार करता है।
(defun file-name-directory-nesting-helper (name previous-name accumulator)
(if (string= name previous-name)
accumulator ; stop when names stop changing (at the top)
(file-name-directory-nesting-helper
(directory-file-name (file-name-directory name))
name
(cons name accumulator))))
(defun file-name-directory-nesting (name)
(file-name-directory-nesting-helper (expand-file-name name) "" ()))
एक उदाहरण क्रम में है:
(file-name-directory-nesting "/foo/bar/baz/quux/foo.el")
;; => ("/" "/foo" "/foo/bar" "/foo/bar/baz" "/foo/bar/baz/quux" "/foo/bar/baz/quux/foo.el")
अब मैं hack-dir-local-variables
इसे "दिखावा" बनाने के लिए सलाह जोड़ सकता हूं कि हम पेड़ के बहुत ऊपर एक फ़ाइल पर जा रहे हैं, निर्देशिका-स्थानीय सेटिंग्स लागू करें, फिर एक स्तर नीचे ले जाएं, फिर से सेटिंग्स लागू करें, और इसी तरह।
(defun hack-dir-local-variables-chained-advice (orig)
"Apply dir-local settings from the whole directory hierarchy,
from the top down."
(let ((original-buffer-file-name (buffer-file-name))
(nesting (file-name-directory-nesting (or (buffer-file-name)
default-directory))))
(unwind-protect
(dolist (name nesting)
;; make it look like we're in a directory higher up in the
;; hierarchy; note that the file we're "visiting" does not
;; have to exist
(setq buffer-file-name (expand-file-name "ignored" name))
(funcall orig))
;; cleanup
(setq buffer-file-name original-buffer-file-name))))
(advice-add 'hack-dir-local-variables :around
#'hack-dir-local-variables-chained-advice)
.dir-locals
? ।