mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

Make `initials' completion work for /hh -> /home/horn again (bug#5524).

Browse Source 
* minibuffer.el (completion-initials-expand): Only check the presence
of delims *within* the boundaries, since otherwise the / delim is
always found for files.
This commit is contained in:
Stefan Monnier 2010-02-04 23:21:11 -05:00
parent 3088147c5d
commit 51b23c4486
2 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/ChangeLog
View File

@ -1,5 +1,10 @@
2010-02-05 Stefan Monnier <monnier@iro.umontreal.ca>
Make `initials' completion work for /hh -> /home/horn again (bug#5524).
* minibuffer.el (completion-initials-expand): Only check the presence
of delims *within* the boundaries, since otherwise the / delim is
always found for files.
Fix up various corner case problems.
* doc-view.el (doc-view-last-page-number): New function.
(doc-view-mode, doc-view-last-page, doc-view-goto-page): Use it.
@ -18,8 +23,8 @@
Change strategy for marking < and > as template delimiters: mark
them strictly in matching pairs.
* cc-mode.el (c-before-change): Use
c-get-state-before-change-functions.
* cc-mode.el (c-before-change):
Use c-get-state-before-change-functions.
(c-common-init): Adapt to use
c-get-state-before-change-functions (note plural).
@ -31,7 +36,7 @@
* cc-engine.el (c-clear-<-pair-props, c-clear->-pair-props)
(c-clear-<>-pair-props, c-clear-<-pair-props-if-match-after)
(c-clear->-pair-props-if-match-before)
(c-before-change-check-<>-operators): new functions.
(c-before-change-check-<>-operators): New functions.
(c-after-change-check-<>-operators): Use macro
c-unmark-<->-as-paren.

9
lisp/minibuffer.el
View File

@ -2063,9 +2063,12 @@ filter out additional entries (because TABLE migth not obey PRED)."
;; Complete /ums to /usr/monnier/src or lch to list-command-history.
(defun completion-initials-expand (str table pred)
(unless (or (zerop (length str))
(string-match completion-pcm--delim-wild-regex str))
(let ((bounds (completion-boundaries str table pred "")))
(let ((bounds (completion-boundaries str table pred "")))
(unless (or (zerop (length str))
;; Only check within the boundaries, since the
;; boundary char (e.g. /) might be in delim-regexp.
(string-match completion-pcm--delim-wild-regex str
(car bounds)))
(if (zerop (car bounds))
(mapconcat 'string str "-")
;; If there's a boundary, it's trickier. The main use-case