Commit 6b11952a authored by Michael Albinus's avatar Michael Albinus

* minibuffer.el (read-file-name-default): Revert the patch from 2012-06-17.

parent ee4b1330
2012-06-18 Michael Albinus <michael.albinus@gmx.de>
* minibuffer.el (read-file-name-default): Revert the patch from
2012-06-17.
2012-06-18 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/pcase.el (pcase--expand): Warn for unused pattern.
......
......@@ -461,7 +461,7 @@ for use at QPOS."
(last (last completions)))
(when (consp last) (setcdr last nil))
completions))
((eq action 'completion--unquote)
(let ((ustring (funcall unquote string))
(uprefix (funcall unquote (substring string 0 pred))))
......@@ -2335,8 +2335,7 @@ See `read-file-name' for the meaning of the arguments."
(if (consp default-filename)
(mapcar 'abbreviate-file-name default-filename)
(abbreviate-file-name default-filename))))
(let ((non-essential t)
(insdef (cond
(let ((insdef (cond
((and insert-default-directory (stringp dir))
(if initial
(cons (minibuffer--double-dollars (concat dir initial))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment