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

Fixes: debbugs:14710

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9dd5772..d65ffc0 100644 (file)
--- 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 c9ff931..adc2b8b 100644 (file)
--- 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.