[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp help-fns.el
From: |
Juri Linkov |
Subject: |
[Emacs-diffs] emacs/lisp help-fns.el |
Date: |
Sun, 19 Jul 2009 16:56:05 +0000 |
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 ")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp help-fns.el,
Juri Linkov <=