[Emacs-diffs] emacs/lisp help-fns.el

[Juri Linkov]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Juri Linkov <jurta>     09/07/19 16:56:05

Modified files:
        lisp           : help-fns.el 

Log message:
        (describe-variable): Add information about file-local and dir-local 
variables.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/help-fns.el?cvsroot=emacs&r1=1.133&r2=1.134

Patches:
Index: help-fns.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/help-fns.el,v
retrieving revision 1.133
retrieving revision 1.134
diff -u -b -r1.133 -r1.134
--- help-fns.el 28 Jun 2009 05:06:59 -0000      1.133
+++ help-fns.el 19 Jul 2009 16:56:05 -0000      1.134
@@ -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 ")