From: Juri Linkov <juri@jurta.org>
Date: Tue, 25 Jun 2013 20:48:54 +0000 (+0300)
Subject: * lisp/files-x.el (read-file-local-variable-value): Add `default'.
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1992^2~35
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e080a9d7307025e73c9682c201e60206f7b4e808;p=emacs.git

* lisp/files-x.el (read-file-local-variable-value): Add `default'.

Fixes: debbugs:14710
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9dd5772b327..d65ffc0cf5c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,9 @@
 	* files-x.el (modify-dir-local-variable): Change the header comment
 	in the file with directory local variables.  (Bug#14692)
 
+	* files-x.el (read-file-local-variable-value): Add `default'.
+	(Bug#14710)
+
 2013-06-25  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 	* net/eww.el (eww-make-unique-file-name): Create a unique file
diff --git a/lisp/files-x.el b/lisp/files-x.el
index c9ff931cd55..adc2b8b3bf3 100644
--- a/lisp/files-x.el
+++ b/lisp/files-x.el
@@ -90,7 +90,8 @@ Intended to be used in the `interactive' spec of
           (minibuffer-completing-symbol t))
       (read-from-minibuffer (format "Add %s with value: " variable)
                             nil read-expression-map t
-                            'set-variable-value-history)))))
+                            'set-variable-value-history
+			    default)))))
 
 (defun read-file-local-variable-mode ()
   "Read per-directory file-local variable's mode using completion.