compare symbol names with `equal'

[bpt/emacs.git] / lisp / files-x.el

diff --git a/lisp/files-x.el b/lisp/files-x.el
index c9ff931..c3dbcd5 100644 (file)
--- a/lisp/files-x.el
+++ b/lisp/files-x.el
@@ -1,9 +1,9 @@
 ;;; files-x.el --- extended file handling commands
 
-;; Copyright (C) 2009-2013 Free Software Foundation, Inc.
+;; Copyright (C) 2009-2014 Free Software Foundation, Inc.
 
 ;; Author: Juri Linkov <juri@jurta.org>
-;; Maintainer: FSF
+;; Maintainer: emacs-devel@gnu.org
 ;; Keywords: files
 ;; Package: emacs
 
@@ -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.