[Emacs-diffs] Changes to emacs/lisp/complete.el,v

[Glenn Morris]

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)))))