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

(PC-do-completion): Use minibuffer-prompt-end to

Browse Source 
find the start of the text.  Use field-string to read the user
input.
This commit is contained in:
Gerd Moellmann 1999-11-03 23:50:40 +00:00
parent ba65dba8bb
commit f08d859437
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
1999-11-04 Gerd Moellmann <gerd@gnu.org>
* complete.el (PC-do-completion): Use minibuffer-prompt-end to
find the start of the text. Use field-string to read the user
input.
1999-11-03 Gerd Moellmann <gerd@gnu.org>
* faces.el (make-face-bold, make-face-unbold, make-face-italic)

4
lisp/complete.el
View File

@ -370,7 +370,7 @@ The function takes no arguments, and typically looks at the value
of `minibuffer-completion-table' and the minibuffer contents.")
(defun PC-do-completion (&optional mode beg end)
(or beg (setq beg (point-min)))
(or beg (setq beg (minibuffer-prompt-end)))
(or end (setq end (point-max)))
(let* ((table minibuffer-completion-table)
(pred minibuffer-completion-predicate)
@ -646,7 +646,7 @@ of `minibuffer-completion-table' and the minibuffer contents.")
;; We changed it... enough to be complete?
(and (eq mode 'exit)
(PC-is-complete-p (buffer-string) table pred))
(PC-is-complete-p (field-string) table pred))
;; If totally ambiguous, display a list of completions
(if (or completion-auto-help