procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(PC-goto-end, PC-do-completion-end): Make buffer-local.

Browse source
This commit is contained in:
Glenn Morris 2007-04-14 20:23:31 +00:00
parent 031199c77c
commit e00c1b9cae
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/complete.el
View file

@ -190,10 +190,14 @@ If nil, means use the colon-separated path in the variable $INCPATH instead."
(defvar PC-do-completion-end nil
"Internal variable used by `PC-do-completion'.")
(make-variable-buffer-local 'PC-do-completion-end)
(defvar PC-goto-end nil
"Internal variable set in `PC-do-completion', used in
`choose-completion-string-functions'.")
(make-variable-buffer-local 'PC-goto-end)
;;;###autoload
(define-minor-mode partial-completion-mode
"Toggle Partial Completion mode.
@ -768,6 +772,8 @@ GOTO-END is non-nil, however, it instead replaces up to END."
(let ((prompt-end (minibuffer-prompt-end)))
(with-output-to-temp-buffer "*Completions*"
(display-completion-list (sort helpposs 'string-lessp))
(setq PC-do-completion-end end
PC-goto-end goto-end)
(with-current-buffer standard-output
;; Record which part of the buffer we are completing
;; so that choosing a completion from the list
@ -786,9 +792,7 @@ GOTO-END is non-nil, however, it instead replaces up to END."
;; plays around with point.
(setq completion-base-size (if dirname
dirlength
(- beg prompt-end))
PC-do-completion-end end
PC-goto-end goto-end))))
(- beg prompt-end))))))
(PC-temp-minibuffer-message " [Next char not unique]"))
nil)))))