mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

* minibuffer.el (read-file-name-completion-ignore-case):

Browse Source 
Move before completion--in-region, for eager macro expansion.

Somehow, this avoids an eager macro expansion failure present during
bootstrap since ~ 2013-04-17.
This commit is contained in:
Glenn Morris 2013-05-29 20:18:06 -07:00
parent ac44d6c19f
commit 02d844b536
2 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2013-05-30 Glenn Morris <rgm@gnu.org>
* minibuffer.el (read-file-name-completion-ignore-case):
Move before completion--in-region, for eager macro expansion.
2013-05-29 Juri Linkov <juri@jurta.org>
* replace.el (occur-engine): Rename `globalcount' to `global-lines'
@ -1756,7 +1761,7 @@
2013-04-21 Xue Fuqiao <xfq.free@gmail.com>
* comint.el: (comint-dynamic-complete-functions, comint-mode-map):
* comint.el (comint-dynamic-complete-functions, comint-mode-map):
`comint-dynamic-complete' is obsolete since 24.1, replaced by
`completion-at-point'. (Bug#13774)

16
lisp/minibuffer.el
View File

@ -1796,6 +1796,14 @@ exit."
(cl-assert (<= start (point)) (<= (point) end))
(funcall completion-in-region-function start end collection predicate))
(defcustom read-file-name-completion-ignore-case
(if (memq system-type '(ms-dos windows-nt darwin cygwin))
t nil)
"Non-nil means when reading a file name completion ignores case."
:group 'minibuffer
:type 'boolean
:version "22.1")
(defun completion--in-region (start end collection &optional predicate)
(with-wrapper-hook
;; FIXME: Maybe we should use this hook to provide a "display
@ -2268,14 +2276,6 @@ except that it passes the file name through `substitute-in-file-name'.")
"The function called by `read-file-name' to do its work.
It should accept the same arguments as `read-file-name'.")
(defcustom read-file-name-completion-ignore-case
(if (memq system-type '(ms-dos windows-nt darwin cygwin))
t nil)
"Non-nil means when reading a file name completion ignores case."
:group 'minibuffer
:type 'boolean
:version "22.1")
(defcustom insert-default-directory t
"Non-nil means when reading a filename start with default dir in minibuffer.