mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-12 16:23:57 +00:00
Code Issues Releases Activity

(PC-do-completion): If completion-ignore-case is non-nil, replace

Browse Source 
field with completion string before exiting.
This commit is contained in:
Chong Yidong 2007-03-05 14:55:05 +00:00
parent 50991b39b1
commit b89d8a7719
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/complete.el
View File

@ -404,8 +404,15 @@ of `minibuffer-completion-table' and the minibuffer contents.")
;; Check if buffer contents can already be considered complete
(if (and (eq mode 'exit)
(test-completion-ignore-case str table pred))
'complete
(test-completion str table pred))
(progn
;; If completion-ignore-case is non-nil, insert the
;; completion string since that may have a different case.
(when completion-ignore-case
(setq str (try-completion str table pred))
(delete-region beg end)
(insert str))
'complete)
;; Do substitutions in directory names
(and filename