mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-29 07:58:28 +00:00
Code Issues Releases Activity

Improve file name completion in file and directory widgets (Bug#7779)

Browse Source 
* lisp/wid-edit.el (widget 'file, widget 'directory): Respect the option
read-file-name-completion-ignore-case.
(widget 'directory): Filter the file names, to only perform directory name
completion.
This commit is contained in:
Mauro Aranda 2019-08-28 08:29:57 -03:00 committed by Noam Postavsky
parent ff0f4c7312
commit 5b117511aa
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/wid-edit.el
View File

@ -3083,7 +3083,9 @@ as the value."
(define-widget 'file 'string
"A file widget.
It reads a file name from an editable text field."
:completions #'completion-file-name-table
:completions (completion-table-case-fold
#'completion-file-name-table
(not read-file-name-completion-ignore-case))
:prompt-value 'widget-file-prompt-value
:format "%{%t%}: %v"
;; Doesn't work well with terminating newline.
@ -3118,6 +3120,11 @@ It reads a file name from an editable text field."
(define-widget 'directory 'file
"A directory widget.
It reads a directory name from an editable text field."
:completions (apply-partially #'completion-table-with-predicate
(completion-table-case-fold
#'completion-file-name-table
(not read-file-name-completion-ignore-case))
#'directory-name-p 'strict)
:tag "Directory")
(defvar widget-symbol-prompt-value-history nil