# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1248022565 0
# Node ID 4af91568dcc6e79386c3d0d492044f8ed60411d7
# Parent  bffadf81bdd52c2a749f8a154f74f00f35902f6f
(describe-variable): Add information about file-local and dir-local variables.

diff -r bffadf81bdd5 -r 4af91568dcc6 lisp/help-fns.el
--- a/lisp/help-fns.el	Sun Jul 19 16:55:16 2009 +0000
+++ b/lisp/help-fns.el	Sun Jul 19 16:56:05 2009 +0000
@@ -710,6 +710,18 @@
 			     (use (format ";\n  use `%s' instead." (car obsolete)))
 			     (t ".")))
                 (terpri))
+
+	      (when (member (cons variable val) file-local-variables-alist)
+		(setq extra-line t)
+		(if (member (cons variable val) dir-local-variables-alist)
+		    (let ((file (and (buffer-file-name)
+				     (not (file-remote-p (buffer-file-name)))
+				     (dir-locals-find-file (buffer-file-name)))))
+		      (princ "  This variable is a directory local variable")
+		      (if file (princ (concat "\n  from the file \"" file "\"")))
+		      (princ ".\n"))
+		  (princ "  This variable is a file local variable.\n")))
+
 	      (when safe-var
                 (setq extra-line t)
 		(princ "  This variable is safe as a file local variable ")