[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/complete.el,v
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/complete.el,v |
Date: |
Sat, 14 Apr 2007 20:23:32 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 07/04/14 20:23:31
Index: complete.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/complete.el,v
retrieving revision 1.71
retrieving revision 1.72
diff -u -b -r1.71 -r1.72
--- complete.el 14 Apr 2007 19:33:06 -0000 1.71
+++ complete.el 14 Apr 2007 20:23:31 -0000 1.72
@@ -190,10 +190,14 @@
(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 @@
(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 @@
;; 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)))))