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

Fixes: debbugs:14710

2 files changed, 5 insertions, 1 deletions

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.