diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2009-08-02 23:09:00 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2009-08-02 23:09:00 +0000 |
| commit | b6ce92f1c49b105bd7d13acd817a793a807d1e21 (patch) | |
| tree | 807a09fe08d534071c7296f3f470407b44143885 /lisp/help-fns.el | |
| parent | 40d2791f9b21c3a9a1ed865c148e5042df57a084 (diff) | |
| download | emacs-b6ce92f1c49b105bd7d13acd817a793a807d1e21.tar.gz | |
* help-fns.el (describe-variable): Treat list return values from
dir-locals-find-file properly (Bug#4005).
Diffstat (limited to 'lisp/help-fns.el')
| -rw-r--r-- | lisp/help-fns.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 9546396fd87..7747c505ec9 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -719,7 +719,12 @@ it is displayed along with the global value." (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 "\""))) + (when file + (princ (concat "\n from the file \"" + (if (consp file) + (car file) + file) + "\""))) (princ ".\n")) (princ " This variable is a file local variable.\n"))) |